掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
特定クライアントに返信するには？ (ID：7983)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
例えば、クライアントに接続する前にそのクライアントのハンドル名を Edit1に書き込んでおいて、それをDataに保存。 クライアントの誰か1人に返信する時は、例えばEdit2にそのハンドル名を入れておいて… type TClientData = class Name : string; .... end; procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); var cd : TClientData; begin cd := TClient.Create; cd.Name := Edit1.Text; Socket.Data := cd; ... end; procedure TForm1.SendMessageToUser(msg : string); var i : Integer; cd : TClientData; begin for i:=0 to ServerSocket1.Socket.ActiveConnections - 1 do begin cd := TClientData(ServerSocket1.Socket.Connections[i].Data); if cd.Name = Edit2.Text then ServerSocket1.Socket.SendText(msg); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.