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
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