-
Написал простой чат для сети
но не получаеться разослать полученое сообщения от одного клиента всем(присылается только ему)
Что вы можете посоветоватьprocedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
s:string;
begin
s:=AThread.Connection.readln;
AThread.Connection.writeln(s)
edit1.text:='';
memo1.Lines.Append(s);
end; -
Медвежонок Пятачок © (22.07.10 13:02) [1]посылаешь одному - вот и "присылается" только одному.
посоветуем тебе посылать всем, если хочешь, что бы получили все. -
Как всем послать
-
Медвежонок Пятачок © (26.07.10 10:21) [3]всем - это когда не только конкретному AThread'у:
IdTCPServer1Execute(AThread: TIdPeerThread);
а всем активным средам сервера. -
ну а как все активным то
-
Сергей М. © (26.07.10 16:24) [5]
-
Медвежонок Пятачок © (27.07.10 12:07) [6]ну а как все активным то
всем - это значит каждому.
берешь список всех и засылаешь каждому. ферштейн? -
Неа