Erro Onbeforepost : 5

[rafael_deitos]

Estou efetuando testes no demo do ACBRNFSe, na seguinte função do ACBrNFSeWebServices tenho o retorno: ERRO ONBEFOREPOST : 5 

 

   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;

    end;

 

 

Estou utilizando o Delphi 7 e uma maquina com Win7 64.

 

Alguém tem alguma sugestão do que pode ser?

 

[rafael_deitos]

Testei no windows XP e o problema não ocorre!

[Isaque Pinheiro]

Erro 5, é erro de permissão.

[rafael_deitos]

Access Denied pelo que pesquisei...

 

Mas ainda assim, não consegui solucionar de forma nenhuma esse problema.

[Isaque Pinheiro]

Você tem que executar com permissão de ADM para ter permissão ,pesquise como fazer isso.

[Solivan]

ou Se quizer deixar mais profissional sua app você pode embutir um arquivo de manifesto no seu projeto, como é feito no instalador do ACBr. lembrando que não se pode fazer uso da unit XPMan para que o propósito seja atendido.