Я могу ошибаться, но по-моему функция должна быть такой:
Function read_sockets()
For consock.TConnection = Each TConnection
If ReadAvail(consock\tcpstream)>0 Then
packet = ReadLine(consock\tcpstream)
Print packet
WriteLine(consock\tcpstream,"You message OK")
EndIf
Next
End Function
И в клиенте:
tcp = OpenTCPStream("127.0.0.1",7777)
If tcp Then
Print "connected"
Else
Print "not connected"
EndIf
While True
If ReadAvail(tcp)>0 Then
packet = ReadLine(tcp)
Print packet
EndIf
Input Mesage$
WriteLine(tcp,Mesage)
Delay 25
Wend
Если я правильно все понял...
ЮПД: Ах да, сервак ждет каждый раз нового клиента вроде. Ты должен записывать куда-нибудь указатель на поток )