Pessoal,
Apenas por registro, depois de vários dias tentando, não consegui resolver o problema de uma forma "interessante".
O que eu fiz pra funcionar foi ir no arquivo ACBrNFSeWebServices.pas do ACBRNFSe, e mudar o seguinte código:
if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)*5) then
begin
if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog)
then TACBrNFSe( FACBrNFSe ).OnGerarLog('ERRO: Erro OnBeforePost: ' + IntToStr(GetLastError));
raise Exception.Create( 'Erro OnBeforePost: ' + GetLastErrorText {IntToStr(GetLastError)} );
end;
para
if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)*5) then
begin
(*
if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog)
then TACBrNFSe( FACBrNFSe ).OnGerarLog('ERRO: Erro OnBeforePost: ' + IntToStr(GetLastError));
raise Exception.Create( 'Erro OnBeforePost: ' + GetLastErrorText {IntToStr(GetLastError)} );
*)
end;
ou seja, comentei onde mostra o erro. Funcionou, não sei por que, mas resolveu.
Leandro