我这有TIndyUDPClient和TIndyUDPServer的例子,你可以参考。
主要是设定好各自的端口。
server只要设置defaultPort并把Active打开.
client只要设置Host和port.
Client.Send('ddd');
就可以在server的OnUDPRead里收了.
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send('sss');
end;
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject;
AData: TStream;
ABinding: TIdSocketHandle);
var
s: string;
begin
SetLength(s, AData.Size);
AData.Read(s[1], AData.Size);
ShowMessage(s)
end;