![]() |
Internet IP herausfinden...
Hi,
ich denke die Frage gabs schon mal aber ich habe nix in der Suche und bei Google gefunden, deshalb stelle ich die Frage noch mal hier: Ich möchte meine Internet-IP herausfinden und dann mit einem Label anzeigen... Wie kann ich das machen? Ich erinnere mich dunkel dass ic´h mal irgendwo gelesenhabe, dass man auf ner HP (irgendwie ![]() MfG Matthias Volland |
Re: Internet IP herausfinden...
parse den text von
![]() |
Re: Internet IP herausfinden...
Hi,
erst mal danke für die Antwort, aber genau das ist ja mein Problem - ich weis nicht wie das geht!!! MfG Matthias Volland |
Re: Internet IP herausfinden...
Delphi-Quellcode:
uses ..., WinSock;
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
function GetIPAddress: String; var PHoste: PHostEnt; Buffer: array [0..100] of Char; WSAData: TWSADATA; begin Result := ''; if WSAStartup($0101, WSAData) <> 0 then Exit; GetHostName(Buffer, SizeOf(Buffer)); PHoste := GetHostByName(buffer); if phoste = nil then Result := '127.0.0.1' else Result := StrPas(Inet_NToa(PInAddr(phoste^.h_addr_list^)^)); WSACleanup; end; begin ShowMessage(GetIPAddress); end; |
Re: Internet IP herausfinden...
Hi Daniel B,
den Quelltext hab ich, aber der zeigt nur die lokale IP an, mir gehts aber um die Internet IP!!! MfG Matthias Volland |
Re: Internet IP herausfinden...
Ich kriege damit meine Internet-IP raus.
|
Re: Internet IP herausfinden...
Hängst du eventuell hinter einem Router?
|
Re: Internet IP herausfinden...
Nee, ich habe keinen Router, nur das DSL-Modem...
MfG Matthias Volland |
Re: Internet IP herausfinden...
Hab auch nur ein DSL-Modem dran, nix Netzwerk oder ähnliches. Es muss auch bei Dir gehen, was bekommst Du denn in der Message angezeigt?
|
Re: Internet IP herausfinden...
Da steht nur 192.168.1.1 und das ist meine lokale IP,
ich hab auch mal im Internet geguckt, die ist halt anders!!! MfG Matthias Volland |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:31 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz