procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to newsocketList.Count-1 do
begin
TCustomWinSocket(newsocketList.Items[i]).SendText(Edit1.Text);
end;
end;
这个是群发的
我想弄个单发的因为本人刚接触Delphi不久 请高手指点
...全文
2522打赏收藏
delphi 服务器端给指定的客户端发送信息
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to newsocketList.Count-1 do begin TCustomWinSocket(newsocketList.Items[i]).SendText(Edit1.Text); end; end; 这个是群发的 我想弄个单发的因为本人刚接触Delphi不久 请高手指点