Wie bekomme ich meine eigene IP?

[freak4fun]

Genau! Ich suchte nach einer Lösung, wenn MÖGLICH, ohne Komponente.

mfg
freak

[SubData]

Also ohne Komponente würde ich einfach die Windows IPconfig.exe ausführen und dann die zurück gegebenen Daten auslesen

[freak4fun]

Wie geht das?

Bei mir öffnet sich nur kurz ein DOS-Fenster und fertig.

mfg
freak

[SubData]

Die einfachste Methode wäre es einfach die Ausgabe von ipconfig in ne Datei umzuleiten und dann die Datei auslesen...

[_master_]

Extern:

Delphi-Quellcode:

uses winsock;

function GetIpAddress: string;
var phoste: PHostEnt;
  Buffer: array [0..100] of char;
  WSAData: TWSADATA;
begin
  result := '';
  if WSAStartup($0101, WSAData) <> 0 then exit;
  GetHostName(Buffer,Sizeof(Buffer));
  phoste:=GetHostByName(buffer);
  if phoste = nil then 
    result := '127.0.0.1'
  else 
    result := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
  WSACleanup;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption := GetIpAdress;
end;

[Kedariodakon]

Extern?

[Tyler]

Zitat von freak4fun:

Wie geht das?

Bei mir öffnet sich nur kurz ein DOS-Fenster und fertig.

mfg
freak

dann bist du wohl zu langsam mitm Lesen

Öffne erstmal die Kommandozeile (cmd.exe), und führe dann ipconfig aus.... dann sieht man mehr

[naimlzz]

Sauber!

Jetzt habt ihr mein Problem gleich mit gelöst

greetz
naimlzz

[MasterC]

Zitat von Tyler:

Zitat von freak4fun:

Wie geht das?

Bei mir öffnet sich nur kurz ein DOS-Fenster und fertig.

mfg
freak

dann bist du wohl zu langsam mitm Lesen

Öffne erstmal die Kommandozeile (cmd.exe), und führe dann ipconfig aus.... dann sieht man mehr

Aber auch nur die Lokale IP.

[Harry M.]

das hier sollte dein problem lösen

gruß delphicus

Delphi-Quellcode:

function getIPs: Tstrings; 
type 
  TaPInAddr = array[0..10] of PInAddr; 
  PaPInAddr = ^TaPInAddr; 
var 
  phe: PHostEnt; 
  pptr: PaPInAddr; 
  Buffer: array[0..63] of Char; 
  I: Integer;
  GInitData: TWSAData; 
begin 
  WSAStartup($101, GInitData); 
  Result := TstringList.Create; 
  Result.Clear; 
  GetHostName(Buffer, SizeOf(Buffer)); 
  phe := GetHostByName(buffer); 
  if phe = nil then Exit; 
  pPtr := PaPInAddr(phe^.h_addr_list); 
  I    := 0; 
  while pPtr^[I] <> nil do 
  begin 
    Result.Add(inet_ntoa(pptr^[I]^)); 
    Inc(I); 
  end; 
  WSACleanup; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines := GetIps;
end;