ip ve mac adresimi nasıl görürüm ?

[osman_simsek]

internete çıktığım IP adresini ve ethernet kartımın MAC adresini nasıl alabilirim.
Delphi 6 kullanıyorum.
Şimdiden teşekkürler.

Bu arada içerik o kadar genişlemiş ki, aradığımı bulamıyorum. Daha önce bu konuda yazılmıştır eminim, hakkınızı helal edin.

[Kuri_YJ]

Selamlar,

Turbopower'ın bileşenleri var onlar ile bu istediğini bilgilere ulaşabilirsiniz sanırım. Turbopower Delphi Component'leri diye arattırın. Turbopower ücretsiz ve açık kaynak kodlu bileşenlerdir.

Kolay Gelsin

[osman_simsek]

turbo power internet professional bileşenini kurdum, ancak help dosyaları yeterli değil, sanırım bu işi görecek bi komponent ama hala nasıl kullanıldığını çözebilmiş değilim

[mkysoft]

Sanki Indy'nin TCPClient ve TCPServer bileşenleride bu bilgileri veriyordu. GetMACAdress fonskiyonu var diye hatırlıyorum.

[unicorn64]

internete çıkış IPnizi http://www.whatismyip.com http://www.ipadresimne.com gibi sitelere post yapıp dönen bilgiyi parse ederek alabilirsiniz.
MAC adresini de Registry den alabilirsin yada ipconfig /all komutunu çalıştırıp çıktısını bi dosyaya yazıp ordan alabilirsin

[ikutluay]

turbo power internet professional bileşenini kurdum, ancak help dosyaları yeterli değil, sanırım bu işi görecek bi komponent ama hala nasıl kullanıldığını çözebilmiş değilim

aradığınız olmayabilir ama yeterli olmadığı fikrinde değilim. gayet güzel helpleri filan var adamların.

ip ye gelince ;

ics içinde tracert componenti ping componenti var onlarla birşey yapabilrsiniz. mac ise registry de var ise işiniz daha kolay.

[G.Arkas]

Forma 1 tane label 1 tane button 1 tane de idhttp bileşeni ekle;
butonun onclick yordamına aşağıda ki kodu ekle.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var s:String; 
begin
s:=idhttp1.Get('http://checkip.dyndns.org');
s:=copy(s,77,14);
label1.caption:='İp Numaranız:  '+s;
end;

[serkan]

Macadresini ben aktivasyon işleminde şu şekilde alabiliyorum..

Kod: Tümünü seç

function GetPrimaryNicMacAddress : string;
type
  TGUID = record
    A, B: word;
    D, M, S: word;
    MAC: array[1..6] of byte;
  end;
var
  UuidCreateFunc: function(var guid: TGUID): HResult; stdcall;
  handle: THandle;
  g: TGUID;
  WinVer: _OSVersionInfoA;
  i: integer;
begin
  WinVer.dwOSVersionInfoSize := sizeof(WinVer);
  getversionex(WinVer);

  handle := LoadLibrary('RPCRT4.DLL');
  if WinVer.dwMajorVersion >= 5 then {Windows 2000 }
    @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreateSequential') 
  else
    @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreate');


  if UuidCreateFunc(g) = 0 then
  begin 
    Result := ''; 
    for i := 1 to 6 do
    begin
      if Result <> '' then Result := Result + '-'; 
      result := result + IntToHex(g.MAC[i], 2);
    end;
  end else result := '00-00-00-00-00-00';
end;

kullanımı:

Kod: Tümünü seç

macedit.Text:=GetPrimaryNicMacAddress;

[osman_simsek]

Macadresini ben aktivasyon işleminde şu şekilde alabiliyorum..

Kod: Tümünü seç

function GetPrimaryNicMacAddress : string;
type
  TGUID = record
    A, B: word;
    D, M, S: word;
    MAC: array[1..6] of byte;
  end;
var
  UuidCreateFunc: function(var guid: TGUID): HResult; stdcall;
  handle: THandle;
  g: TGUID;
  WinVer: _OSVersionInfoA;
  i: integer;
begin
  WinVer.dwOSVersionInfoSize := sizeof(WinVer);
  getversionex(WinVer);

  handle := LoadLibrary('RPCRT4.DLL');
  if WinVer.dwMajorVersion >= 5 then {Windows 2000 }
    @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreateSequential') 
  else
    @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreate');


  if UuidCreateFunc(g) = 0 then
  begin 
    Result := ''; 
    for i := 1 to 6 do
    begin
      if Result <> '' then Result := Result + '-'; 
      result := result + IntToHex(g.MAC[i], 2);
    end;
  end else result := '00-00-00-00-00-00';
end;

kullanımı:

Kod: Tümünü seç

macedit.Text:=GetPrimaryNicMacAddress;

mac adresini alma işimi gördü, ip yi henüz denemeden heyecanla bildireyim dedim

paylaşım için tüm arkadaşlara teşekkür ederim