高手来看一下吧,有关UDP！！！！！！！！！！！！！！(50分)

我现在写了一个C/S之间互相通讯的程序(只是简单的一问一答).请帮忙看看!
c: //获得本客户机的IP地址
LocalIP;
showmessage(LocalIP);
//开始传送口令
form1.IdUDPClient1.Active := True;
//form1.IdUDPClient1.Host:= '192.1.1.240'; //指定服务器方
form1.IdUDPClient1.Send('192.1.1.240',1024,'服务器你好!'+'@'+localIP);

s:var
aa:string;
begin
form1.IdUDPServer1.Active:=true;
aa:=form1.IdUDPServer1.ReceiveString();
showmessage(aa);
end;

服务器但是收不到信息,为什么?谢谢

在S端是象你这样收的吗？
要用事件吧　看看这样行不行：
procedure TChatForm.IdUDPServer2UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
str: TStringStream;
echo,temstr: String;
i: integer;
begin
str := TStringStream.Create('');
str.CopyFrom(AData,AData.Size);
str.DataString 里的东西就是你要得了

接受答案了.