procedure TLoginService.SimpleLoginServiceGetDispatchInfo( const aTransport: IROTransport; const aMessage: IROMessage); var tcpinfo: IROTCPTransport; begin if Supports(aTransport, IROTCPtransport, tcpinfo) then begin Session['ClientIP'] := tcpinfo.GetClientAddress; end;end;
const aTransport: IROTransport; const aMessage: IROMessage);
var
tcpinfo: IROTCPTransport;
begin if Supports(aTransport, IROTCPtransport, tcpinfo) then
begin
Session['ClientIP'] := tcpinfo.GetClientAddress;
end;end;