Es werden nicht alle IP's angezeigt

[Helpliner]

Hallo Leutz,

ich möchte über folgende Funktion alle lokalen IP's ermitteln:

Delphi-Quellcode:

uses 
  WinSock; 

function GetLocalIPs: string; 
type 
  PPInAddr = ^PInAddr; 
var 
  wsadata  : TWSAData; 
  hostinfo : PHostEnt; 
  addr     : PPInAddr; 
begin 
  Result   := ''; 

  if(WSAStartUp(MAKEWORD(1,1),wsadata) = 0) then 
  try 
    hostinfo := gethostbyname(nil); 
    if(hostinfo <> nil) then begin 
      addr   := pointer(hostinfo^.h_addr_list); 

      while(addr^ <> nil) do begin 
        Result := Result + inet_ntoa(addr^^) + ^M^J; 
        inc(addr); 
      end; 
    end; 
  finally 
    WSACleanUp; 
  end; 
end;

Ich rufe die Funktion im OnCreate Ereigniss auf und weise das Ergebniss einem Panel zu.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Panel1.Caption := GetLocalIPs;
end;

Allerdings wird nur eine IP Adresse im Panel eingetragen obwohl 2 NIC's vorhanden sind die auch beide eine IP haben (ipconfig /all zeigt diese auch an - siehe Anhang).

Wo ist mein Denkfehler ?

[Helpliner]

Keiner eine Idee ??

[Jörn]

Also bei mir geht das wunderbar. Das einzige Problem das ich kenne ist wenn man über einen Router online geht, das meistens die IP die man im Internet hat, nicht mit angezeigt wird.

[Christian Seehase]

Moin Helpliner,

Zitat von Helpliner:

Wo ist mein Denkfehler ?

Eine Caption zeigt keine mehrzeiligen Texte an.

Lass Dir das Ergebnis der Funktion mal mit ShowMessage anzeigen. Es sollte dann nämlich stimmen.

[Helpliner]

Danke Christian, das hat Super geklappt, aber kann ich den Rückgabewert der Funktion jetzt auch irgendwie in ein Memo oder eine StringList einfügen ? Eigentlich sind String und TStrings ja inkompatibel.

[Luckie]

Beide (Memo und TStringlist) haben die Eigenschaft Text.

[Helpliner]

Arghhh OK....blöde Frage!
Jetzt geht alles - vielen Dank an euch