Indy UDP Server的
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
事件中为什么打不到TIdSocketHandle这个类了,是不是还要uses什么文件?还是我装的Indy
UDP控件有问题?
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
事件中为什么打不到TIdSocketHandle这个类了,是不是还要uses什么文件?还是我装的Indy
UDP控件有问题?
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的也差不多