IP Watcher

[Rastaman]

Hallo. Nach langer Zeit mal wieder n klitze kleines Prog
Hiermit kann man seine externe IP Adresse anzeigen lassen.
Ich hab es gemacht weil es nervt immer erst "www.wieistmeineip.de" oder meine routerseite aufzurufen.

Um die IP zu updaten auf "update" klicken

Das Prog lässt sich per "STRG + Space" verstecken und anzeigen.
Mit "STRG + C" zentrieren falls es mal aus dem Bildschirmrand kommen sollte.

Tjaaa das wars eigentlich schon

[DGL-luke]

aber die weiss man dann ja auch.....

[Rastaman]

@Pierre : Aber man kann sie dann nicht mal schnell kopieren ...

[Waldteufel]

Hi.

Strg+C ist ein (mittlerweile Standard-)Shortcut für "Kopieren". Den sollte man nicht für "Zentrieren" missbrauchen...

[edit2] *schnipp-schnapp* @phXql: Ich gebe mich geschlagen [/edit2]

[edit] Ansonsten [/edit]

[phXql]

Zitat von Waldteufel:

Hi.

Strg+C ist ein (mittlerweile Standard-)Shortcut für "Kopieren". Den sollte man nicht für "Zentrieren" missbrauchen...

Verbesserungsvorschlag: Überprüfe die IP-Adresse doch 1x pro Minute. Damit entfällt der (irgendwann nur noch lästige) Klick auf "Update"

[edit] Ansonsten [/edit]

nenn mir mal einen provider, wo man jede minute ne neue IP kriegt. Das mit ner minute is doch hier vollkommen überflüssig...

[Rastaman]

Welche Shortcuts würdet ihr denn nehmen ?

[Rastaman]

Oha jo!!
Mich schon gewundert warum meine zwischenablage spinnt...
Wegen STRG + C.
Wurde geändert in STRG + M (wie MITTE)

So long

[Catbytes]

Zitat von LoL:

@Catbytes: Was meinst denn du damit jeder Internet benutzer bekommt doch nur eine IP des ISP zugewiesen oder irre ich mich?

Hi,

konkretes Beispiel - steht direkt neben mir die Kiste

3 Netzwerkkarten mit insgesamt 5 festen IPs + ISDN-Karte, wo bei Bedarf Verbindung aufgebaut wird.

Was nicht schlecht wäre, um auch DynDNS zu unterstützen: Alle Minute die IPs aktualisieren und in Text-Datei schreiben oder gleich auf 'nen Server hochladen - dann kann man daheim seinen eigenen, kleinen WebServer fahren und ist, wenn die Zwangstrennung kommt, maximal 1 Minute Offline...

Edit: Natürlich sollte man seine festen IPs kennen. Doch bei mehr als 40 Stück verteilt auf knapp 10 Kisten, wird es schwierig

[Interceptor]

Vergiss den TWebBrowser um die IP zu ermitteln

Hier ist ein schönes Stückchen Code um sämtliche IP's (Netzwerk & Inet) zu ermitteln. Nicht vergessen die unit Winsock in den uses mit aufzunehmen.

Delphi-Quellcode:

uses
  Winsock;

{...}

function GetIPs: Tstrings;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: array[0..63] of Char;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := TstringList.Create;
  Result.Clear;
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[I] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;

Zur Anzeige eignet sich am besten ne List / Combobox

[Rastaman]

Super. Nur dass es mit Router nicht funktioniert
Ich bekomme nur 192.168.0.2 angezeigt. Mehr nicht.

[Luckie]

Wie ermittelst du denn die IP mit der TWebBrowser Komponente? Ich ahbe auf meiner HP einfach eine Seite liegen mit diesem Inhalt:

Code:

<?
print getenv("REMOTE_ADDR");
?>

Einfach auslesen und fertig.