Envoi de fichier avec Winsock

Question

J'utilise ytrès souvent winsock qui ne m'a jamais posé de gros problèmes ( surtout grace au tuto de VBFrance ; ) ). Mais j'aimerai envoyer des fichier proprement dit.

Comment dois-je faire ? J'ai chercher mais je n'ai pas compris l'utilité d'un Tampon/Buffer et les commandes :
Space$()
Get 1,,X

-=Ar$£nik=-

AnteManoclis · Answer

'lut Arsenik,
  
  Cette solution devrait foncitonner...

  Dim Fichier as String, TailleFichier as Long, Tableau() as Byte

  TailleFichier = FileLen(Fichier)
  Redim Tableau(1 to TailleFichier)

  Open Fichier For Binary as #1
    Get #1, , Tableau
  Close #1

  Ensuite, il ne te reste plus qu'à envoyer la taille du fichier et chacun des memebres du tableau précédemment chargé. Pour finir, du côté récepteur, il ne te reste plus qu'à faire:

  Open NomDuFichierReçu as #1
    Put #1, , Tableau
  Close #1

  En espérant que ça puisse t'aider...
  Tchô  ;) 
AnteManoclis

MaxSoldier · Answer

Imaginons que mon fichier fasse plusieurs MegaOctets, mon prog se bloquerait ( parce qu'il resterait a l'instruction winsock(Index).senddata X )

C'est donc l'utilité du buffer ( enfinn je croi j'ai pas encore trouvé :p )

-=Ar$£nik=-

cs_CanisLupus · Answer

Salut,

As-tu vu cette source : http://www.vbfrance.com/code.aspx?ID=26255

Cordialement, CanisLupus

AnteManoclis · Answer

Dans le cas de fichiers trop grands, tu peux utiliser le contrôle RichTextBox. En appelant la fonction LoadFile de ce contrôle, quelquesoit la taille du fichier, tu y retrouveras les octets du fichier. Il te suffit alors d'utiliser une fonciton du type Mid pour récupérer ces octets et les transmettres un par un un peut-être pas, mais par groupes, les uns après les autres.

  En espèrant que ça puisse t'aider
  Tchô  ;) 
AnteManoclis

MaxSoldier · Answer

OUais, je pense que je vais faire comme sa...

Thanks !

-=Ar$£nik=-

Envoi de fichier avec Winsock

5 réponses

Discussions similaires