🚀 go-pugleaf

>Marcin_g wrote in Article <4543afc2$1@newsgroups.borland.com>
>with Subject: How to check my IP, on 28.10.2006 20:30:10
>
>
>
>Hi,
>I write simple server (ServerSocket component in BCB6.0) application and I would like to check my IP address and/or internet connection accesibility. How to make this?
>Please help.

hello,

i've wrote a small indy9-app (BCB6) for that:

download at http://home.arcor.de/elmar-baumann/tools/wanip.exe

it gets the IP via HTTP-Request on http://checkip.dyndns.org !


void __fastcall TForm1::GetIP()  //called by OnButtonClick
{
 int a,b;
 AnsiString line;

 try
 {
  line = IdHTTP1->Get("http://checkip.dyndns.org");
 }
 catch (Exception &exception)
 {
  MessageBox(0,exception.Message.c_str(),"Connection Error",MB_OK);
 }

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

 IP = line.SubString(a+19,b-(a+19));

 Edit1->Text = IP;
}


Regards

Elmar Baumann



------------------------------------------------------------------------------
Indy9 NNTP Internet News Reader/Writer, E. Baumann Software 2005
�Online on IRC, irc.p2p-network.net, #CodersPlanet�

Portions of this Software are Copyright (c) 1993 - 2005, 
Chad Z. Hower (Kudzu) and the Indy Pit Crew 
<http://www.IndyProject.org/>