Delphi Soap Uygulamasında Client Ip'ini Yakalamak

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;

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;

Delphi Soap Uygulamasında Client Ip’ini Yakalamak

yhackup

Bir cevap yazın Cevabı iptal et