Delphi Soap Uygulamasında Client Ip’ini Yakalamak

Posted byyhackup
20 Mayıs 2017
in Posted in Yazılım / Delphi / Genel / İpucu / Yazılım
0

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;

borland delphi delphi development delphi language delphi pascal delphi programming delphi programming language

yhackup

Site Kurucusu & Yöneticisi Yazılım Geliştiricisi

yhackup

Bir cevap yazın Cevabı iptal et