Eigene IP Adresse ermitteln

[Cicaro]

Zitat von sirius:

a) Man nutzt die gleichen Möglichkeiten, wie in einer Formularanwendung. --> Frage ist obsolet
b) In dieser Unit gibt es dafür keine Funktionen oder Methoden

zu a) Geimeint war eine sehr kleine Anwendung ohne jegliche Delphi-Komponenten
zu b) Komisch, deine Variante 2 ist genau das, was ich gesucht hab, und die Methode stammt aus dieser Unit.

Also so funktioniert es für mich am besten:

Delphi-Quellcode:

var
  strIP: String;
  intIP: Integer;

begin
  with TClientSocket.Create(nil) do // TServerSocket geht auch
    begin
      intIP := Socket.LookupName('').S_addr;
      strIP := IntToStr(Byte(intIP)) + '.' + IntToStr(Byte(intIP shr 8)) + '.' + IntToStr(Byte(intIP shr 16)) + '.' + IntToStr(Byte(intIP shr 24));
      Free();
    end;
  Caption := strIP;
end;

Und ich hab nach der privaten IP Adresse gesucht. Die öffentliche ist die des Modem/Routers und die kann/will ich nicht wirklich für meinen Server benutzen.

Also demnach ist a), b) und c) beantwortet. Danke sirius!