08/02/25 14:45:13
Indy10 TIdTcpServerの使い方が解らないです。
URLﾘﾝｸ(codezine.jp)
ここを参考にIndy9のdelphiソースをIndy10とBuilder2007に置き換えようとしています。
TCPサーバの例 以下行をどう記述すればよいのでしょうか。詳しい人教えてください。
// 接続しているクライアント全員に str を送信する
procedure TForm1.BroadcastMessage(str : string);
var
Count: Integer;
List : TList;
begin
List := IdTCPServer1.Threads.LockList;
try
for Count := 0 to List.Count -1 do
try
TIdPeerThread(List.Items[Count]).Connection.Write(str);
except
TIdPeerThread(List.Items[Count]).Stop;
end;
finally
IdTCPServer1.Threads.UnlockList;
end;
end;