[problem] TCP/IP transfer danych

[wojtek333314]

Robiłem funkcję do przesyłania danych, zrobiłem tylko dla plików tekstowych ale potrzebne mi jest jeszcze dla .bmp i tu pojawia się problem...może ktoś zerknąć w czym leży błąd?

 

Funkcja przesyłająca:

func przeslijplik()
$otworz=FileOpen($plik,16)
$xz=FileRead($otworz)
TCPSend($Socket,$tranid&$xz&$tranid2) ;tranid i tranid2 sa do wychwycenia ze strumienia przychodzacego od serwera danych do transferu.
EndFunc

 

Odbierająca:

$binary=_StringBetween($recv,$tranid,$tranid2)
FileWrite(@ScriptDir&"\Plik.bmp",$recv)