ボタン押下
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;