Transfert de JPEG avec Winsock

**MarcVB6** · 21/12/2023, 14h28

Bonjour à tous

Je sais utiliser le socket Winsock pour transférer des caractères (du texte par exemple) d'un PC vers un autre.
Maintenant je voudrais transférer une image (fichier MonImage.jpg).
Là je coince.
Quelqu'un aurait-il une piste à me conseiller.
Par avance merci
MarcVB6

**umfred** · 21/12/2023, 18h21

De quoi est fait un fichier? d'octets, donc il peut suffire de lire le fichier en binaire et d'en transférer les données pour les reconstituer de l'autre côté

**MarcVB6** · 21/12/2023, 19h29

Merci pour votre réponse.
Ca paraît logique.
Mais comment fait-on pour lire un fichier en binaire ?
Je crois que je vais apprendre de nouvelles choses.

**DAUDET78** · 22/12/2023, 12h42

Tu ouvres comment ton fichier en Binary

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open "Mon_fichier" For Binary as #1

Et utiliser les instructions Get , FileLen

Par contre un fichier .JPG est assez gros. Faudra l'envoyer vers ta cible en plusieurs(?) morceaux

**umfred** · 22/12/2023, 12h50

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function LitFichier(FileName As String) As String
 Dim hFich As Integer
 Dim Buffer As String
 hFich = FreeFile
 Open FileName For Binary As #hFich
 Buffer = String(LOF(hFich), 0)
 Get #hFich, , Buffer
 Close #hFich
 LitFichier = Buffer
End Function

https://www.developpez.net/forums/d7...chier-binaire/

Après selon la taille de l'image, il faudra peut-être le lire par morceau (le 2nd paramètre de Get permet de définir la position de lecture)

**DAUDET78** · 22/12/2023, 18h26

Voilà un bout de programme qui est une copie d'un truc que j'avais fait pour une découpe par morceaux d'un gros fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim FichierDeTravail As String * 32768
' La taille du buffer est de 32768 octets ( je crois que le max est un peu moins de 64000)
 
I% = FreeFile
Open NomFichierComplet$ For Binary As #I%
        Do While Not EOF(I%)
            FichierDeTravail = ""
            Get #I%, , FichierDeTravail   '  on lit 32768 octets
' On expédie 32768 octets de "FichierDeTravail" à l'utilisateur (programme à faire)
' On incrémente un BarGraff (ou un compteur ) pour indiquer que le transfert avance  (programme à faire)
            DoEvents    ' on redonne la main à d'autres taches pour ne pas bloquer le PC
        Loop              'et rebelote tant que l'EOF n'est pas trouvé
Close I%

**MarcVB6** · 08/01/2024, 18h39

Bonjour,

Désolé pour le retard de ma réponse.
A la retraite on ne fait plus ce que l'on veut.
Un grand merci à vous deux mais surtout à Daudet.
J'ai utilisé votre bout de code et ça fonctionne bien.
J'ai pas mal galéré à la réception car j'envoyais avant l'image des caractères texte et aussi après l'image.
Il fallait bien envoyer le nom du fichier ... et l'emplacement où l'enregistrer.
Mon erreur a été d'utiliser la même string pour les textes et l'image.
Évidemment à l'arrivée des textes, c'était ingérable. J'avais des tonnes de blanc (puisque la string était de longueur fixe (StringImage * 32768).
J'ai donc utilisé une string de longueur variable pour les textes et tout est rentré dans l'ordre.

J'ai une question subsidiaire pour Daudet:
Dans mes recherches pour trouver une solution, j'ai utilisé une string variable ( Dim MaString() as String ) pour transférer différents gros fichiers, juste pour voir.
J'ai réussi à transférer d'un coup une vidéo qui faisait jusqu'à 87 MO.
Avec une autre de 198 MO, çà plante.
D'où ma question: Pourquoi déclarer 32768 dans Dim FichierDeTravail As String * 32768 ?
Ne pourrait-on pas déclarer une valeur plus importante ?
Sûrement une question bête mais j'ai encore des lacunes sur ce sujet.
Merci

**Mat.M** · 08/01/2024, 18h57

Salut Marc, 32768 doit être la taille max.
Donc il faut passer par des API Windows pour allouer un tampon mémoire comme GlobalAlloc etc....

**DAUDET78** · 08/01/2024, 19h30

Envoyé par Mat.M

32768 doit être la taille max.

Pour moi un string VB6 est limité à 64K pour le texte PLUS le descripteur
Voir la réponse 7 ici : https://www.vbforums.com/showthread....tring-variable
Comme un cluster de disque dur, c'est généralement 4096 octets, on peut faire un string de lecture de 15x4096=61440 .Perso je pense, que pour faciliter la lecture (et donc le temps de transfert), il vaut mieux demander un multiple de 4096. J'avais utiliser 32768 car mon application, c'était pas des gros gros fichiers

Donc il faut passer par des API Windows pour allouer un tampon mémoire comme GlobalAlloc etc....

C'est hors de ma limite de compétence !

**Mat.M** · 08/01/2024, 19h35

@Daudet : il faut suivre les exemples du MSDN qui sont en C++

je peux vous aider au besoin

**DAUDET78** · 08/01/2024, 19h41

Envoyé par Mat.M

@Daudet : il faut suivre les exemples du MSDN qui sont en C++

je peux vous aider au besoin

Merci,si ça intéresse MarcVB6 . . .
Perso, les APIs, c'est un peu nébuleux . . . et à 81 ans, ça va être le brouillard !

**MarcVB6** · 09/01/2024, 14h18

Bonjour Mat.M

Envoyé par Mat.M

Salut Marc, 32768 doit être la taille max.

Bon, je m'en tiendrai à cela. D'autant que ça fonctionne bien avec l'exemple du code de Daudet78.
Ce que j'ai compris (j'espère) c'est qu'une String de longueur variable peut contenir +/- 2 milliards de caractères alors qu'une String de longueur fixe est limitée à +/- 64 Ko.
Mais tout est dans la nuance du "+/-"./

D'ailleurs je viens de redécouvrir que c'est écrit noir sur blanc dans la MSDN !

Bonjour Daudet78

Envoyé par Daudet78

Perso, les APIs, c'est un peu nébuleux . . . .

Et pour moi donc.

Encore un grand merci pour vos réponses et vos aides.
Je voudrais bien cliquer sur Résolu mais je ne trouve plus le bouton ha doc ?

**DAUDET78** · 09/01/2024, 16h55

Envoyé par MarcVB6

Et pour moi donc.

Le problème des APIs, c'est les paramètres à passer (Long, Court, , Bouléen, String avec un 00 au cul etc) et dans quel mode ( en valeur ? en référence ?).
J'en ai utilisées (avec VB6), à condition d'avoir un tuto qui marche. Je copie, je sauvegarde et je teste. En effet, il n'y a pas de garde fou et, en cas d'erreur, tu plantes VB6 et/ou le PC

C'est plus performant (en vitesse et en possibilités) qu'une suite de commandes en VB6 . . . mais c'est un tunnel. Tu rentres dedans, le trou noir, tu ne peux rien debbuger :
• Si c'est presque bon, tu ressors du tunnel. Et peut-être que ça marche !
• Si c'est pas bon, tu n'as plus qu'a reseter le PC

Ce n'est que mon avis de débutant

**umfred** · 10/01/2024, 15h59

Il y a un outil (a priori fourni avec VB6 version Pro): la visionneuse d'API qui vient avec des fichiers décrivant les appels aux fonctions d'API Win32; et qui permet d'avoir les bonnes déclarations pour les fonctions de ces API.

Sinon il y a API-Guide sur http://allapi.mentalis.org/agnet/ (ça date un peu, mais ça peut être utile)

PS: je n'ai pas encore testé si API-guide fonctionnait bien sous win10

**DAUDET78** · 10/01/2024, 17h43

Envoyé par umfred

ça date un peu, mais ça peut être utile

Merci Umfred. J'ai pas tout lu encore, mais rien que le début m'explique mes déboires de plantage (VB6 et/ou PC) . Et c'est pour ça que je sauvais systématiquement mon programme VB6 avec API avant de le lancer !

**Mat.M** · 10/01/2024, 20h47

D'une façon ou d'une autre je ne conseille pas d'envoyer des données > 4096 octets ou 4k c'est pour cela qu'il faut découper le fichier en plusieurs blocs de taille équivalente + le reste du fichier.
Et puis c'est bien d'envoyer au récepteur le nombre d''octets transmis pour s'assurer de la bonne réception,voire même date,heure du message.

Donc le protocole pourrait ressembler à ça
|en tête| taille du tampon | tampon/données du fichier | code de termination du message|

**DAUDET78** · 11/01/2024, 11h33

Envoyé par MarcVB6

Je sais utiliser le socket Winsock pour transférer des caractères

je ne connais pas Winsock. C'est bi-directionnel ?

Envoyé par Mat.M

**umfred** · 11/01/2024, 13h42

au cas où, il y a un exemple simple d'utilisation de winsock pour un transfert de fichier qui peut servir de base http://vb-helper.com/howto_winsock_file_transfer.html

**MarcVB6** · 12/01/2024, 23h21

Bonjour Daudet78,

Envoyé par DAUDET78

je ne connais pas Winsock. C'est bi-directionnel ?

C'est ça : Nom : Winsock.jpg
Affichages : 71
Taille : 1,5 Ko

C'est le seul truc que je connais sous VB6 pour une communication réseau.

**MarcVB6** · 12/01/2024, 23h40

Bonjour Umfred,

Envoyé par umfred

au cas où, il y a un exemple simple d'utilisation de winsock pour un transfert de fichier qui peut servir de base http://vb-helper.com/howto_winsock_file_transfer.html

C'est intéressant mais, d'après ce que j'ai pu comprendre, lui il limite l'émission à 8192 et pas 32768?. Encore un mystère de plus.

Transfert de JPEG avec Winsock

VB 6 et antérieur

Discussions similaires

Partager

Partager