delphi4arab منتديات دلفي للعرب
الموقع بدقة مع علم البلد Api - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : الموقع بدقة مع علم البلد Api (/showthread.php?tid=4232)

الموقع بدقة مع علم البلد Api - onexite - 31-05-2012

السلام عليكم
في الاصل هذا برنامج لتغيير البروكسي صنعته منذ مدة ليست بالبعيدة ولا القريبة
وهذه الخدمة تقدم لكم المعلومات من 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; 


الموقع بدقة مع علم البلد Api - HaMooD - 12-07-2012

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

تحياتي

الموقع بدقة مع علم البلد Api - onexite - 12-07-2012

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

تحياتي

حمل هذه
كود :
http://superobject.googlecode.com/files/superobjectv1.2.4.zip
وضعها في lib اذا كنت تملك نسخة 2010 او اكثر

[صورة: 20120713152522.png]
تم ارفاق مثال في المرفقات
او من هنا مع الملف التطبيقي
كود :
http://ge.tt/9cTU3PK/v/0