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 :mrgreen:

[freak4fun]

Wie geht das? :shock:

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:

Zitat von freak4fun

Wie geht das? :shock:

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

mfg
freak

dann bist du wohl zu langsam mitm Lesen :P

Ö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 :-D

greetz
naimlzz

[MasterC]

Zitat:

Zitat von Tyler

Zitat:

Zitat von freak4fun

Wie geht das? :shock:

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

mfg
freak

dann bist du wohl zu langsam mitm Lesen :P

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

Aber auch nur die Lokale IP. :wink:

[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;