begin process at 2012 02 13 16:05:14
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > TRANSFERT DE FICHIER PAR WINSOCK, AVEC RESUME, PAUSE, VITESSE D'ENVOI, BARRE DE PROGRESSION...JOLIE INTERFACE

TRANSFERT DE FICHIER PAR WINSOCK, AVEC RESUME, PAUSE, VITESSE D'ENVOI, BARRE DE PROGRESSION...JOLIE INTERFACE


 Information sur la source

Note :
7,33 / 10 - par 6 personnes
7,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Niveau :Initié Date de création :23/12/2004 Date de mise à jour :25/12/2004 18:34:15 Vu / téléchargé :7 030 / 2 204

Auteur : retaks666

Ecrire un message privé
Commentaire sur cette source (33)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Permets de s'envoyer des fichier par winsock, comme d'hab j'ai pas trop commenté, je le fais si j'ai le temps promis


 Conclusion

Je remercie gobillot et jack du forum de cs pour leur aide.
Le seul hic est que la vitesse de réception me semble assez basse...

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

24 décembre 2004 16:30:02 :
J'ai fait une jolie interface vous me direz votre avis
24 décembre 2004 16:31:26 :
Oups, j'avais pas vu qu'on pouvait mettre la picture de la form en jpg, allez hop
24 décembre 2004 16:47:41 :
mise a jour du screen
25 décembre 2004 16:20:43 :
Voir les commentaires
25 décembre 2004 18:34:15 :
Optimisation de la fonction sendnext, plus de conversion byte to string, tout en string ;)

 Sources du même auteur

Source avec Zip Source avec une capture BASE DE DONNÉES V2 SANS ACCESS,UTILISABLE SOUS EXEL, CRYPTAG...
Source avec Zip Source avec une capture BASE DE DONNÉES SANS ACCESS, CRYPTAGE DES DONNÉES, ENREGISTR...
CRYPTAGE/DÉCRYPTAGE DE TEXTE PAR ASCII
RENDS TRANSPARENTE PUIS OPAQUE FENETRE AFFICHÉE(DE WINDOWS),...
CONVERSION BYTE <=> STRING <=> HEXA <=> DECIMAL...

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout

Commentaires et avis

Commentaire de max12 le 24/12/2004 01:19:55 administrateur CS

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.

@+

Commentaire de fg85 le 24/12/2004 01:40:25

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

http://fg.logiciel.free.fr

Commentaire de jack le 24/12/2004 03:47:59 administrateur CS

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 !

Commentaire de retaks666 le 24/12/2004 13:09:22

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

Commentaire de Mopii9 le 24/12/2004 13:36:04

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

Commentaire de retaks666 le 24/12/2004 13:37:40

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

Commentaire de ImmortalPC le 24/12/2004 15:04:39

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

Commentaire de WindPowa le 24/12/2004 16:57:38

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...

Commentaire de retaks666 le 24/12/2004 16:58:59

Merci mopii9

Commentaire de WindPowa le 24/12/2004 17:13:23

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

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

Commentaire de ImmortalPC le 24/12/2004 18:14:09

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

Commentaire de retaks666 le 24/12/2004 18:22:42

Merci windpowa ;)

Commentaire de WindPowa le 24/12/2004 19:57:30

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

Commentaire de ImmortalPC le 25/12/2004 00:29:37

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

Commentaire de jack le 25/12/2004 14:05:32 administrateur CS

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.

Commentaire de retaks666 le 25/12/2004 16:16:46

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.

Commentaire de retaks666 le 25/12/2004 18:42:08

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 ?

Commentaire de WindPowa le 25/12/2004 18:59:04

Absolument !

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

Commentaire de retaks666 le 25/12/2004 19:06:51

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

Commentaire de Minch le 07/01/2005 11:50:35

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

Commentaire de retaks666 le 07/01/2005 11:54:02

Merci minch

Commentaire de ana_adil le 10/01/2005 19:59:10

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

Commentaire de retaks666 le 10/01/2005 20:15:54

Merci ana :)

Commentaire de WindPowa le 11/01/2005 00:25:14

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

Commentaire de retaks666 le 11/01/2005 08:16:45

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

Commentaire de ana_adil le 16/01/2005 19:00:04

De rien ami ;)

Commentaire de ana_adil le 16/02/2005 21:25:12

j ai testè le code => tres long

Commentaire de retaks666 le 16/02/2005 23:36:55

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

Commentaire de SylvanusS le 12/11/2005 20:54:44

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 !

Commentaire de retaks666 le 13/11/2005 01:06:17

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 !

Commentaire de SylvanusS le 13/11/2005 11:50:17

okey

Commentaire de retaks666 le 11/12/2008 19:23:26

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

Commentaire de PAT9SAB le 09/10/2009 18:26:35

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

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,714 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales