xxlbty
2019-04-04 13:26 阅读 639

delphi中的udpclient如何接收来自udpserver发送的消息?

udpclient需要先给udpserver发送消息,二者才能建立连接。
我自己简单写了一下client只能发送不能接收,问题在哪里呢?
还有就是udpclient在和调试器连接的时候是正常的能收能发,请各位大神请教!

procedure TForm1.FormCreate(Sender: TObject);
begin
IdUDPClient1.Active := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send('127.0.0.1', 8001, Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
begin
try
s := Form1.IdUDPClient1.ReceiveString();
if length(s) > 1 then
Form1.Memo1.Lines.Append(s);
finally

end;

end;

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

相关推荐