ENVOI DE FICHIERS DE TOUTES TAILLES AVEC WINSOCK
cs_pluplu
Messages postés
615
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
4 juillet 2012
-
10 oct. 2003 à 12:17
djgab21 Messages postés 66 Date d'inscription vendredi 15 juin 2007 Statut Membre Dernière intervention 19 mai 2011 - 13 nov. 2010 à 16:13
djgab21 Messages postés 66 Date d'inscription vendredi 15 juin 2007 Statut Membre Dernière intervention 19 mai 2011 - 13 nov. 2010 à 16:13
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/16972-envoi-de-fichiers-de-toutes-tailles-avec-winsock
https://codes-sources.commentcamarche.net/source/16972-envoi-de-fichiers-de-toutes-tailles-avec-winsock
13 nov. 2010 à 16:13
très bonne source, merci, elle va m'être très utile.
10/10
17 févr. 2008 à 19:26
19 nov. 2005 à 17:34
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!
20 sept. 2005 à 21:58
@+ et bonne continuation à tt les développeurs !
PS: je monte ma boite de dépannage informatique à domicile et si il ya des gens qui ont déjà bossé ds ce type de boulot je suis ouvert a tt les conseils: mayzz03@hotmail.com
16 juin 2005 à 15:41
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 ^^
18 avril 2005 à 23:17
Ca fait plaisir de voir qu' après tout ce temps la note n'a pas baissé.
4 avril 2005 à 16:22
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.
16 janv. 2005 à 22:50
salutations
8 sept. 2004 à 14:55
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é :) )
5 juin 2004 à 22:31
@+, et bonne prog, scalpweb
31 mai 2004 à 15:58
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
31 mai 2004 à 15:35
31 mai 2004 à 15:15
31 mai 2004 à 15:01
Lorsque j'envoi un fichier, le fichier de destination ne se renomme pas et reste en *.tmp. Dans le code on peux voir que le prog détecte la fin du fichier lorsque le nombre de bite reçu est égale à la taille du fichier et c'est a ce moment qu'il renomme le fichier. Seulement voilà, chez moi le fichier de destination est toujours plus grand de quelque bite que l'original . Je ne comprend vraiment pas d'où vienne ces bites.
26 avril 2004 à 20:43
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 !
9 avril 2004 à 16:28
tu peux changer la taille des paquets durant l'envoi et quand la taille est trop grosse hebin ca arrete tout simplement d'envoyer le fichier
et meme si on la change pas et que c'est trop gros ca marche plus pk?
ca serait cool que tu remedie ce petit probleme!!!
13 févr. 2004 à 22:16
ca mérite pas moins de 10! ca va me servir ;)
2 févr. 2004 à 21:42
Pour les améliorations j' y avais pensé mais c'est juste une source et non un prog, je devais justement faire un prog de ce type(p2p) mais bon...
En tout cas si tu fais ce prog ca serais sympas de mettre la source ici et de me mettre le lien plus bas ;)
t' chao ++ et bonne prog tout le monde !!!
30 janv. 2004 à 17:46
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.
16 déc. 2003 à 17:00
16 déc. 2003 à 10:15
28 nov. 2003 à 21:50
16 nov. 2003 à 15:33
15 nov. 2003 à 16:56
15 nov. 2003 à 16:55
15 nov. 2003 à 16:25
18 oct. 2003 à 02:51
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...
17 oct. 2003 à 21:45
11 oct. 2003 à 23:27
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...
11 oct. 2003 à 10:09
http://www.vbfrance.com/code.aspx?ID=16882
11 oct. 2003 à 03:44
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
10 oct. 2003 à 12:17