wysyłanie jpg przez tcp

[pe_pe]

Func wyslij ()
Local $mainsocket
TCPStartup ()
$socket = TCPConnect ("127.0.0.1", 1234)
If $socket = -1 Then
MsgBox (64, "Błąd", "Nie mona wykonać połączenia")

EndIf
$open = FileOpen ($input_pobierz)
If $open = -1 Then
Exit
EndIf
$bufor = FileRead ($open)
FileClose ($open)
$sendbytes = TCPSend ($socket, BinaryLen ($bufor))
Sleep (50)
While BinaryLen ($bufor)
$sendreturn = TCPSend ($mainsocket, $bufor)
$bufor = BinaryMid ($bufor, $sendreturn + 1, BinaryLen ($bufor) - $sendreturn)
WEnd
TCPSend ($socket, "ok")
$filename=StringSplit($sFile, "\")
$filen=$filename[$filename[0]]
TCPSend($socket, $filen)
TCPCloseSocket ($socket)
TCPShutdown ()
EndFunc

 

czy moze ktos sprawdzic to i napisac czy jest to poprawne. jest to klient, ktory wysyla jpg do serwera.

we wczesniejszej funkcji jest fileopen dialog to wyboru pliku