1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
function Getip: string; var mWebModule : TWebModule; Dispatcher : IWebDispatcherAccess; begin Result := 'Tespit Edilemedi'; mWebModule := GetSOAPWebModule; if mWebModule <> nil then begin if Supports(mWebModule, IWebDispatcherAccess, Dispatcher) then Exit(Trim(Dispatcher.Request.RemoteAddr)); end; end; |