D7中的UDPSocket怎么和D6中的UDP不一样啊？？OnReceive事件怎么不能触发呢？？？

[newfang]

D7没有了FastNet，InterNet中的UDP怎么用呢？？
偶研究了半天也木参透，望哪位高手支招！！！谢谢……

[newfang]

不会吧！！每人知道？？

[newfang]

再顶！！

[DragonCity1]

幫你頂
偶也在煙酒中.....

[Larkinboy]

最好自己写SOCKET

[qi7]

用indy的IdUDPServer吧，很好用。

[tfxg]

都只是控件而已嘛，找个MDEO就行了

[cdsgajxlp]

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
GetStream:TStringStream;
SoureString : String;
SendStr : String;
clientip: String;
begin
try
application.ProcessMessages;
GetStream:=TStringStream.Create('');
Try
GetStream.CopyFrom(AData,AData.Size);
SoureString:=GetStream.DataString;
clientip:=Trim(IdUDPServer1.Binding.PeerIP);
if SoureString<>'' then
begin
SendStr:='接受成功！';
ABinding.SendTo(ABinding.PeerIP,ABinding.PeerPort,SendStr[1],Length(SendStr));
end;
except
IdUDPServer1.Active:=false;
IdUDPServer1.Active:=true;
end;

finally
FreeAndNil(GetStream);
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
ReceiveString : String;
begin
IdUDPClient1.Send('sdfsdfsdf');
ReceiveString:=IdUDPClient1.ReceiveString();
if ReceiveString<>'' then
showmessage('成功了');
end;