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