ENVOYER UNE IMAGE PAR WINSOCK

ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015 - 19 avril 2003 à 22:03
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
25 juil. 2006 à 12:19

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
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és 28 Date d'inscription vendredi 12 mai 2006 Statut Membre Dernière intervention 26 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és 24 Date d'inscription samedi 17 avril 2004 Statut Membre Dernière intervention 14 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és 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Derniè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és 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Derniè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és 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Derniè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és 215 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 21 août 2011
21 avril 2003 à 12:42

Merci Max12

cs_TheHacker Messages postés 442 Date d'inscription samedi 23 novembre 2002 Statut Membre Dernière intervention 19 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és 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
20 avril 2003 à 16:40

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
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és 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015
19 avril 2003 à 22:03

'ci :]

Discussions similaires

vectoriser un logo sous photoshop

[Photoshop] : Image noir et blanc en image blanc et noir ?

envoyer les sms

image avec FPDF

initialisation du BITMAPINFO pour avoir une palette 256 couleurs!

Votre réponse

Discussions similaires