[Conan Fedr]

Вообщем давно не программировал просьба ногами непинать ) да и вообще с сетью особенно серверной ее частью практически не работал раньше. Теперь вот захотелось написать простенькую сетевую пулялку. Для начала решил написать сеть и вот что получилось ) а ничего, немогу определить когда идет инфа через сокет а когда нет подробнее смотрите функцию read_sockets() в сервере или цикл в клиенте. Подскажите пожалуйста.

Сервер

;Player
Type TConnection
 Field tcpstream%
 Field id%
End Type
;Listen Server on port 7777
tcpserv = CreateTCPServer(7777)
If tcpserv <> 0 Then
 Print "Listen Server Started!"
Else 
 Print "Listen Server start Failed!"
EndIf
While True
 connection_accept(tcpserv)
 read_sockets()
 Delay 40
Wend
Function connection_accept%(tcps%)
 Local tcpst%
 tcpst = AcceptTCPStream(tcps)
 If tcpst Then
  Print "New user connected"
  WriteLine (tcpst,"You connect") ;temp
  new_connect.TConnection = New TConnection
  new_connect\tcpstream = tcpst
  Delete new_connect
  Return tcpst
 Else
  Return 0
 EndIf
End Function
Function read_sockets()
 For consock.TConnection = Each TConnection
  If 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 packet = ReadLine(tcp)
  Print packet
 EndIf
 Input Mesage$
 WriteLine(tcp,Mesage)
 Delay 25
Wend