Delphi 10.3 中使用 HTTPRIO 的基本身份验证答案

【问题标题】：Basic authentication with HTTPRIO in Delphi 10.3Delphi 10.3 中使用 HTTPRIO 的基本身份验证
【发布时间】：2019-07-16 22:16:51
【问题描述】：

在 Delphi 10.3 中，HTTPRIO.HTTPWebNode.OnBeforePost 事件发生了变化。

在 Delphi 10.3 之前，事件处理程序是这样定义的，并且运行良好：

procedure TForm1.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp;
  Data: Pointer);
var
  auth: String;
begin
  auth := 'Authorization: Basic ' + IdEncoderMIME1.EncodeString('user:password');
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);
end;

在 Delphi 10.3 中，Data 参数不见了，取而代之的是 THTTPClient，我不知道如何用它实现基本身份验证：

procedure TForm1.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp;
  Client: THTTPClient);
var
  auth: String;
begin
  auth := 'Authorization: Basic ' + IdEncoderMIME1.EncodeString('user:password');
  ???
end;

有什么提示吗？

【问题讨论】：

标签： delphi authentication delphi-10.3-rio

【解决方案1】：

尝试使用请求的Username 和Password 属性，例如：

HTTPReqResp.UserName := 'user';
HTTPReqResp.Password := 'password';

如果这不起作用，请尝试改用客户端的 CustomHeaders 属性，例如：

Client.CustomHeaders['Authorization'] := 'Basic ' + IdEncoderMIME1.EncodeString('user:password');

【讨论】：

第二个命题有效！第一个不幸的是没有。谢谢！
别忘了启用基本身份验证
@AdriaanBoshoff 嗨，我也有同样的问题。 secons 解决方案有效，但第一个似乎更优雅。您已经提到启用基本身份验证。我在哪里可以启用此功能？我探索了组件（TNetHTTPClient 和 TNetHTTPRequest），但还没有找到一个选项。从服务器端它可能已启用，因为我可以使用其他 REST 客户端通过基本身份验证访问它。
查看属性。有一个叫BasicAuthentication。将其设置为 true。

【解决方案2】：

在 10.3.2 中使用 THttpClient 下面对我有用（我找不到 IdEncoderMIME1 的库）。我能够使用基本身份验证发布到 api。

HTTP.CustomHeaders['Authorization'] := 'Basic' + TNetencoding.Base64.Encode('user:pass');

【讨论】：