C++ Builder da IP No Ögren

[onur986]

//Formunuza bir adet Memo ,bir ade Label, bir adet idHttp Ekleyin
//internete bagli olmaniz gerekir;

AnsiString WhatIsMyIp()
{
AnsiString s,SearchIp,FoundIp ;
int IpLocate,i;
s = Form1->IdHTTP1->Get("http://www.whatismyip.com");
SearchIp = "Your ip is";
for (i = 1; i < 2; i++)
{
IpLocate = s.Pos(SearchIp);
if (IpLocate == 0)
{
Form1->Memo1->Lines->Add("Ip Bulunamadi yada İnternet Sayfasina Ulasilamiyor");
}
else
{
IpLocate = IpLocate + SearchIp.Length();
s = s.SubString(IpLocate,s.Length() -IpLocate);
s = s.Trim();
FoundIp = s.SubString(1, 14);
}
}
return FoundIp;
}
//örnek Program
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption = WhatIsMyIp();
}