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
Так вот же вроде бы тут и записываю хендл потока в поле tcpstream .
Спасибо за функцию ReadAvail , но возникли проблема я подозреваю что что то я нето с типами делаю. потому что если с клиента слать что то на сервер реакции ноль как будто потока несуществует, посмотри пожалуйста правельно ли я с типом работаю пото му что подозрения что в поле типа ничего незаписывается , а в дебагере нет возможности проверить. Спасибо