CODICE: VISUAL BASIC
(x il moderatore: non c'era bisogno di chiudere il post, bastava dirlo... il vecchio post nn l'ho più letto...)
RIPOSTO
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
