Indy UDP Server的
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
事件中为什么打不到TIdSocketHandle这个类了,是不是还要uses什么文件?还是我装的Indy
UDP控件有问题?

解决方案 »

  1.   

    procedure TMsComTurnsThd.UDPServerUDPRead(Sender: TObject; AData: TBytes;
      ABinding: TIdSocketHandle);
    var
      UdpData, PeerIP, PeerPort: string;
    begin
      if Length(AData) = 0 then
        UdpData := ''
      else
        UdpData := BytesToString(AData); //, 0, MaxInt  PeerIP := ABinding.PeerIP;
      PeerPort := IntToStr(ABinding.PeerPort);  dispMsg('***接收到IP:' + PeerIP + '; Port:' + PeerPort + '; Data:' + UdpData +
        '; Len:' + IntToStr(Length(UdpData)));
      dispStatusMsg('收到网络 - IP:' + PeerIP + ':' + PeerPort + ' - 数据');   ....
    end;上面是Indy 10 的, 9的也差不多
      

  2.   

    你找到d7indy.hlp得帮助文件,常找缺少的 项,然后看他在那个单元,不就可以了么