Get Local and Global IP adresses

Öncelikle "%SYSTEMROOT%\system32\WinHttp.dll" pathindeki dll dosyasini Delphi idenize import edin.
Bu işlem için
"Componets > Import Componet" Menüsünden wizard penceresini açın.
gelen ekranda "Import a Type Library" seçeneğini seçerek "Next"e tıklayın.
"Add" butonunu tıklayıp open dialog ekranında belirttiğŸim pathi yazarak dll dosyasını seçin
Sonra "Next" diyerek gelen ekranda Componentin hangi palette gireceğini, Unitlerin hangi path altına alınacağını belirtin.
"Install to New Package" seçeneği ile bir package haline getirdikten sonra komponent aracını kurabilirsiniz.




Code:

U
Kod:
ses IdStack,WinHttp_TLB;



function GetLocalIPAddress():String;
begin
TIdStack.IncUsage;
try
Result := GStack.LocalAddress;
finally
TIdStack.DecUsage;