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 www.whatsmyip.net oder so) die Internet IP erföhrt und dann irgendwie kopiert oder so, aber wie gesagt ich finds nicht mehr und weis auch nicht wie das geht... MfG Matthias Volland |
Re: Internet IP herausfinden...
parse den text von www.meineip.de
|
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 22:03 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz