الموقع بدقة مع علم البلد Api

[onexite]

السلام عليكم
في الاصل هذا برنامج لتغيير البروكسي صنعته منذ مدة ليست بالبعيدة ولا القريبة
وهذه الخدمة تقدم لكم المعلومات من ip والنتيجة تكون اما xml او json
باستخدام الطريقة الاولى
معلومات اضافية

• لا تنسوا اضافة uses superobject;
  
• اذا لم ترد ip معين معلومات الجهاز فقط فاحذف ip
  
• تريد نوع الجواب xml فاستخدم
  PHP كود :

  [*]http://api.ipinfodb.com/v3/ip-city/?key=725b4fc2190b0ac507d281ea20b491e2d80e484a40e887cf05e32f796934168a&format=xml

[*] 

  
  
• وللمزيد من المعلومات
  
• PHP كود :

  [*]http://ipinfodb.com/ip_location_api.php
[*] 


الكود كامل

PHP كود :

procedure TForm1.btn2Click(Sender: TObject);
var json:string;
  ms : TMemoryStream;
  png: TPNGGraphic;


begin
img1.Picture:=nil;
json:=idhtp1.Get('http://api.ipinfodb.com/v3/ip-city/?key=725b4fc2190b0ac507d281ea20b491e2d80e484a40e887cf05e32f796934168a&format=json&ip='+edt1.Text);
sMemo1.Clear;
sMemo1.Lines.Add('_CountryName : '+so(json)['countryName'].AsString) ;
sMemo1.Lines.Add('_RegionName : '+so(json)['regionName'].AsString) ;
sMemo1.Lines.Add('_CityName : '+so(json)['cityName'].AsString) ;
sMemo1.Lines.Add('_ZipCode : '+so(json)['zipCode'].AsString) ;
sMemo1.Lines.Add('_Latitude : '+so(json)['latitude'].AsString) ;
sMemo1.Lines.Add('_Longitude : '+so(json)['longitude'].AsString) ;
sMemo1.Lines.Add('_TimeZone : '+so(json)['timeZone'].AsString) ;
      png  := TPNGGraphic.Create;
      ms := TMemoryStream.Create;
       try
       try
 
   //countryCode
      Application.ProcessMessages;
    idhtp1.Get('http://static.hidemyass.com/flags/'+LowerCase(so(json)['countryCode'].AsString)+'.png',ms);
   ///MS.Seek(0,soFromBeginning);
    ms.Position:=0;
    png.LoadFromStream(ms);
    img1.Picture.Assign(png);
    except
      end;
      finally
      png.Free;
      ms.Free;
      end; 


[HaMooD]

جزاك الله كل خير ، ولكن هل بالإمكان إضافة مثال توضيحي لمبرمج مبتدئ مثلي

تحياتي

[onexite]

جزاك الله كل خير ، ولكن هل بالإمكان إضافة مثال توضيحي لمبرمج مبتدئ مثلي

تحياتي

حمل هذه

كود :

http://superobject.googlecode.com/files/superobjectv1.2.4.zip

وضعها في lib اذا كنت تملك نسخة 2010 او اكثر


تم ارفاق مثال في المرفقات
او من هنا مع الملف التطبيقي

كود :

http://ge.tt/9cTU3PK/v/0