ICIoBRa
Messages postés368Date d'inscriptiondimanche 24 juin 2001StatutMembreDernière intervention 7 décembre 2015
-
19 avril 2003 à 22:03
roxane101
Messages postés28Date d'inscriptionvendredi 12 mai 2006StatutMembreDernière intervention26 décembre 2006
-
25 juil. 2006 à 12:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
roxane101
Messages postés28Date d'inscriptionvendredi 12 mai 2006StatutMembreDernière intervention26 décembre 2006 25 juil. 2006 à 12:19
bonjour
merci pour l'explication
cs_max12
Messages postés1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDernière intervention 7 juillet 2014 25 juil. 2006 à 04:06
Lorsque le serveur répond qu'il est prêt pour la transmition le client ouvre le fichier et le met dans la mémoire, par la suite il envoie le contenu du fichier qui se trouve dans la variable Texte.
A+
roxane101
Messages postés28Date d'inscriptionvendredi 12 mai 2006StatutMembreDernière intervention26 décembre 2006 21 juil. 2006 à 14:32
Bonjour,
Merci pour le code, mais il y a des methodes que j'ai pas bien compri son rôle.
veuillez s'il vous plaît me donner une ptite explication pour les lignes de cette procedure.
Private Sub WinClient_DataArrival(ByVal bytesTotal As Long)
Dim cData As String
WinClient.GetData cData
If cData Like "*READY*" Then
Dim Texte As String
cAvance = 0
Open App.Path & "\temp.bmp" For Binary Access Read As #1
Texte = Space(LOF(1))
Get 1, , Texte
Close #1
WinClient.SendData Texte
End If
End Sub
Merci encore.
cs_pepekiss
Messages postés24Date d'inscriptionsamedi 17 avril 2004StatutMembreDernière intervention14 février 2005 30 nov. 2004 à 22:07
vraiment un grand merci à toi max12, depuis le temp que je cherchais cela. 10/10
ICIoBRa
Messages postés368Date d'inscriptiondimanche 24 juin 2001StatutMembreDernière intervention 7 décembre 2015 21 avril 2003 à 19:43
Ca Yé jé enfin réussi ! :]
Merci pour lèd'
+²
cs_max12
Messages postés1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDernière intervention 7 juillet 2014 21 avril 2003 à 19:04
Je sais pour le listen, mais j'ai fait cette exemple rapidement :)
ICIoBRa
Messages postés368Date d'inscriptiondimanche 24 juin 2001StatutMembreDernière intervention 7 décembre 2015 21 avril 2003 à 13:40
Ton exemple marche, mwa jé fé le même principe mé erreur dans le bitmap... i marshe pas :
+²
cs_norton
Messages postés215Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention21 août 2011 21 avril 2003 à 12:42
Merci Max12
cs_TheHacker
Messages postés442Date d'inscriptionsamedi 23 novembre 2002StatutMembreDernière intervention19 octobre 2005 21 avril 2003 à 12:18
j'ai pigé pourquoi ton prog marche qu'au premier transfert, en fait une fois l'image transférée, tu déconnectes les 2 cotés mais t'as oublié de remettre le serveur en atttente donc le client n'arrive pas a se connecter ! :-) voci la correction de la ligne.
If cAvance cLenTotal Then PicRec.Picture LoadPicture(App.Path & " emp2.bmp"): WinServe.Close: WinServe.Listen
A part ca, il existe d'autre moyens pour faire une compressio nd'image et l'ennvoyer au lieu de transférer le fichier et de l'afficher, ce qui peut prendre bcp de temps pour une + grosse image et pour un modem 56 k. Le probleme c'est que je sais pas comment faire :-(
@+
cs_max12
Messages postés1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDernière intervention 7 juillet 2014 20 avril 2003 à 16:40
Mais mon example lui au moin il marche ?
ICIoBRa
Messages postés368Date d'inscriptiondimanche 24 juin 2001StatutMembreDernière intervention 7 décembre 2015 20 avril 2003 à 13:15
Chez mwa ca enregistre ke la dernière ligne du bitmap...
Open App.Path & "capecr.bmp" For Append As #1
Print #1, txtRecu;
Close #1
jé mi ça, txtRecu étant le code binaire de l'image ...
C looshe
ICIoBRa
Messages postés368Date d'inscriptiondimanche 24 juin 2001StatutMembreDernière intervention 7 décembre 2015 19 avril 2003 à 22:03
25 juil. 2006 à 12:19
merci pour l'explication
25 juil. 2006 à 04:06
A+
21 juil. 2006 à 14:32
Merci pour le code, mais il y a des methodes que j'ai pas bien compri son rôle.
veuillez s'il vous plaît me donner une ptite explication pour les lignes de cette procedure.
Private Sub WinClient_DataArrival(ByVal bytesTotal As Long)
Dim cData As String
WinClient.GetData cData
If cData Like "*READY*" Then
Dim Texte As String
cAvance = 0
Open App.Path & "\temp.bmp" For Binary Access Read As #1
Texte = Space(LOF(1))
Get 1, , Texte
Close #1
WinClient.SendData Texte
End If
End Sub
Merci encore.
30 nov. 2004 à 22:07
21 avril 2003 à 19:43
Merci pour lèd'
+²
21 avril 2003 à 19:04
21 avril 2003 à 13:40
+²
21 avril 2003 à 12:42
21 avril 2003 à 12:18
If cAvance cLenTotal Then PicRec.Picture LoadPicture(App.Path & " emp2.bmp"): WinServe.Close: WinServe.Listen
A part ca, il existe d'autre moyens pour faire une compressio nd'image et l'ennvoyer au lieu de transférer le fichier et de l'afficher, ce qui peut prendre bcp de temps pour une + grosse image et pour un modem 56 k. Le probleme c'est que je sais pas comment faire :-(
@+
20 avril 2003 à 16:40
20 avril 2003 à 13:15
Open App.Path & "capecr.bmp" For Append As #1
Print #1, txtRecu;
Close #1
jé mi ça, txtRecu étant le code binaire de l'image ...
C looshe
19 avril 2003 à 22:03