Скачать: CL | DM;

idtcpserver как разослать сообщение всем клиентам   Найти похожие ветки 

← →
ppgrachev ©   (2010-07-21 23:42) [0]

Написал простой чат для сети
но не получаеться разослать полученое сообщения от одного клиента всем(присылается только ему)
Что вы можете посоветоватьprocedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
s:string;
begin
s:=AThread.Connection.readln;
AThread.Connection.writeln(s)
edit1.text:="";
memo1.Lines.Append(s);
end;


---

← →
Медвежонок Пятачок ©   (2010-07-22 13:02) [1]

посылаешь одному - вот и "присылается" только одному.
посоветуем тебе посылать всем, если хочешь, что бы получили все.

---

← →
ppgrachev ©   (2010-07-26 00:05) [2]

Как всем послать

---

← →
Медвежонок Пятачок ©   (2010-07-26 10:21) [3]

всем - это когда не только конкретному AThread"у:

IdTCPServer1Execute(AThread: TIdPeerThread);

а всем активным средам сервера.

---

← →
ppgrachev ©   (2010-07-26 15:57) [4]

ну а как все активным то

---

← →
Сергей М. ©   (2010-07-26 16:24) [5]

http://delphimaster.net/view/6-1276752299/

---

← →
Медвежонок Пятачок ©   (2010-07-27 12:07) [6]

ну а как все активным то

всем - это значит каждому.
берешь список всех и засылаешь каждому. ферштейн?

---

← →
ppgrachev ©   (2010-07-27 18:09) [7]

Неа

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c