Hola amigo prueba a esta forma que ami aun no me a dado nungin problema!!
Cliente:
1 winsock = ws
1 Barra de Proceso = ProgressBar1
Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean
Private Sub Form_Load()
ws.LocalPort = 1000
ws.Listen
Envio = False
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
If Envio = True Then
DataFile = DataFile & data
ProgressBar1.Value = Len(DataFile)
If Len(DataFile) = LenFile Then
Open "C:\WebCam\image.bmp" For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
ProgressBar1.Value = 0
End If
End If
If Left(data, 4) = "Tam:" Then
LenFile = Mid(data, 5)
ProgressBar1.Max = LenFile
Envio = True
ws.SendData "SendFile"
End If
End Sub
[/color]
Servidor:
1Winsock = ws
Private Sub Form_Load()
ws.Close
ws.Connect "comunidad-archangel.no-ip.info", 1000
End Sub
Private Sub ws_Connect()
ws.SendData "Tam:" & FileLen("C:\image.bmp")
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim Send As String
ws.GetData data
If Left(data, 8) = "SendFile" Then
Open "C:\image.bmp" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1
ws.SendData Send
End If
End Sub
Como podras ver el servidor le envia al cliente archivos..
si tienes alguna duda!! dejala y te la resolveremos..
Salu2
Ranslsad
[/color]