OnConnect消息,OnDisconnect也一样 with AThread as TIdPeerThread do begin //client IP sIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP; //client port sport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerPort; //目的ip dIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.IP; //目的端口 dport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.Port; end;
with AThread as TIdPeerThread do
begin
//client IP
sIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP;
//client port
sport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerPort;
//目的ip
dIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.IP;
//目的端口
dport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.Port;
end;