Текущий архив: 2003.06.16;
Скачать: CL | DM;

Вниз

Вопрос насчет tcpserver a   Найти похожие ветки 

← →
deep.1   (2003-04-11 12:53) [0]

Я знаю, это простой вопрос, но все-таки у меня ничего не получилось. Скажите, как переслать пакет принятый сервером на все клиенты?

---

← →
Dimok ©   (2003-04-11 16:27) [1]

Попробуй так!

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
tempstr: string;
i: integer;
begin
tempstr:=socket.ReceiveText;
for i:=0 to serversocket1.Socket.ActiveConnections do
begin
serversocket1.Socket.Connections[i].SendText(tempstr);
end;
end;

---

← →
deep.1   (2003-04-12 21:07) [2]

:) Спасибо попробую

---

← →
deep.1   (2003-04-12 21:09) [3]

:) Спасибо попробую
лол... в TidTCPSERVER такого вообще нет :)
Мне надо под Indy

---

← →
Polevi ©   (2003-04-13 17:22) [4]

тебе надо книжки читать

---

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

Текущий архив: 2003.06.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c