HTTPRio.HTTPWebNode.OnBeforePost在 Delphi 10.3中更改，丢失参数数据

gwo2fgha 于 2023-08-04 发布在其他

关注(0)|答案(1)|浏览(91)

我有一个使用HTTPRio.HTTPWebNode.OnBeforePost的组件，它以前使用data参数，但在 Delphi 的10.3版本中，这个参数被替换了。
Delphi 10.3之前：

procedure TNotaBlu.BeforePostHTTPRequest(const HTTPReqResp: THTTPReqResp; Client: THTTPClient);
var
  Certificado:  ICertificate2;
  CertContext:  ICertContext;
  PCertContext: Pointer;
begin
try
    Certificado := VCertificadoDigital.GetCertificate.DefaultInterface;
    CertContext := Certificado as ICertContext;
    CertContext.Get_CertContext(Integer(PCertContext));
    if  (not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, 100)) then

字符串
在这段代码中，我使用了internetsetoption，现在我应该如何在 Delphi 10.3中进行？如何获取data参数？

delphi

来源：https://stackoverflow.com/questions/56737356/httprio-httpwebnode-onbeforepost-changed-in-delphi-10-3-lost-parameter-data

1条答案

按热度按时间

mwg9r5ms1#

现在，您可以使用HTTPIO.HTTPWebNode.OnNeedClientCertificate事件来设置证书，如下所示：

procedure TForm1.HTTPRIO1HTTPWebNode1NeedClientCertificate(const Sender: TObject; const ARequest: TURLRequest;
  const ACertificateList: TCertificateList; var AnIndex: Integer);
begin
  for var i := 0 to ACertificateList.Count -1 do
  begin
    if ACertificateList[i].CertName.Contains('Test') then
    begin
      AnIndex := i;
    end;
  end;
end;
enter code here

字符串

赞(0）回复(0）举报 2023-08-04

我来回答

HTTPRio.HTTPWebNode.OnBeforePost在 Delphi 10.3中更改，丢失参数数据

1条答案

相关问题

热门标签

最新问答