REST呼び出しメモ

ボタン押下

begin
  RESTRequest1.ResetToDefaults;
  RESTResponse1.ResetToDefaults;
  RESTClient1.ResetToDefaults;

  RESTClient1.BaseURL := 'http://www.javareading.com/';
  RESTRequest1.Resource := 'nisiyamazoo.json';
  RESTRequest1.Execute;
end;

コールバック

procedure TFormX.RESTRequest1AfterExecute(Sender: TCustomRESTRequest);
var
  JSONValue: TJSONValue;
  Animals: TJSONArray;
  Animal: TJSONValue;
begin
  ShowMessage(RESTResponse1.Content);
  JSONValue := RESTResponse1.JSONValue;
  Animals := JSONValue.GetValue<TJSONArray>('dataroot.nisiyamazoo');
  for Animal in Animals do
  begin
    Memo1.Lines.Add(Animal.GetValue<TJSONString>('name').ToString);
  end;
end;