capicom Erro em função do capicom

[Wendel Fassarella]

Boa tarde pessoal,  estou tentando compilar minha aplicação em x64 mas me retorna um erro em uma função que não dá erro no x86:

CertContext.Get_CertContext(Integer(PCertContext));

dá esse erro:

[dcc64 Error] uWebServiceClass.pas(153): E2197 Constant object cannot be passed as var parameter

como posso resolver?

 

Se alguém quiser saber o contexto do uso, é esse: 

procedure TWebService.OnBeforePost(const HTTPReqResp: THTTPReqResp;
  Data: Pointer);
var
  Cert         : ICertificate2;
  CertContext  : ICertContext;
  PCertContext : Pointer;
  ContentHeader: string;
begin
  Cert := GetCertificate(xCert);
  CertContext :=  Cert as ICertContext;
  CertContext.Get_CertContext(Integer(PCertContext));    //PESQUISA PARA 64BIT

  if not InternetSetOption(Data, 84, PCertContext,SizeOf(CERT_CONTEXT)) then
  begin
    //showmessage('Certificado não lido. Tente novamente!');
  end;


  if (pos('SCERECEPCAORFB',UpperCase(HTTPReqResp.URL)) <= 0) and
     (pos('SCECONSULTARFB',UpperCase(HTTPReqResp.URL)) <= 0) then
   begin
     ContentHeader := Format(ContentTypeTemplate, ['application/soap+xml; charset=utf-8']);
     HttpAddRequestHeaders(Data, PChar(ContentHeader), Length(ContentHeader), HTTP_ADDREQ_FLAG_REPLACE);
   end;
  HTTPReqResp.CheckContentType;

end;

 

[André Ferreira de Moraes]

Use a busca antes de postar -