IdUDPClient 控件怎么接收数据的？

[lxj_com2006]

IdUDPClient 控件怎么接收数据的？

[hongqi162]

var
ms:tmemorystream;
begin
......
idudpc.sendbuffer(ip,port,ms.memory^,ms.size);
......
end;

[hongqi162]

procedure FIdUDPServerUDPRead(
Sender: TObject; AData: TIdBytes; ABinding: TIdSocketHandle);
var
lReceiveLen:integer;
lCurrentReceiveBuf:array of byte;
begin
lReceiveLen:=Length(AData) ;
setlength(lCurrentReceiveBuf, lReceiveLen );
Move(AData[0],lCurrentReceiveBuf[0],lReceiveLen);
...
处理数据
end;

[lxj_com2006]

//ͨ¹ýSend·½·¨À´½øÐй㲥
procedure TForm1.Button1Click(Sender: TObject);
var
ReceivedString:String;
rStr : array[0..102400] of char;
ms:tmemorystream;
begin
//IdUDPClient1.Send(edtAddress.Text, 9999, edtContent.Text);
//ReceivedString := IdUDPClient1.ReceiveString();
//meoReceive.Text:=ReceivedString;
IdUDPClient1.Host:=edtAddress.Text;
IdUDPClient1.Port:=9999;
IdUDPClient1.Active:=True;

IdUDPClient1.Send(edtContent.Text);
//IdUDPClient1.SendBuffer(edtContent.Text,Length(edtContent.Text));
IdUDPClient1.ReceiveBuffer(rStr,102400);//,'192.168.184.1',9999); //,'192.168.184.1',9999
//ReceivedString := IdUDPClient1.ReceiveString();
//IdUDPClient1.sendbuffer(ip,port,ms.memory^,ms.size);

meoReceive.Lines.Add(rStr);
end;

[lxj_com2006]

procedure TForm1.Button1Click(Sender: TObject);
var
ReceivedString:String;
rStr : array[0..102400] of char;
ms:tmemorystream;
begin
IdUDPClient1.Host:=edtAddress.Text;
IdUDPClient1.Port:=9999;
IdUDPClient1.Active:=True;

IdUDPClient1.Send(edtContent.Text);
IdUDPClient1.ReceiveBuffer(rStr,102400);
meoReceive.Lines.Add(rStr);
end;

[lxj_com2006]

IdUDPClient 如何接收到IdUDPServer返回的数据。