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;