TCP problems

[Framp]

Hi, I've a problem developing a TCP code...

I can't send back a string from server to client...

Anybody know how can i solve my problem???

My server code :

[...]
While 1
$recv = TCPRecv( $ConnectedSocket,2048 )
    
if $recv = "0" then
$variable = Winlist ()
elseif $recv = "1" then
$variable = DriveGetType ( "D:" )
endif
If IsArray ($variable) = 1 Then
     $2send = _ArrayToString ($variable, "|")
else 
     $variable = $2send
endif
;Now i will try to send string... 
dim $ConnectedSocket = -1
$ConnectedSocket = TCPConnect($szIP_Accepted ,$nPORT)
TCPSend($ConnectedSocket,$2send)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Shit....

 
EndIf

Edited November 2, 2006 by Framp