Jump to content

dev botao

Assinatura A1 sem PFX e A3


Joceandro Perin
Go to solution Solved by Rafael Dias,
  • Este tópico foi criado há 2326 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde amigos..

Estou tentando encontrar uma solução que consiga usar A1 sem PFX e o A3 que no momento ainda não testei.. Atualmente só consigo usando o A1 com PFX..

Ao fazer assinatura com A1 sem PFX, está me retornando o seguinte..

'O Provedor de Criptografia não suporta o algoritmo: dgstSHA256 , erro: $80090008'

estou usando a seguinte configuração conforme exemplo do amigo @Paulo Aguiar Junior

with eSocial.Configuracoes do
begin
  if (Trim(cds.AsStr('ARQUIVOPFX')) <> '') then
  begin
    Geral.SSLLib             := libOpenSSL;
    Geral.SSLHttpLib         := httpWinHttp;
    Certificados.ArquivoPFX  := cds.AsStr('ARQUIVOPFX');
    Certificados.Senha       := cds.AsStr('SENHACERTIFICADO');
  end
  else
  begin
    Geral.SSLLib             := libCustom;
    Geral.SSLHttpLib         := httpWinHttp;
    Geral.SSLCryptLib        := cryWinCrypt;
    Geral.SSLXmlSignLib      := xsLibXml2;
    Certificados.NumeroSerie := cds.AsStr('CERTIFICADO');
    Certificados.Senha       := cds.AsStr('SENHACERTIFICADO');
  end;
end;

 

Edited by Joceandro Perin
Link to comment
Share on other sites

4 minutos atrás, Joceandro Perin disse:

Boa tarde amigos..

Estou tentando encontrar uma solução que consiga usar A1 sem PFX e o A3 que no momento ainda não testei.. Atualmente só consigo usando o A1 com PFX..

Ao fazer assinatura com A1 sem PFX, está me retornando o seguinte..

'O Provedor de Criptografia não suporta o algoritmo: dgstSHA256 , erro: $80090008'

estou usando a seguinte configuração conforme exemplo do amigo @Paulo Aguiar Junior


with eSocial.Configuracoes do
begin
  if (Trim(cds.AsStr('ARQUIVOPFX')) <> '') then
  begin
    Geral.SSLLib             := libOpenSSL;
    Geral.SSLHttpLib         := httpWinHttp;
    Certificados.ArquivoPFX  := cds.AsStr('ARQUIVOPFX');
    Certificados.Senha       := cds.AsStr('SENHACERTIFICADO');
  end
  else
  begin
    Geral.SSLLib             := libCustom;
    Geral.SSLHttpLib         := httpWinHttp;
    Geral.SSLCryptLib        := cryWinCrypt;
    Geral.SSLXmlSignLib      := xsLibXml2;
    Certificados.NumeroSerie := cds.AsStr('CERTIFICADO');
    Certificados.Senha       := cds.AsStr('SENHACERTIFICADO');
  end;
end;

 

Boa tarde!

Você fez o update do repositório?

Componente.Configuracoes.Geral.SSLLib        := libCustom;
Componente.Configuracoes.Geral.SSLHttpLib    := httpWinHttp;
Componente.Configuracoes.Geral.SSLCryptLib   := cryWinCrypt;
Componente.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;

Componente.Configuracoes.Certificados.NumeroSerie := dmESocial.qryCertificadoDigital.FieldByName('NR_SERIE').AsString;

 

Estou utilizando assim, e está funcionando perfeitamente, inclusive, o Rafael disse que o PFX também funciona com essa config...

Link to comment
Share on other sites

Também estou usando assim agora.

Componente.Configuracoes.Geral.SSLLib        := libCustom;
Componente.Configuracoes.Geral.SSLHttpLib    := httpWinHttp;
Componente.Configuracoes.Geral.SSLCryptLib   := cryWinCrypt;
Componente.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;

 

em alguns computadores tive que copiar as dlls da pasta acbr

OpenSSL

XMLSec

LibXml2

Link to comment
Share on other sites

  • 3 months later...
  • Este tópico foi criado há 2326 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.