Ciao a tutti .. ho provato a usare il winsock per trasferire un file dal server al client.. il client si connette perfettamente al server , il problema nasce quando cerco di inviare un file (immagine) dal server al client.. Mi si crea il file dell'immagine ma dice che l'immagine è vuota o che non è visualizzabile .. mi potreste aiutare ? Grazie
Il codice del client per il trasferimento è questo :
codice:
Private Sub Command2_Click()
Const FileDaAprire As String = "C:\Users\user\desktop\immagine.jpg"
Dim N As Integer
Dim c As Long
Dim P As Byte
N = FreeFile
Open FileDaAprire For Binary Access Read As #N
c = 0
Do Until c = LOF(1)
c = c + 1
Get #N, c, P
invia = invia & Str(P)
DoEvents
Winsock1.SendData invia
Loop
Close #N
Server :
codice:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData dati, vbString
Open "C:\Users\user\desktop\immaginericevuta.jpg" For Binary Access Write As #9
Put #9, , dati
Close #9
End Sub
C'è qualcosa che sbaglio ?