Вообщем пишу чат на б3д, так вот столкнлся с проблемой : отправляю сообщение на сервер, оно принимается и показвыается, а вот как отпрвавить обратно на клиент я не знаю, вот код севера Code
; Ãðàôè÷åñêèé Ðåæèì
Graphics 440,280,32,0
AppTitle ReadINI("config.ini", "title")
server = CreateTCPServer(ReadINI("config.ini", "port"))
While Not KeyHit(1)
accstream = AcceptTCPStream(server)
If Not server Then
RuntimeError "Íåâîçìîæíî ñîçäàòü ñåðâåð, ïðîâåðüòå íàñòðîéêè ïîðòîâ."
While Not KeyHit(1)
Wend
Else
Text 0,0, "Ñåðâåð "+ ReadINI("config.ini", "title") +" çàïóùåí"
EndIf
If accstream Then
While Not Eof(accstream)
Print ReadString$(accstream)
Wend
EndIf
Wend
код клиента
Code
Graphics 440,280,32,0
AppTitle ReadINI("config.ini", "title")
getstream = OpenTCPStream(ReadINI("config.ini", "ip"), ReadINI("config.ini", "port"))
If Not getstream Then
RuntimeError "Íåâîçìîæíî ïðèñîåäåíèòüÿ ê ñåðâåðó, ïðîâåðüòå íàñòðîéêè ñîåäåíåíèÿ."
While Not KeyHit(1)
Wend
Else
Text 0,0, "Êëèåíò "+ ReadINI("config.ini", "title") +" çàïóùåí"
EndIf
WriteString getstream, ""
WriteString getstream, "Ïîëüçîâàòåëü "+ ReadINI("config.ini", "username") +" âîøåë â êîìíàòó, Äàòà âõîäà "+ CurrentDate$() +", Âðåìÿ âõîäà "+ CurrentTime$() +""
WriteString getstream, ""
If getstream Then
While Not Eof(accstream)
Print ReadString$(accstream)
Wend
EndIf
While Not KeyHit(1)
Wend
