مثال عن api ipinfo كنسول

[onexite]

برمجته منذ مدة كبيرة
وجدته بالصدفة واردت مشاركته

PHP كود :

program Project2;

{$APPTYPE CONSOLE}

uses
  WinInet,
  Windows //,superobject
;

function GetUrlContent(const Url: string): UTF8String;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1023] of byte;
  BytesRead: dWord;
  StrBuffer: UTF8String;
begin
  Result := '';
  NetHandle := InternetOpen('USER_AGENT', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(NetHandle) then
    try
      UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
      if Assigned(UrlHandle) then
        try
          repeat
            InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
            SetString(StrBuffer, PAnsiChar(@Buffer[0]), BytesRead);
            Result := Result + StrBuffer;
          until BytesRead = 0;
        finally
          InternetCloseHandle(UrlHandle);
        end
      else
        Result:=('Cannot open URL '+ Url);
    finally
      InternetCloseHandle(NetHandle);
    end
  else
    Result:=('Unable to initialize Wininet');
end;
var Content:UTF8String;
begin
Content:=GetUrlContent('http://api.ipinfodb.com/v3/ip-city/?key=725b4fc2190b0ac507d281ea20b491e2d80e484a40e887cf05e32f796934168a&format=json') ;
Writeln(Content) ;
{
Writeln('------------------------------------------------------');
writeln('Country Name : '+so(Content)['countryName'].AsString) ;
writeln('Region Name : '+so(Content)['regionName'].AsString) ;
writeln('City Name : '+so(Content)['cityName'].AsString) ;
writeln('Zip Code : '+so(Content)['zipCode'].AsString) ;
writeln('Latitude : '+so(Content)['latitude'].AsString) ;
writeln('Longitude : '+so(Content)['longitude'].AsString) ;
writeln('Time Zone : '+so(Content)['timeZone'].AsString) ;
Writeln('------------------------------------------------------');  }
Readln
end. 


[fhol]

بارك للخ فيك على المجهودات و لكن الرابط لا يعمل في الملف المرفق و بوركت الجهود خويا

[haniid]

السلام عليكم

نفس المثال لاكن باستعمال وحدات RESTRequest4D 

المثال يعمل على win + android

--------------
نعرف متغير لتنفيد api التى يوفرها الموقع يمكن التسجيل فى الموقع للحصول على your free api key

PHP كود :

BaseUrl: string; 


نضيف الوحدات لتنفيد الامر GET و قرائت المخرجات التى يقدمها الموقع

PHP كود :

uses RESTRequest4D, System.JSON, System.JSON.Readers; 


تنفيد الامر GET

كود :

function TForm18.ExecuteGet(sBaseUrl: string): string;
var
  LResponse: IResponse;
begin
  LResponse := TRequest.New.BaseURL(sBaseUrl)
    .Accept('application/json')
    .Get;
  Result := LResponse.Content;
end;

عند الحصول على json نستخرج المعلومات التى نريدها 

كود :

function TForm18.ExtractData(JSonData: string): TStringList;
var
  JSONValue: TJSONValue;
begin
  JSONValue := TJSONObject.ParseJSONValue(JSonData, False, False);
  Result := TStringList.Create;
  try
    if JSONValue is TJSONArray then
     //...
    else if JSONVAlue is TJSONObject then
    begin
      Result.Add(JSONValue.GetValue<string>('statusCode'));
      Result.Add(JSONValue.GetValue<string>('statusMessage'));
      Result.Add(JSONValue.GetValue<string>('ipAddress'));
      Result.Add(JSONValue.GetValue<string>('countryCode'));
      Result.Add(JSONValue.GetValue<string>('countryName'));
      Result.Add(JSONValue.GetValue<string>('regionName'));
      Result.Add(JSONValue.GetValue<string>('cityName'));
      Result.Add(JSONValue.GetValue<string>('zipCode'));
      Result.Add(JSONValue.GetValue<string>('latitude'));
      Result.Add(JSONValue.GetValue<string>('longitude'));
      Result.Add(JSONValue.GetValue<string>('timeZone'));
    end;
  finally
    JSONValue.Free;
  end;
end;

تنفيد العملية 

كود :

  Memo1.Lines := ExtractData(ExecuteGet(BaseUrl));