Log In Register
c
The code below will download a Wikipedia article about tigers.

uses ..., fphttpclient, fpjson;

...

var Json: TJSONData;
    HTTP: TFPHttpClient;
    Result, Page: String;
begin
  try
    Page := 'tiger';
    HTTP := TFPHttpClient.Create(Nil);
    Result := HTTP.Get('http://api.rest7.com/v1/wikipedia_page.php?page=' + Page + '&language=en&plain=1');
    Json := GetJSON(Result);
    Memo1.Lines.Add('Page title=' + Json.GetPath('title').AsString);
    Memo1.Lines.Add('Page text=' + Json.GetPath('text').AsString);
    Memo1.Lines.Add('Image=' + Json.GetPath('image_url').AsString);
    Memo1.Lines.Add('Image width=' + Json.GetPath('image_width').AsString);
    Memo1.Lines.Add('Image height=' + Json.GetPath('image_height').AsString);
  finally
    HTTP.Free;
  end;