Передача данных через TCP

[Miha]

Просмотрел туторы и т.п. и не нашел нигде описания как допустим сервер получил некие данные от клиента, а в ответ отправить ему другие?
Т.е. неужели на сервере создавать отделый поток для каждого клиента и отправлять им, а у каждого клиента создавать сервер для входящего потока???

[impersonalis]

[булко-стайл]
безусловно - это вопрос из области 3D-программирования.[/булко-стайл]

[Crayzi]

Сервер:

tm=CreateTimer(60)
svrGame=CreateTCPServer(8080) 

While Not KeyHit(1)
WaitTimer(tm)
strStream=AcceptTCPStream(svrGame) 
If strStream Then 
	Print ReadLine$(strStream);Читаем что прислал клиент.
	WriteLine strStream,"test compleate";Отправляем клиенту сообщение "test compleate"
End If
Wend

Клиент:

strmGame=OpenTCPStream("192.168.137.196",8080) 
tm=CreateTimer(60)
While Not KeyHit(1)
WaitTimer(tm)
If KeyHit(2)
	WriteLine strmGame,"test" 
EndIf
If ReadAvail(strmGame)>0
   Print ReadLine$(strmGame);Читаем сообщение сервера.
EndIf 
Wend

[Miha]

Опа!!!! Спаси Боххх!!!

[Crayzi]

Еще почитай эту тему, тут насчет TCP много чё написано.

П.с. impersonalis тебе пытался намекнуть что ты тему не в том разделе создал.

[Miha]

Спасибо!!!

П.с. impersonalis тебе пытался намекнуть что ты тему не в том разделе создал.

Дя я уже понял, просто так проникся проблемой, что не учел такое вот условие!