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;

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐