ENVOYER UNE IMAGE PAR WINSOCK

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

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
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+
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.
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
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'
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 :)
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 :
Messages postés
215
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
21 août 2011

Merci Max12
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 :-(
@+
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 ?
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
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015

'ci :]