ENVOI DE FICHIERS DE TOUTES TAILLES AVEC WINSOCK

Commentaire de Mayzz le 11/10/2003 03:44:58

Tu peux me donner le lien de cette source s'il te plaît et je te dirais ça pluplu :)

Il est vrai qu'il y a des méthodes dans cette source qui sont tiré d'autres sources de ce site, car je viens ici dans le but d'accroître mes connaissances en Vb et c'est même ici, que j'ai appris à me servir de winsock (grâce au tutorial de celiphane)

Avec les sources de tout le monde, on apprend beaucoup, mais ce qui compte, je crois quant on dépose une source c'est que le résultat final ne soit pas dans une source déjà présente sur le site et comme je le dis plus haut, ce bout de code fait partie d'un prog que je suis en train de faire avec un ami, je l'ai déposé car je n'ai pas trouvé de source sur vbfrance qui permette avec winsock d'envoyer des fichiers plus gros que 30Mo (Je ne dis pas qu'il n'y en a pas, mais je n'en ai pas trouvé) donc je me suis dis que si cette source n'existe pas ici, alors la mienne pourrait servir à quelques-uns uns.
D'ailleurs elle est un peu borderlique je l'avoue, c'est juste pour montrer la méthode d'envoi c'est tout. Le reste (l'interface etc..) Je l'ai fait vite fais histoire de ne pas balancer une source sans zip. Par ailleurs, si vous trouvez d' autres sources pour envoyer des gros fichiers avec winsock (gros fichier = sans limite de taille pour moi ) ce serais sympa de me laisser les liens.

++ Mayzz

Commentaire de Mayzz le 11/10/2003 23:27:11

Heu... nan pluplu, du tout !

Rien à voir, cette source te permet d'envoyer des fichiers texte avec winsock, la mienne permet d' envoyer n' importe quel type de fichier, sans aucune limite de taille.

De plus les méthodes d'envoi ne sont carément differentes, je ne vois pas du tout en quoi ma source ressemble a celle de zikoasm, mis à par le fait que ce soit un envoi de fichier avec winsock et qu' il y a un client et un serveur...

Par contre si tu trouve une source similaire à la mienne je veu bien...

Commentaire de Mayzz le 18/10/2003 02:51:40

merci neocracker,

Ca fait plaisir d’avoir de bons commentaires, d’autant plus que c'est ma première source ici.

En ce qui concerne son utilisation dans ton prog, no problème,  si j’ai déposé cette source ici, c'est pour que tout le monde puisse en tirer profit.

Je suis assez intrigué par ton idée de prog p2p car comme je l’ai dis plus haut, je fais un prog en ce moment, du même genre et  si ça te dis, ont pourrait prendre contact et échangé nos idées...

Commentaire de Mayzz le 15/11/2003 16:55:10

Ben pour répondre a ta question beCaSiNe je te dirais tout simplement que non. Car la taille maximum d' envoi avec winsock est de 8192 octets c'est d'ailleur pour ceci que l' on parle de paquets, d' ou l' obligation de scinder le fichier en plusieurs parties. On peut tout aussi bien envoyé le fichier en une seul fois mais dans ce cas préci winsock le découpera lui même, et puis quant on à un fichier de la taille d' 1Go ou plus il est un peut dur de le mettre en mémoire dans une variable sans risquer de planter le pc.

Commentaire de Mayzz le 16/11/2003 15:33:06

oui c'est sur mais cela revient au même de toute façon, l' important c'est que l'on puissent evnvoyer des fichier de plus de 8k (Dieu merci !)

Commentaire de azerty25 le 16/12/2003 10:15:23

C'est très bien comme source :-) j'adore trop, sa va surement m'etre utile pour un projet si je me décide de le faire un jour ! un chti 10 car j'ai pas trouvé de bugs et que sa fonctionne impecable

Commentaire de thierrydelepine le 30/01/2004 17:46:25

Tres bonne source, fonctionne tres bien, je l'ai testé avec un fichier de 2.1 Go.

petite amelioration : au lieu de copier le .tmp en l'extension reel du fichier puis de supprimer le .tmp pourquoi ne pas juste renommer le fichier cela gagnerai du temps a la fin du telechargement sur les gros fichiers.

grosse amelioration : comme on transfert des blocs, ce serai de compter les blocs deja recu et en cas de plantage ou de perte  de connexion, de reprendre le telechargement ou il en était mais pas depuis le debut. je vais essayer.

en tout cas ce source est tres bien je vais l'ameliorer, pour des besoins perso, par un cryptage des donnees qui transitent car je souhaite passer par internet.le but est dans faire un pseudo per to per perso pour des echanges de photos de famille ou films familliales dans le cercle de la famille ou des amis.
je mettrai aussi l'echange de fichiers dans les deux sens.
reste pour moi a trouver du temps.

en tout cas BRAVO, cela vaut la note deja attribuée 10/10, et merci pour le source.

Commentaire de BumpMANN le 13/02/2004 22:16:19

Bravo pour cette source ;) voila une bonne source de vbfrance!
ca mérite pas moins de 10! ca va me servir ;)

Commentaire de Mayzz le 26/04/2004 20:43:27

Ben heu... en fait on ne doit pas changé la taille pdt l'envoi du fichier
voila pk (le combo pr la taille devrais être looked ou disabled durant l'envoi)

De plus il ne faut pas envoyé des paquet supperieur a 8192 octets (taille maximum imposé par un socket).

Sinon j'ai remarqué un bug ds ce prog, mais c'est vraiment un bug illogique !

En fait je me suis apperçu que durant l'envoi d' un fichier (600Mo ou +), le client peu avoir fini son envoi avant que le serveur receptionne le fichier (le posaluturcentage d'envois sur le serveur n'est pas le même que celui du client) ce qui ne devrais pas arrivé car le client envoi le paquet suivant que lors ce que le serveur à confirmé la réception du paquet en cour.

si qq1 a pigé le truk...

bonne prog a ts !

Commentaire de azerty25 le 31/05/2004 15:15:17

On dit des bytes, sinon sa portes à confusion ;)

Commentaire de CyberFlash le 31/05/2004 15:58:55

Salut Mayazz, J'ai la solution au problème.
rappelle du problème:
Le fichier de destination n'est pas toujours de la même taille que l'original.

Cause: Le prog envoi un packet en trop

Solution:
La boucle pour l'envoi des packets est ainsi:

For x = 1 To NbrPackets

Si maintenant la variable NbrPackets possède la valeur 18.84, la fonction For va l'arrondire à 19. Donc il va envoyé 19 packet au lieu de 18.84. Il faut donc prendre uniquement la partie entière de la valeur de NbrPacket.
Ce qui donne:

    NbrPackets2 = Fix(NbrPackets)
    For x = 1 To NbrPackets2

Ainsi si la valeur de NbrPacket est de 18.84, la boucle ne verra que 18. Et c'est ce qu'il faut car le prog va ainsi envoyé 18 packet. Il manque encore 0.84 packet qui seront envoyé plus bas dans le prog

Et voilà Maintenant plus de prob. Tous les fichier fonctionnent.
Je suis d'ailleurs étonné que personne n'a remarqué cela

Commentaire de Chipsounet le 08/09/2004 14:55:12

ouh là, avec quoi il s'ouvre? Je ne parvien pas à l'ouvrir dans vb6

sinon, comment exploiter ceci ?

http://www.vbfrance.com/zipview.aspx?ID=16972&f=Envoi+de+fichier+avec+winsock%2fClient%2fFrmMain.frm

(oui, question de noob, désolé :) )

Commentaire de Optitech le 04/04/2005 16:22:59

Salut,

C'est une superbe source que tu as fait ! Qu'une seulle chose à dire : Chapeau ! J'ai modifier le morceau de code qui permet de calculer le nombre de paquet. Je peut pas te fourmir ce que j'ai fait pour l'instant (Oui je suis à mon lycée et j'ai pas mes sources). Pour l'instant j'essays de faire un programme, a partir du tien qui fait serveur et client à la fois, mais pour l'instant je n'y arrive pas.

Commentaire de Optitech le 16/06/2005 15:41:31

Salut !

Mon application avence ! Comme promit voila le bout de code que j'ai modifé pour le calcul des paquets ! Le voila :

C'est un function

Function CalculNbPaquet(taillefichier, taillepaquet) As Double

Dim reste As Integer 'Déclaration de la varialbe
Dim Nbpaquet As Double ' Déclaration d ela varialbe

reste = taillefichier Mod taillepaquet 'Calcul du reste grâce à Mod (division ecludiaine) qui retorune le reste

Nbpaquet = (taillefichier - reste) / taillepaquet 'On calucle le nombre de paquets

If reste > 0 Then Nbpaquet = Nbpaquet + 1 'Si reste n'était pas nul on rajoute 1 au nombre de paquets

CalculNbPaquet = Nbpaquet 'On retorune le nombre de paquets

End Function

Voila maintment la cod epour appelr cette fonction :

msgbox CalculNbPaquet(TAILLE DU FICHER EN OCTET, TAILLE DES PAQUETS EN OCTET)

Voila j'espère que ce morceau de code va t'aider à amélioré ta source !

Bonne programmtion à tous

@++

Optitech ^^

Commentaire de jaafar123456 le 19/11/2005 17:34:12

salut,

Arondis = Left(FileLen(NomFichier) / PacketSize, InStr(FileLen(NomFichier) / PacketSize, ",") - 1)
  If Arondis <> 0 Then
  NbrPackets = Arondis
  Else
  NbrPackets = FileLen(NomFichier) / PacketSize
  End If

c'est bien la partie du code qui précise le Nbr de packets?
j'aimerai t'ajouter 2 truc qui te serviront par la suite:
primo : x = A \ B ' x reçoi le resultat de la division entiere de A sur B.
Secondo : R = A Mod B ' R reçoi le reste de la division de A sur B.

Bonne continuation.
Chaque instant... est une chance pour changer sa vie!