HTTPRio.HTTPWebNode.OnBeforePost changed in Delphi

2020-07-22 06:17发布

问题:

I have a component that uses HTTPRio.HTTPWebNode.OnBeforePost that previously used the data parameter, but in version 10.3 of Delphi this parameter was replaced.

Before 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

In this code, I use internetsetoption, how should I proceed now in Delphi 10.3? How to get the data parameter?