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

Question

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;

有什么提示吗？

Answer 1

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

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

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

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

Answer 2

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

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

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

Basic authentication with HTTPRIO in Delphi 10.3

delphi

authentication

delphi-10.3-rio