Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Get Local and Global IP adresses

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Ö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;
 
Üst Alt