REST API 调用新方法

RESTDebugger

用这个调用，Copy Components，生成控件，

然后粘贴到工程里。

  RESTRequest1.Execute;  // send request to endpoint

 

  var JSONValue: TJSONValue;

  var JSONArray: TJSONArray;

  var ArrayElement: TJSONValue;

 

  // after using object we just free them within the Lists

  RctList := TList<TRectangle>.Create;

  ImgList := TList<TImage>.Create;

  LblTitleList := TList<TLabel>.Create;

  LblDescpList := TList<TLabel>.Create;

 

  try

    JSONValue := TJSONObject.ParseJSONValue(RESTResponse1.Content);

    JSONArray := JSONValue.GetValue<TJSONArray>('data');  // articles are stored in the data array in the JSON response

 

https://blogs.embarcadero.com/how-to-create-a-cross-platform-news-app-with-delphi/