Вопрос насчет 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

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

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