TRANSFERT DE FICHIER PAR WINSOCK, AVEC RESUME, PAUSE, VITESSE D'ENVOI, BARRE DE

cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014 - 24 déc. 2004 à 01:19
PAT9SAB Messages postés 22 Date d'inscription dimanche 28 décembre 2008 Statut Membre Dernière intervention 6 décembre 2009 - 9 oct. 2009 à 18:26

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/28379-transfert-de-fichier-par-winsock-avec-resume-pause-vitesse-d-envoi-barre-de-progression-jolie-interface

PAT9SAB Messages postés 22 Date d'inscription dimanche 28 décembre 2008 Statut Membre Dernière intervention 6 décembre 2009
9 oct. 2009 à 18:26

bonjour a tous je cherche un peut d'aide
je voudrais envoyer des données entre un client et un serveur par exemple du coté client

Private Sub Command1_Click()
If Wsck_Client.State = sckConnected Then
Wsck_Client.SendData "ici je coince"
End If
End Sub

je coince je ne sais pas envoyer autre chose qu'un texte

il faudrais que j'envois une fonction d'une dll par exemple

Private Sub Command1_Click()
SetDigitalChannel(3)
End Sub

merci pour aide

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
11 déc. 2008 à 19:23

De passage, il faudrait modifier la source, car les acknowledgement TCP sont automatique, il est donc normal que le transfert soit très lent !

SylvanusS Messages postés 13 Date d'inscription samedi 12 novembre 2005 Statut Membre Dernière intervention 5 décembre 2005
13 nov. 2005 à 11:50

okey

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
13 nov. 2005 à 01:06

Il faut visual studio, ou un outil de développement visual basic pour pouvoir le compiler... Mais cette source est un peu a l'abandon !

SylvanusS Messages postés 13 Date d'inscription samedi 12 novembre 2005 Statut Membre Dernière intervention 5 décembre 2005
12 nov. 2005 à 20:54

mais dite moi, comment l'exucuter ???
(PS : je suis nouveau donc je connai pas trop)
expliquer moi, ya pas de *.EXE donc, on peux pas exuter !

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
16 févr. 2005 à 23:36

oui le transfert est très long, si quelqu'un a une idée pour améliorer la vitesse ...

ana_adil Messages postés 52 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 4 juillet 2006
16 févr. 2005 à 21:25

j ai testè le code => tres long

ana_adil Messages postés 52 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 4 juillet 2006
16 janv. 2005 à 19:00

De rien ami ;)

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
11 janv. 2005 à 08:16

Lol oui, Merci pour tout ceux qui me soutienne, ou qui vont le faire :D

WindPowa Messages postés 121 Date d'inscription samedi 15 mai 2004 Statut Membre Dernière intervention 10 mars 2006
11 janv. 2005 à 00:25

Tu devrais dire "merci tout le monde ;)" au lieu de remercier chaque personne ça serait mieux ;)

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
10 janv. 2005 à 20:15

Merci ana :)

ana_adil Messages postés 52 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 4 juillet 2006
10 janv. 2005 à 19:59

très bon code c'est ce que je cherche ;)

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
7 janv. 2005 à 11:54

Merci minch

cs_Minch Messages postés 6 Date d'inscription mardi 9 novembre 2004 Statut Membre Dernière intervention 3 novembre 2005
7 janv. 2005 à 11:50

Très bonne appli, et pile ce que je cherché, merci!!!

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
25 déc. 2004 à 19:06

Bah alors je vais faire ça a l'occase ;) mais faut que je fasse gaffe que microsoft m'accuse pas de vouloir leur prendre leur part de marché lol

WindPowa Messages postés 121 Date d'inscription samedi 15 mai 2004 Statut Membre Dernière intervention 10 mars 2006
25 déc. 2004 à 18:59

Absolument !

Tu te rapproches de plus en plus de MSN messenger :P

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
25 déc. 2004 à 18:42

Au fait pensez a aller voir mon chat:
http://www.vbfrance.com/code.aspx?ID=27992
Pensez vous que l'intégration de l'envoi de fichier dedans soit une bonne idée ?

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
25 déc. 2004 à 16:16

Exact jack j'avais oublié ;)
Voila j'ai mis a jour, note j'ai juste procédé comme ça:
wsk.getdata donnee, vbstring
tempt = split(donnee,"#",3) ce qui fait que seul les deux premiers # sont pris en compte, ça fonctionne chez moi.

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
25 déc. 2004 à 14:05

Salut retaks666
Relis tout ce que je t'ai écrit.
Il n'est pas possible d'utiliser tempt(2) pour isoler les données car dans ces données, il se peut qu'il y ait un caractère # !
Relis les posts du forum, je te donne tout ce qu'il faut :
Dans tempt(1), tu as la longueur de la chaine transmise.
Il te suffit donc d'isoler les données du l'entête.
Pour info, j'ai publié cette source http://www.vbfrance.com/code.aspx?id=3655 qui fait ce que tu cherches à faire.
Charge-la et regarde comment c'est foutu.

ImmortalPC Messages postés 954 Date d'inscription mardi 11 mai 2004 Statut Membre Dernière intervention 11 novembre 2008 2
25 déc. 2004 à 00:29

Pour moi c'est bon.
Joyeux Noël
@+++

WindPowa Messages postés 121 Date d'inscription samedi 15 mai 2004 Statut Membre Dernière intervention 10 mars 2006
24 déc. 2004 à 19:57

C'est bon je peux supprimer les deux fichiers de mon FTP ?

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
24 déc. 2004 à 18:22

Merci windpowa ;)

ImmortalPC Messages postés 954 Date d'inscription mardi 11 mai 2004 Statut Membre Dernière intervention 11 novembre 2008 2
24 déc. 2004 à 18:14

Resalut,
Je regarde les possiblilité de VB.
Merci pour les fichiers.
@++++++++++

WindPowa Messages postés 121 Date d'inscription samedi 15 mai 2004 Statut Membre Dernière intervention 10 mars 2006
24 déc. 2004 à 17:13

Tiens je l'ai uploadé > http://www3.sympatico.ca/jmperot/Projet1.exe

Et voici VB6FR.DLL >
http://www3.sympatico.ca/jmperot/VB6FR.DLL

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
24 déc. 2004 à 16:58

Merci mopii9

WindPowa Messages postés 121 Date d'inscription samedi 15 mai 2004 Statut Membre Dernière intervention 10 mars 2006
24 déc. 2004 à 16:57

Si, t'as pas VB, qu'est-ce que tu fais ici ? :P
Juste du download ?
Bon, c'est ton choix...
Sinon belle interface en effet...

ImmortalPC Messages postés 954 Date d'inscription mardi 11 mai 2004 Statut Membre Dernière intervention 11 novembre 2008 2
24 déc. 2004 à 15:04

Quelqu'un pourrait t'il m'envoyer la version compilé!!!
J'ai pas VB.
Désoler
Mon adresse : www.immortalpc@free.fr

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
24 déc. 2004 à 13:37

voila, j'ai fait ça
Wsk.GetData donnee, vbString
tempt = Split(donnee, "#")
Select Case tempt(0)
...
case else:
...
Put #2, tempt(0), tempt(2)
end select

et le code ne marches plus, j'ai fait le test avec une image, et a la fin j'obtiens une image qui ressemble a rien
note: les données sont envoyée sous cette forme:
position#taille#données

Mopii9 Messages postés 91 Date d'inscription lundi 26 juillet 2004 Statut Membre Dernière intervention 23 mai 2005
24 déc. 2004 à 13:36

interressant mais sa rame quand meme . . . mais bon c'est pas mal ;)

retaks666 Messages postés 286 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 16 juillet 2007
24 déc. 2004 à 13:09

Max12, mon problème n'est pas tant la mesure de la vitesse, mais la vitesse en elle même que je trouve lente, mais merci tout de même j'éssaierai de mettre ça en application.
Et encore merci jack, je vais essayer tout a l'heure

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
24 déc. 2004 à 03:47

Salut retaks666
Après le forum, nous voilà dans le vif du sujet !
Actuellement, tu perds énormément de temps machine à faire des transferts de Byte vers String : C'est inutile : Lit les derniers posts sur le forum.

Au lieu de lire les données sous forme de tableau de bytes, lis les directement en String !
A la place de :
ReDim bufftmp(bytesTotal)
Wsk.GetData bufftmp, vbByte
donnee = ByteToString(bufftmp())

Utilise plutôt :
Dim Donnee As String
Wsk.GetData Donnee, bytesTotal, vbString

C'est tout !

fg85 Messages postés 370 Date d'inscription dimanche 28 mars 2004 Statut Membre Dernière intervention 13 avril 2007
24 déc. 2004 à 01:40

Merci beaucoup c'est ce que je cherchait !!!

http://fg.logiciel.free.fr

cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
24 déc. 2004 à 01:19

Pour ta vitesse, tu peux utiliser l'API GetTickCount, grâce à elle, tu prends un temps en premier ensuite tu retranches pour savoir le temps écoulé. Tu prends le temps écoulé entre la réception de 2 packets. Par la suite, tu divises la taille du packet par le temps en MS écoulé que tu as trouvés et tu le remultiplies par 1000, de cette façon tu obtients une mesure très précise et tu peux faire la moyenne des 5 derniers packets pour évités que le compteur ai des fluxuations trop élevées.

Enfin j'ai pas regarder la source, mais je te donnes ce conseil.

@+

Discussions similaires

Mettre une pause en C#

Calcul d'une vitesse

Barre de recherche web

Afficher une barre de progression pendant le traitement d'une macro excel

recherche dans base mysql

Votre réponse

Discussions similaires