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

**Rastaman**

Jo aber ich habs noch in einem Textfeld stehen.

**shmia**

Zitat von 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.

Ich wette, keiner von Euch hat meinen Betrag über das Programm IPGet wirklich richtig gelesen.
Hier nochmals das Grundprinzip, wie man die eigene IP, mit der man im Internet arbeitet, herausfindet.
Und zwar unabhängig davon, ob ein Router oder ein Proxy-Server dazwischen ist:

Man stellt eine HTTP-Anfrage an eine der folgenden URLs und wertet das Ergebnis aus:

http://checkip.dyndns.org

http://checkip.dyndns.org:8245

http://ipdetect.dnspark.com

http://ip.ChangeIP.com/ip.asp

http://www.dnsart.com/myip.php

http://www.dnsart.com:7777/myip.php

http://dynupdate.no-ip.com/ip.php

http://update.dynu.com/basic/ipcheck.asp

http://dynamic.zoneedit.com/checkip.html
Das Ergebnis sieht ungefähr so aus:

markieren

Code:

			<html>

<head>

<meta http-equiv="Expires" content="Tues, 04 Dec 1996 21:00:00 GMT">

<meta http-equiv="pragma" content="no cache">

<title>IPDetect.DNSPark.com</title>

</head>

<body>

Current Address: 211.186.108.69

</body>

</html>

Jetzt muss man nur mit etwas Stringverarbeitung die IP-Adresse herausziehen.
Dazu braucht man keinen TWebBrowser (zu viel Overhead) und WinSock wäre zu systemnah.
Ein Web-Seite lässt sich mit ganz wenig Aufwand downloaden:

markieren

Delphi-Quellcode:

			uses ...,WinINet;

function DownLoadInternetFile(const Source, Dest : String): Boolean;

begin

   Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0

end;

...

DownloadInternetFile('http://ipdetect.dnspark.com', 'C:\IP.txt');

**Luckie**

@shmia: Nichts anderes mache ich auch, nur dass ich meine eigene PHP Seite benutze, weil ich da nichts mehr rauskopieren muss.

**shmia**

Zitat von Luckie:

@shmia: Nichts anderes mache ich auch, nur dass ich meine eigene PHP Seite benutze, weil ich da nichts mehr rauskopieren muss.

Dann verrate hier doch die URL deiner PHP Seite,
dann nehmen alle nur noch diese und du bekommt mehr Traffic.

**Luckie**

myip.php Nur hatte mein Webhoster gestern Nachmittag einen Fetsplattencrash und seit dem sind sie dabei das wieder hinzukriegen:

Zitat:

Festplattenschaden

Es erfolgt derzeit eine Wiederherstellung der Webdaten, die bis voraussichtlich 16:00Uhr andauern wird. Hierdurch steht bis zu dieser Uhrzeit kein FTP- sowie HTTP-Dienst zur Verfügung. Der E-Mail-Dienst (POP3/SMTP) wird über einen Backupserver zur Verfügung gestellt, so dass Sie alle E-Mails erhalten und senden können. Wir danken für Ihr Verständnis.

Der Code:

zusammenfalten · markieren

Delphi-Quellcode:

			function GetTempDir: string;

var

  Buffer: array[0..MAX_PATH - 1] of Char;

  Len: DWORD;

begin

  result := '';

  Len := GetTempPath(sizeof(Buffer), Buffer);

  if Len > 0 then

    SetString(result, Buffer, Len);

end;

function GetTempName(const aDir: string): string;

var

  Buffer: array[0..MAX_PATH - 1] of Char;

  uUnique: DWORD;

begin

  result := '';

  if aDir <> '' then

  begin

    uUnique := GetTempFileName(@aDir[1], '$IP', 0, Buffer);

    if uUnique <> 0 then

      result := string(Buffer);

  end;

end;

procedure DownloadFile(URL: string; Filename: string);

begin

  URLDownloadToFile(nil, PChar(Url), PChar(Filename), 0, nil);

end;

zusammenfalten · markieren

Delphi-Quellcode:

			TempFilename := GetTempName(GetTempDir);

  DownloadFile(URL, TempFilename);

  AssignFile(F, TempFilename);

{$I-}

  Reset(F);

{$I+}

  s := '';

  if IOResult = 0 then

  begin

    while not EOF(F) do

      Readln(F, s);

  end;

  CloseFile(F);

  DeleteFile(pointer(TempFilename));

**Rastaman**

Luckie du machst es dir wie immer unnötig schwer

markieren

Delphi-Quellcode:

txtIP.Text := WB.OleObject.Document.Forms.Item(0).Elements.Item(0).Value;

Fertig

Die paar kb für den Webbrowser bringen dich schon nicht um

[edit1] Soweit ich weiß brauch man URLMon und nicht WinInet um URLDownloadToFile zu benutzen [/edit1]

[edit2] Ok überredet URLMon is viel kleiner

[/edit2]

**Luckie**

Nein das ist nicht unnötig schwer, da nicht jeder TWebBrowser zur Verfügung hat. Dann barucht man mit meiner Methode auch nicht das ActiveX zu importieren. Ist somit mit jeden Delphi kompilierbar.

Rastaman Turbo C++	#21 25. Mai 2005, 11:55 Jo aber ich habs noch in einem Textfeld stehen.
	Zitat

Luckie Delphi 2006 Professional	#23 25. Mai 2005, 14:20 @shmia: Nichts anderes mache ich auch, nur dass ich meine eigene PHP Seite benutze, weil ich da nichts mehr rauskopieren muss. Michael
	Zitat

shmia Delphi 5 Professional	#24 25. Mai 2005, 14:42 Zitat von Luckie: @shmia: Nichts anderes mache ich auch, nur dass ich meine eigene PHP Seite benutze, weil ich da nichts mehr rauskopieren muss. Dann verrate hier doch die URL deiner PHP Seite, dann nehmen alle nur noch diese und du bekommt mehr Traffic. Andreas
	Zitat

Luckie Delphi 2006 Professional	#27 25. Mai 2005, 17:39 Nein das ist nicht unnötig schwer, da nicht jeder TWebBrowser zur Verfügung hat. Dann barucht man mit meiner Methode auch nicht das ActiveX zu importieren. Ist somit mit jeden Delphi kompilierbar. Michael
	Zitat

IP Watcher

Forumregeln