rio快速创建查询某webapi的界面

1、新建Vcl项目。

2、打开rest debug tools工具。

3、输入以下网址到url输入框中，按“send request”按钮。

https://restool-sample-app.herokuapp.com/api/character?search=

 

4、点击“copy Components”按钮。

5、回到rio窗体中，按“ctrol V”粘贴组件。

以下是用cnwizard工具自动生成的组件代码，可以非常清楚的看到修改的组件属性，详情如下 。

procedure TForm1.CreateComponents;
var
  RESTClient1: TRESTClient;
begin
  //RESTClient1
  RESTClient1 := TRESTClient.Create(Self);

  //RESTClient1
  RESTClient1.Name := 'RESTClient1';
  RESTClient1.Accept := 'application/json, text/plain; q=0.9, text/html;q=0.8,';
  RESTClient1.AcceptCharset := 'utf-8, *;q=0.8';
  RESTClient1.BaseURL := 'https://restool-sample-app.herokuapp.com/api/character?search=';
  RESTClient1.Params := <>;
  RESTClient1.RaiseExceptionOn500 := False;
end;

procedure TForm1.CreateComponents;
var
  RESTRequest1: TRESTRequest;
begin
  //RESTRequest1
  RESTRequest1 := TRESTRequest.Create(Self);

  //RESTRequest1
  RESTRequest1.Name := 'RESTRequest1';
  RESTRequest1.Client := RESTClient1;
  RESTRequest1.Params := <>;
  RESTRequest1.Response := RESTResponse1;
  RESTRequest1.SynchronizedEvents := False;
end;

 

procedure TForm1.CreateComponents;
var
  RESTResponse1: TRESTResponse;
begin
  //RESTResponse1
  RESTResponse1 := TRESTResponse.Create(Self);

  //RESTResponse1
  RESTResponse1.Name := 'RESTResponse1';
  RESTResponse1.ContentType := 'application/json';
end;

procedure TForm1.CreateComponents;
var
  RESTResponseDataSetAdapter1: TRESTResponseDataSetAdapter;
begin
  //RESTResponseDataSetAdapter1
  RESTResponseDataSetAdapter1 := TRESTResponseDataSetAdapter.Create(Self);

  //RESTResponseDataSetAdapter1
  RESTResponseDataSetAdapter1.Name := 'RESTResponseDataSetAdapter1';
  RESTResponseDataSetAdapter1.Dataset := FDMemTable1;
  RESTResponseDataSetAdapter1.FieldDefs := <>;
  RESTResponseDataSetAdapter1.Response := RESTResponse1;
end;

 

procedure TForm1.CreateComponents;
var
  FDMemTable1: TFDMemTable;
begin
  //FDMemTable1
  FDMemTable1 := TFDMemTable.Create(Self);

  //FDMemTable1
  FDMemTable1.Name := 'FDMemTable1';
  FDMemTable1.FetchOptions.AssignedValues := [evMode];
  FDMemTable1.FetchOptions.Mode := fmAll;
  FDMemTable1.ResourceOptions.AssignedValues := [rvSilentMode];
  FDMemTable1.ResourceOptions.SilentMode := True;
  FDMemTable1.UpdateOptions.AssignedValues := [uvCheckRequired];
  FDMemTable1.UpdateOptions.CheckRequired := False;
end;

6、在窗体显示事件中输入代码。

procedure TForm1.FormShow(Sender: TObject);
begin
self.RESTRequest1.Execute;
end;

end.

结果。