用Deplhi使用RestClient调用API的函数

最新推荐文章于 2024-12-15 09:22:57 发布

weixin_42613017

最新推荐文章于 2024-12-15 09:22:57 发布

阅读量378

点赞数

文章标签： restful 后端

本文链接：https://blog.csdn.net/weixin_42613017/article/details/129524664

版权

下面是使用 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;