C++Builder相談室 Part18 - 暇つぶし2ch

C++Builder相談室 Part18 at TECH

442:デフォルトの名無しさん
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;

次ページ

続きを表示

1を表示