GetIP - IP Adresse (im www) ermitteln

[scrat1979]

Hallo zusammen,

habe ein kleines Tool geschrieben, um seine aktuelle IP-Adresse in Internet (also auch z.B. hinter einem Router) zu ermitteln. Die IP wird dabei von "checkip.dyndns.com" ausgelesen. Wer Lust hat kann es ja mal testen, vor allem über die Funktion unter Windows VISTA wäre ich über Feedbacks dankbar, wurde unter WinXP kompiliert und getestet.

Thanks im Voraus,

SCRaT

P.S.: Wenn gewünscht kann ich den Source auch noch uppen.


[EDIT]
Bevor Fragen diesbezüglich kommen :-)

- Keine Installation notwendig
- Keine Registry-Einträge etc. ...
- Einfach entpacken - starten - Feedback - löschen - Fertig :-)

[Corpsman]

Cool

Also unter Win98FE funktioniert es.

Da bin ich sogar neugierig auf den source. Wenn du das schon so anbietest ;)

Auf jedenfall ist es ein Praktisches Tool.

[xZise]

Cool!
Funktioniert und Vista subber ;)
Aber es gibt da schon viele andere Internetdienste... z.B. "www.wieistmeineip.de" ;)

[phreax]

Zitat:

Zitat von xZise

Aber es gibt da schon viele andere Internetdienste... z.B. "www.wieistmeineip.de" ;)

oder auch auf checkip.dyndns.com :P

ich finde es ganz geschickt wenn man nich die ganzen ads angucken muss die es so auf wieistmeineip.de.de hat....

[ghost007]

nettes tool, aber wenn ich meine bin auf deinen sourcecode gespannt, würd ihn gern mit dem weg vergleichen, den ich in meinem chatprogramm verwende um die internet IP herauszufinden ;)

[EDIT]
es funktioniert bei mir (WinXP Home) einwandfrei
So ermittle ich die internet IP:
Um die dauerhafte verfügbarkeit zu gewehrleisten(es ist zwar unwahrscheinlich, das eine solche seite wie www.wieistmeineip.de mal offline geht, aber es kommt vor) zu können, lade ich die getip.php auf einen freespace von z.B. funpic.de oder ohost.de hoch.
Sourcecode der php datei:

Code:

<?php 
echo $REMOTE_ADDR; 
?>

Nun erstelle ich ein projekt mit z.B. folgendem code unter der verwendung der indys (hier indy9):

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=idHTTP1.Get(hier URL zu der getip.php eintregen, bei mir   z.B.'http://auspex.au.ohost.de/getip.php');
end;

end.

und schwupp schon hab ich meine internet IP
[/EDIT]

[scrat1979]

Vielen Dank für Euren Feedback :-)

Auf Wunsch habe ich nun meinen Source beigefügt. Habe dort auch 2 eigene (unwichtige) Komponenten verwendet, habe es entsprechend angepasst, so daß es bei allen auch ohne die Komponenten zu compilieren sein müsste...

Aso, ich habe es unter Turbo Delphi 2006 Pro compiliert.

Viel Spass!

SCRaT

[ghost007]

hi,
is ja im prinzip der gleiche ansatz, den ich verfolge, nur noch durch die verbindungs überprüfung verfeinert.

;)

[xZise]

Zitat:

Zitat von phreax

ich finde es ganz geschickt wenn man nich die ganzen ads angucken muss die es so auf wieistmeineip.de.de hat....

Wozu gibts ABP ^^

[wlfmario]

Hallo,

das Tool läuft unter Windoof XP Pro. Super.

[scrat1979]

Okay Jungs,

habe kurz mal das Programm erweitert, so dass eigene Server etc. konfiguriert werden können. Die Daten dazu werden in der Datei "hosts.ini" gespeichert und es lassen sich max. 20 Server verwalten. Der Syntax der INI-Datei muss exakt wie in meinen Beispielen gezeigt eingehalten werden, das es sonst zu unerwarteten Fehlern kommen kann.

Hoffe Ihr findet das ganz hilfreich... :-)
Und, jaaaa, ich weiß, man könnte noch vieles verbessern und Fehler abfangen. Aber ich habe momentan leider keine Zeit :-(

Folgendermaßen ist ein "Server-Datensatz" in der INI-Datei aufgebaut:

[DynDNS] --> erscheint in der ComboBox
url=checkip.dyndns.com --> Die URL, welche man auch im IE eingeben würde
starttag=Address: --> Eindeutige Zeichenkette VOR der IP-Adresse (s. z.B. HTML-Quelltext)
shiftright=2 --> Wie viele Zeichen nach ^^^^ beginnt die IP-Adresse?
stoptag=</html> --> Eindeutige Zeichenkenne NACH der IP-Adresse
shiftleft=8 --> Wie viele Zeichen VOR ^^^ endet die IP-Adresse?

Ich hoffe die kleine Erläuterung war brauchbar und Ihr könnt ggf. mit den vorhandenen Beispielen Eure eigenen "IP-Server" hinzufügen. Ach so, sollte vor der IP-Adrsse nichts stehen, dann ist "starttag=" sowie "shiftright=0" zu schreiben. Es darf nicht weggelassen werden. Ebenso verhält es sich, wenn NACH der IP-Adresse nichts mehr steht (analog "stoptag=", shiftleft=0).

SCRaT