Certificado A1: DadosPFX não são válidos

[Jonathan Schmitt]

Olá a todos!

Procurei em vários tópicos, mas não encontrei alguém que estivesse salvando o certificado no banco de dados em um campo Blob e depois carregando para a propriedade DadosPFX do ACBrNFe.

Eu carrego o arquivo assim: 

function LerCertificado(pCaminho: string): AnsiString;
var
  FS: TFileStream;
begin
  FS := TFileStream.Create(pCaminho, fmOpenRead);
  try
    Result := ReadStrFromStream(FS, FS.Size);
  finally
    FS.Free;
  end;
end;

e salvo o Result no banco de dados em um campo Blob.

Depois carrego assim:

vACBrNFe.Configuracoes.Certificados.NumeroSerie := cdsCertifserie.AsString;
vACBrNFe.Configuracoes.Certificados.DadosPFX := cdsCertifDADOS_PFX.AsString;
vACBrNFe.Configuracoes.Certificados.Senha := cdsCertifSENHA.AsString;

As configurações de SSLLib e demais tentei com OpenSSL e WinCrypt, ambas apresentaram o mesmo erro.

Alguém já faz dessa forma salvando o certificado no banco de dados?

Agradeço desde já!

[Juliomar Marchetti]

faz uma pesquisa novamente que tem alguns tópicos com códigos de exemplos postado para ajudar.

[everson.turossi]

Eu cheguei a ler em algum tópico onde era aconselhado converter o conteúdo do certificado pra Base64 e guardar no banco de dados. Tenta da seguinte forma:

// Armazenar 
cdsCertifDADOS_PFX.AsAnsiString := EncodeBase64(LerCertificado('...')); // uses synacode 

// Ler 
vACBrNFe.Configuracoes.Certificados.DadosPFX := DecodeBase64(cdsCertifDADOS_PFX.AsAnsiString);

 

[Jonathan Schmitt]

12 minutos atrás, everson.turossi disse:

Eu cheguei a ler em algum tópico onde era aconselhado converter o conteúdo do certificado pra Base64 e guardar no banco de dados. Tenta da seguinte forma:

// Armazenar 
cdsCertifDADOS_PFX.AsAnsiString := EncodeBase64(LerCertificado('...')); // uses synacode 

// Ler 
vACBrNFe.Configuracoes.Certificados.DadosPFX := DecodeBase64(cdsCertifDADOS_PFX.AsAnsiString);

 

Funcionou perfeitamente, meu amigo! Muito obrigado!

 

Abraço!

[Felipe E. Resende Mesquita]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.