Ik wil een bestand sturen van client naar server/
Ik gebruik de code hier onder, maar krijg 1 kb teveel binnen.
Weet iemand wat er fout is ?
Alvast bedankt
Server
Client
Ik gebruik de code hier onder, maar krijg 1 kb teveel binnen.
Weet iemand wat er fout is ?
Alvast bedankt
Server
Code:
f1 = FreeFile()
Winsock2.GetData data
Open "d:\filename2.exe" For Binary As f1
Put f1, LOF(f1) + 1, data
Close f1
Code:
f1 = FreeFile()
Open "d:\filename1.exe" For Binary As f1
While Not EOF(f1)
Get f1, , data
Winsock1.SendData data
Wend
Close f1