Eigene IP Adresse ermitteln

[Cicaro]

Hallo.

Ich dachte so etwas sollte eigentlich leicht in einem Forum zu finden sein, aber ich habe nichts gescheites gefunden.

Einfache Aufgabe: IP Adresse in der eigenen Delphi Anwendung ermitteln. Ob Array von 4 Zahlen oder String ist egal. Möglichst kurz und einfach sollte es sein, damit man es verstehen kann.

a) Generel: Wie kommt man an die eigene IP in einer Konsolen-Anwendung.
b) Sockets: Also ich arbeite eigentlich mit TClientSocket/TServerSocket, die nicht auf der Form liegen. Wie kann man die IP mit Hilfe der Delphi Unit "ScktComp" ermitteln ?
c) Welche anderen Formen gibt es die IP zu ermitteln (z.B. Indy etc.)?

Folgendes bietet Java kurz und knackig an:

Delphi-Quellcode:

String[] strings = InetAddress.getLocalHost().toString().split("/");
String myIP = strings[strings.length - 1];

Warum auch nicht Delphi in vergleichbarer Form ?

Das hier hab ich schon gesehen. Bitte nicht so etwas anbieten.

MfG