Transfert de fichiers via winsock-ca marche a 100%.

Télécharger le projet
Commenter

Description

Voici encore un code qui permet d'envoyer des fichiers via Winsock. Il se differencit des autres parceque il est sous forme d une fonction, et donc qui peut etre adapte a n'importe quel code.

Source / Exemple : 


Dim CheckFileAva As Boolean

Public Sub Senddata(FileName As String, WinsockName As Winsock)
Dim temp As String
Dim BlockSize As Long
Open FileName For Binary Access Read As #1
BlockSize = 4096
Do While Not EOF(1)
temp = Space$(BlockSize)
Get 1, , temp
WinsockName.Senddata temp
DoEvents
Loop
WinsockName.Senddata "end"
Close #1
End Sub

Public Sub Receivedata(WinsockName As Winsock, FileNametoSave As String)
Dim temp As String
Dim data As String
WinsockName.GetData data
If CheckFileAva = False Then
Open FileNametoSave For Binary Access Write As #2
CheckFileAva = True
ElseIf CheckFileAva = True Then
DoEvents
End If
temp = data
If temp = "end" Then
Close #2
CheckFileAva = False
MsgBox "Transfer Success"
Else
Put 2, , temp
End If
End Sub

Conclusion :


Voici les deux fonctions pour le trasnfert de fichiers via Winsock. Dans le .zip, il y a les deux applications Client et Server. Le Client envoie n'importe quel fichier au Server avec succes. Le transfert des fichiers est construit a base de ces deux fonctions contenues dans le module "File Transfert" du .zip. (Le Client envoi seulement, donc il utilise que la fonction d'envoi, et inversement pour le Server). Il reste juste a regler l'envoi du nom du fichier + son extension. En cas de questions, mon mail: greeksonic@hotmail.com
I Ellada pire to Euro malakes!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (lektrosonic)