Lokal Ip numarasını ögrenmek ?

[gkimirti]

Programın calıstıgı makinanın lokal ip sini nasıl bulurum.
Farklı windows os lerde sorunsuzca lokal ip yi elde edebilirmiyim.

[Asri]

delphi 7 de indy misc bölümünde IP olarak bir component mevcut

Kullanımı;

Kod: Tümünü seç

 label1.caption:=IdIPWatch1.LocalIP;

kolay gelsin

[gkimirti]

saolasın, ise yarıyor.

[tachibana]

Bende Delphi 6 var. Onda nasıl yapabiliriz aynı işlemi?

[Asri]

Hazır bulduğum bir kod denemedim. Çalışıp çalışmadığını bildirirsen sevinirim.

iyi çalışmalar.

Kod: Tümünü seç

uses
  Winsock;

function GetLocalIP: string;
var
  wsaData: TWSAData;
  addr: TSockAddrIn;
  Phe: PHostEnt;
  szHostName: array[0..128] of Char;
begin
  Result := '';
  if WSAStartup($101, WSAData) <> 0 then
    Exit;
  try
    if GetHostName(szHostName, 128) <> SOCKET_ERROR then
    begin
      Phe := GetHostByName(szHostName);
      if Assigned(Phe) then
      begin
        addr.sin_addr.S_addr := longint(plongint(Phe^.h_addr_list^)^);
        Result := inet_ntoa(addr.sin_addr);
      end;
    end;
  finally
    WSACleanup;
  end;
end;

[vkamadan]

merhaba ,
ben delphi 5 de, TNMHTTP.localIP kullanıyorum bütün OS lerde sorunsuzca çalışıyor.
kolay gelsin.

[doganzorlu]

Selam,

ipconfig çıktısını parse ederek de bulabilirsiniz. Birden fazla ip varsa (alias) hepsini bulabilir, subnet ve gw bilgilerini de derleyebilirsiniz aynı yerden. Win98 ve üstünde bu komut çalışır.

Kolay gelsin,

[Berdem]

@Volkan
DNS ip adresini veriyor mu?(http://www.showmyip.com)
Bu komponent serisini nerde buluruz.
Teşekkürler...

[vkamadan]

merhaba,
Delphi5 de FastNet bileşen tabında bulabilirsiniz bu componenti.
bildiğim kadarıyla sadece LocalIP yi veriyor.

[Berdem]

DNS ip adresini delphide nasıl alabiliriz.?

[fduman]

Selam,

ipconfig çıktısını parse ederek de bulabilirsiniz. Birden fazla ip varsa (alias) hepsini bulabilir, subnet ve gw bilgilerini de derleyebilirsiniz aynı yerden. Win98 ve üstünde bu komut çalışır.

Kolay gelsin,

Win98 de bu Winipcfg değil miydi?

[hdayi]

winipcfg var 98'de ama ipconfig'de var.

Kod: Tümünü seç

ipconfig /all 

ile dns, ip, mac adres gibi bilgilerin tamamı görülebilir. Ben bir ara mac adresi almak için kullanmıştım.