ENVOYER UNE IMAGE PAR WINSOCK

Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015
- - Dernière réponse : roxane101
Messages postés
28
Date d'inscription
vendredi 12 mai 2006
Statut
Membre
Dernière intervention
26 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.

https://codes-sources.commentcamarche.net/source/6791-envoyer-une-image-par-winsock

roxane101
Messages postés
28
Date d'inscription
vendredi 12 mai 2006
Statut
Membre
Dernière intervention
26 décembre 2006
-
bonjour
merci pour l'explication
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
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és
28
Date d'inscription
vendredi 12 mai 2006
Statut
Membre
Dernière intervention
26 décembre 2006
-
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és
24
Date d'inscription
samedi 17 avril 2004
Statut
Membre
Dernière intervention
14 février 2005
-
vraiment un grand merci à toi max12, depuis le temp que je cherchais cela. 10/10
ICIoBRa
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015
-
Ca Yé jé enfin réussi ! :]
Merci pour lèd'
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
Je sais pour le listen, mais j'ai fait cette exemple rapidement :)
ICIoBRa
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015
-
Ton exemple marche, mwa jé fé le même principe mé erreur dans le bitmap... i marshe pas :
cs_norton
Messages postés
215
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
21 août 2011
-
Merci Max12
cs_TheHacker
Messages postés
442
Date d'inscription
samedi 23 novembre 2002
Statut
Membre
Dernière intervention
19 octobre 2005
-
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és
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
Mais mon example lui au moin il marche ?
ICIoBRa
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015
-
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és
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015
-
'ci :]