你好！在 Delphi 中使用 RESTClient 实现 HTTP Bearer 身份验证，可以通过设置请求头来实现。以下是一个简单的示例代码，展示如何使用 TRESTClient、TRESTRequest 和 TRESTResponse 来实现 Bearer Token 身份验证：
uses
System.SysUtils, System.Classes, REST.Client, Data.Bind.Components, Data.Bind.ObjectScope;
procedure TForm1.SendRequest;
var
RESTClient: TRESTClient;
RESTRequest: TRESTRequest;
RESTResponse: TRESTResponse;
BearerToken: string;
begin
// 初始化 RESTClient、RESTRequest 和 RESTResponse
RESTClient := TRESTClient.Create(nil);
RESTRequest := TRESTRequest.Create(nil);
RESTResponse := TRESTResponse.Create(nil);
try
// 设置 RESTClient 的基础 URL
RESTClient.BaseURL := 'https://api.example.com';
// 将 RESTRequest 和 RESTResponse 关联到 RESTClient
RESTRequest.Client := RESTClient;
RESTRequest.Response := RESTResponse;// 设置请求的资源路径
RESTRequest.Resource := 'your/resource/path';// 设置请求方法
RESTRequest.Method := TRESTRequestMethod.rmGET;// 设置 Bearer Token
BearerToken := 'your_bearer_token_here';
RESTRequest.Params.AddHeader('Authorization', 'Bearer ' + BearerToken);// 发送请求
RESTRequest.Execute;// 处理响应
if RESTResponse.StatusCode = 200 then
beginShowMessage('请求成功: ' + RESTResponse.Content);
end
else
beginShowMessage('请求失败: ' + RESTResponse.StatusText);
end;
finally
// 释放资源
RESTResponse.Free;
RESTRequest.Free;
RESTClient.Free;
end;
end;
在这个示例中，我们创建了 TRESTClient、TRESTRequest 和 TRESTResponse 对象，并设置了请求的 URL、资源路径和请求方法。然后，我们通过 Params.AddHeader 方法添加了 Authorization 头，其中包含了 Bearer Token。最后，我们调用 Execute 方法发送请求，并根据响应状态码处理结果。
希望这个示例对你有所帮助！如果你有任何其他问题，请随时告诉我。
