Mostrar Temas
CLIENTE:
Código:
Private Sub command1_click()
Dim fragmento As Integer, ruta As String
Dim tamaño As Long
Dim contador As Long
Dim buffer As String
Dim archivo, lectura As String
archivo = FreeFile
contador = 0
ruta = "C:\hola.jpg"
Open ruta For Binary As #archivo
tamaño = FileLen(ruta)
ws.SendData "enviar|" & ruta & "|" & tamaño & "|"
fragmento = 8192 '8 kb
While contador < tamaño
lectura = Input(fragmento, #archivo) 'Leer 8 kb del archiv
ws.SendData lectura
contador = contador + 8192
Wend
Close #archivo
End Sub
SERVIDOR:
Código:
'Declaraciones globales:
Dim transfiriendo As Boolean
Dim ruta As String * 50
Dim tamaño As Long
Dim contador As Long
Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String, datos2() As String
ws.GetData datos
If Left(datos, 6) = "enviar" Then
datos2 = Split(datos, "|")
ruta = datos2(1)
tamaño = datos2(2)
transfiriendo = True
end sub
End If
If contador < tamaño Then
If transfiriendo = True Then
Open ruta For Binary Access Write As #1
Seek #1, LOF(1) + 1
Put #1, , datos
Close #1
End If
contador = contador + 8192
End If
If contador >= tamaño Then
transfiriendo = False
End If
End Sub