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!