salve ragazzi avrei bisogno di un aiuto.
sto provando ad inviare file tramite winsock al server però il file nn mi arriva completo non riesco a capire la causa vi posto il codice del client:
dim isreceived as boolean
Private Sub SendFile(NomeFile As String)
Dim File_Chunk As String * 4000
Winsock1.SendData "FILE|" & NomeFile
DoEvents
Open NomeFile For Binary As #1
Do While Not EOF(1)
Get #1, , File_Chunk
Winsock1.SendData File_Chunk
iSreceived = False
Do
DoEvents
Loop Until iSreceived = True
Loop
Close #1
DoEvents
Winsock1.SendData "END|1"
MsgBox "FINITO!"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Dati As String
Dim s() As String
Winsock1.GetData Dati
s = Split(Dati, "|")
If s(0) = "RICEVUTO" Then iSreceived = True
End Sub
e questo è quello del ricevente o server:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Dati As String
Dim s() As String
Winsock1.GetData Dati
s = Split(Dati, "|")
If s(0) = "FILE" Then
Open App.Path & Mid(s(1), InStrRev(s(1), "\")) For Binary As #2
ElseIf s(0) = "END" Then
Close #2
Else
Put #2, , Dati
DoEvents
Winsock1.SendData "RICEVUTO"
End If
End Sub
a me sembra corretto, cosa ne pensate?? (es. ho inviato un pdf di 69 kb, ma mi è arrivato un file di 39/40 kb) da cosa può dipendere??
Grazie mille se vorrete aiutarmi
Francesco
