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

Question

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

Answer 1

用indy的IdUDPServer吧，很好用。

Answer 2

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

Answer 3

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;