複数のlabelでクライアントのホスト名を
表示させたいと思っています。
接続順に表示させるにはどのようにしたらよいでしょうか?
環境:Delphi6 personal
for i := 0 to conn-1 do
begin
rmhost := ServerSocket1.Socket.Connections[conn-1].RemoteHost;
(FindComponent('label' + IntToStr(i)) As TLabel).Caption:=rmhost;
end;
end;
現時点では、1番目のホスト名は表示できます。
しかし、2番目のホストを接続させると
1番目のホスト名が上書きされて表示されてしまいます。
例) user1 user2 → abc user2 → xyz xyz
勉強不足ですみません。よろしくお願いします。
rmhost := ServerSocket1.Socket.Connections[conn-1].RemoteHost;
この行の Connections のインデックス(conn-1) って
どこかで(どのように)変更してるの?
for文の前で
conn:=ServerSocket1.Socket.ActiveConnections;
とやって、接続中のクライアント数を取得させています。
>rmhost := ServerSocket1.Socket.Connections[conn-1].RemoteHost;
ここの[conn-1]を[i]にしてみたらどうなりますか.
>Mr.XRAYさん
[i]でしてみたところ、うまくいきました。
アドバイスありがとうございました。