Gibt es denn in Delphi 6 oder 7 keine Möglichkeit, die eigene
IP anzeigen zu lassen, ohne groß rumzaubern zu müssen? In Delphi 3 ging das einfach so:
procedure TfrmChat_Server.btnListenClick(Sender: TObject);
begin
TCP.Close;
TCP.LocalPort := 1000;
edtIP.Text :=
TCP.LocalIP; // <----------
btnListen.Enabled := false;
btnClose.Enabled := true;
end;
Wenn man mit dem lokalen Netzwerk oder auch dem Internet verbunden ist, wird automatisch die entsprechenede eigene
IP angezeigt; ist keine Winsock-Verbindung geöffnet, wird die lokale Standard-
IP angezeigt, also 127.0.0.1.
Aber in Delphi 6 habe ich das leider auch noch nicht hingekriegt; es erscheint immer 0.0.0.0, egal ob ich mit dem Internet verbunden bin oder nicht.