how send file betwen client and server

[jakalspop 0]

how send file between client and server

if code for client

open = FileOpen($filepp, 16)

While 1
    $Read = FileRead($open, 1024)
    If @error Then ExitLoop
    TCPSend($ConnectedSocket, $Read)
WEnd

if code for server

While 1
        $rev = TCPRecv($ConnectedSocket, $nPORT)
        If @error Then ExitLoop
        FileWrite($open,$rev)
    WEnd

the server still loop the While 1

how i can fixed that

[PsaltyDS 28]

Did you look at the examples in the help file under TCPSend() and TCPRecv()? What you posted here is missing lots of parts.