Meine IP-Nummer mit Indy9

aton

Grünschnabel
Hier ist ein Tutorial für Beginner, wie man seine eigene IP-Nummer herausfinden kann,
ohne Routerabfrage etc. !

Dazu wird lediglich ein Formular mit Editfeld und Button benötigt - sowie ein IDHttp-Objekt
aus der Indy9/10 Komponentenbibliothek.

Der ganze Programmablauf findet im TButton EventHandler statt (OnButtonClick). . . .


HTML-Code von http://checkip.dyndns.org in einen AnsiString kopieren.
IP-Nummer aus dem HTML-Code parsen.
IP-Nummer in das TEdit Feld schreiben.

Programmcode:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a,b;
AnsiString IP,html;

html = IdHTTP1->Get("http://checkip.dyndns.org");

a = html.Pos("Current IP Address:");
b = html.Pos("</body>");

IP = html.SubString(a+19,b-(a+19));
Edit1->Text = IP;
}



Beachtet dass das laufende Programm eine Internetverbindung benötigt. Das Executable
könnt Ihr hier downloaden: http://home.arcor.de/elmar-baumann/tools.htm
 
Zurück