31-05-2012, 11:04 AM
السلام عليكم
في الاصل هذا برنامج لتغيير البروكسي صنعته منذ مدة ليست بالبعيدة ولا القريبة
وهذه الخدمة تقدم لكم المعلومات من ip والنتيجة تكون اما xml او json
باستخدام الطريقة الاولى
معلومات اضافية
في الاصل هذا برنامج لتغيير البروكسي صنعته منذ مدة ليست بالبعيدة ولا القريبة
وهذه الخدمة تقدم لكم المعلومات من 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;
![[صورة: 20120713152522.png]](http://img833.imageshack.us/img833/5629/20120713152522.png)