发生了变化HTTPRIO.HTTPWebNode.OnBeforePost
Delphi 10.3 中的事件。
在 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;
在德尔福 10.3 中,Data
参数消失了,取而代之的是THTTPClient
给出了,我不知道如何用它实现基本身份验证:
procedure TForm1.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp;
Client: THTTPClient);
var
auth: String;
begin
auth := 'Authorization: Basic ' + IdEncoderMIME1.EncodeString('user:password');
???
end;
有什么提示吗?
尝试使用请求的Username http://docwiki.embarcadero.com/Libraries/en/Soap.SOAPHTTPTrans.THTTPReqResp.UserName and Password http://docwiki.embarcadero.com/Libraries/en/Soap.SOAPHTTPTrans.THTTPReqResp.Password属性,例如:
HTTPReqResp.UserName := 'user';
HTTPReqResp.Password := 'password';
如果这不起作用,请尝试使用客户端的CustomHeaders http://docwiki.embarcadero.com/Libraries/en/System.Net.URLClient.TURLClient.CustomHeaders相反,属性,例如:
Client.CustomHeaders['Authorization'] := 'Basic ' + IdEncoderMIME1.EncodeString('user:password');
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)