Envoi de fichiers de toutes tailles avec winsock

Soyez le premier à donner votre avis sur cette source.

Vue 6 152 fois - Téléchargée 1 106 fois

Description

Bien, bien, bonjour à tous !

Alors, tout d'abord, je tien à préciser que c'est ma première source déposée sur vbfance.
Je l’ai fait moi-même et bien sûr ma connaissance je l’ai prise ici, à travers vos sources =)
Bon sinon ce prog sert à envoyer des fichiers de toutes tailles et je dis bien de toutes tailles(même les divix) avec winsock.
Le principe est simple, un client, un serveur, une découpe du fichier à envoyer en paquets dont la taille est configurable.
Notez sur tout que j’ai fait cette source dans le but de la déposé ici et non pour m’en servir car une partie du code se trouve dans un programme que je suis en train de mettre au point avec un ami. Donc tout ça pour vous dire car je suis un peu timide... si si ! :)
SOYEZ GENTIL(LES) AVEC MOI...
J’aime les critiques, même les plus nuls du genre "Ca sert à rien ton truck" ou encor "Tu as pris ça sur une autre source", car un critique est une critique et c'est toujours bon à prendre... mais pas d’insultes non plus s'il vous plaît ou de choses qui ridiculise les gens, car c'est ma première source et j’espère avoir l’occasion d’en déposer une autre.
Sur ce je tien par avance à m'excuser au près des personnes qui serait tenté de télécharger ma source, pour les innombrables fautes d’orthographes qu'il peut y avoir dans les commentaires de la source.
Mwala.
++

Conclusion :


Ah oui ! Il y a beaucoup de bidouillages dans cette source alors si vous trouvez le moyen de faire en sorte que j’arrête de me prendre la tête pour des trucks, qui je suis sur sont les plus simples du monde, merci infiniment à vous!!!

Autres choses, j’ai testé ce prog sur mon réseau et avec plusieurs collègues et il marche parfaitement. Je l' ai même testé sur un p1 133mhz avec win 98 ça marche aussi et ça ne plante pas (je me demande par quel miracle).
Sur ce bonne prog à toutes et à tous :o)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
66
Date d'inscription
vendredi 15 juin 2007
Statut
Membre
Dernière intervention
19 mai 2011

Salut,
très bonne source, merci, elle va m'être très utile.
10/10
Messages postés
218
Date d'inscription
dimanche 1 mai 2005
Statut
Membre
Dernière intervention
15 novembre 2009
1
Je pense que de toute manière la taille du paquet ne va pas changer la vitesse de transfert mais just augmenter en mémoire le transfert.
Messages postés
2
Date d'inscription
mercredi 7 juillet 2004
Statut
Membre
Dernière intervention
1 juin 2007

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!
Messages postés
2811
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
26 novembre 2013
27
Pour infos je fait un prog sur cette source en ce moment avec un envoie par IP pour une cliente. Je déposerais tout ça ici mais je préviens à l'avance que cette source ne seras pas différente, hors mis l'interface graphique les fonction pour faciliter l'envoie et le morceau de code d'Optitech bien sur ! Merci à toi

@+ 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
Messages postés
134
Date d'inscription
samedi 19 octobre 2002
Statut
Membre
Dernière intervention
3 janvier 2009

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 ^^
Afficher les 32 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.