在Delphi 10.3中更改了HTTPRio.HTTPWebNode.OnBeforePost,丢失了参数Data

时间:2019-06-24 13:12:20

标签: delphi delphi-10.3-rio

我有一个使用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参数?

0 个答案:

没有答案