用Deplhi使用RestClient调用API的函数

下面是使用 Delphi 调用 API 的示例函数：

uses
  REST.Client, REST.Types, REST.Authenticator.Basic, REST.Authenticator.OAuth;

procedure TForm1.Button1Click(Sender: TObject);
var
  RESTClient: TRESTClient;
  RESTRequest: TRESTRequest;
  RESTResponse: TRESTResponse;
begin
  RESTClient := TRESTClient.Create('http://example.com/api');
  try
    RESTRequest := TRESTRequest.Create(RESTClient);
    try
      RESTResponse := TRESTResponse.Create(RESTClient);
      try
        RESTRequest.Resource := '/users';
        RESTRequest.Method := TRESTRequestMethod.rmGET;
        RESTRequest.Execute;
        ShowMessage(RESTResponse.Content);
      finally
        RESTResponse.Free;
      end;
    finally
      RESTRequest.Free;
    end;
  finally
    RESTClient.Free;
  end;
end;

上面的代码使用 Delphi 的 `REST.Client` 和 `REST.Types` 单元来调用 API。它创建一个 `TRESTClient` 对象，用于管理对 API 的调用，然后创建一个 `TRESTRequest` 对象，用于定义对 API 的请求，包括请求资源的 URL 和请求方法（例如 GET、POST 等）。最后，它创建一个 `TRESTResponse` 对象，用于处理 API 响应。执行请求后，可以使用 `RESTResponse.Content` 属性访问 API 响应的内容。

如果 API 需要身份验证，则可以使用 `REST.Authenticator.Basic` 和 `REST.Authenticator.OAuth` 单元中的身份验证器类型（例如 `TBasicAuthenticator` 和 `TOAuth2Authenticator`）来设置身份验证信息。例如，下面的代码演示了如何使用基本身份验证：

RESTClient.Authenticator := TBasicAuthenticator.Create('username', 'password');

请