Erro em ACBrBPe.SSL.CarregarCertificado

[Luiz Carlos de Lima]

Boa tarde,

Após fazer atualização do ACBr hoje, começou a dar o erro  (CarregarCertificadoDeDadosPFX" não implementado em:  TDFeSSLCryptClass) ao chamar ACBrBPe.SSL.CarregarCertificado.

ACBrDFeSSL

procedure TDFeSSLCryptClass.CarregarCertificadoDeDadosPFX;
begin
  raise EACBrDFeException.Create('"CarregarCertificadoDeDadosPFX" não implementado em: ' +ClassName);
end;

 

[Juliana Tamizou]

Bom dia.

Informe as configurações do componente.

Att.

[Luiz Carlos de Lima]

Bom dia Juliana,

  path  := ExtractFilePath(Application.ExeName);
  pACBrBPe.Configuracoes.Arquivos.PathSchemas   := path + 'Schemas\';
  pACBrBPe.Configuracoes.Arquivos.PathBPe       := path + 'BPe\';
  pACBrBPe.Configuracoes.Arquivos.PathSalvar    := path + 'BPe\';
  pACBrBPe.Configuracoes.Arquivos.Salvar        := true;
  pACBrBPe.Configuracoes.Arquivos.SalvarEvento  := true;
  pACBrBPe.Configuracoes.Arquivos.SalvarApenasBPeProcessadas  := False;

  pACBrBPe.Configuracoes.Certificados.DadosPFX  := Certificado.DadosPFX.DataString;
  pACBrBPe.Configuracoes.Certificados.Senha     := Certificado.Senha;

//>>>>>>>>>>>>>>>>>>  O erro ocorre aqui ao carregar o Certificado
  pACBrBPe.SSL.CarregarCertificado;

//<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  pACBrBPe.Configuracoes.Geral.SSLLib           := libWinCrypt;
  pACBrBPe.Configuracoes.Geral.SSLCryptLib      := cryWinCrypt;
  pACBrBPe.Configuracoes.Geral.SSLHttpLib       := httpWinHttp;
  pACBrBPe.Configuracoes.Geral.SSLXmlSignLib    := xsLibXml2;
  pACBrBPe.SSL.SSLType := LT_TLSv1_2;

  pACBrBPe.Configuracoes.Geral.ExibirErroSchema := true;
  pACBrBPe.Configuracoes.Geral.RetirarAcentos   := true;
  pACBrBPe.Configuracoes.Geral.VersaoDF         := ve100;

  pACBrBPe.Configuracoes.WebServices.TimeZoneConf.ModoDeteccao := tzManual;
  pACBrBPe.Configuracoes.WebServices.TimeZoneConf.TimeZoneStr  := vUTCAtual;

  pACBrBPe.Configuracoes.Geral.ValidarDigest    := false;

 

[EMBarbosa]

1 hora atrás, Luiz Carlos de Lima disse:

pACBrBPe.Configuracoes.Certificados.DadosPFX  := Certificado.DadosPFX.DataString;
  pACBrBPe.Configuracoes.Certificados.Senha     := Certificado.Senha;

//>>>>>>>>>>>>>>>>>>  O erro ocorre aqui ao carregar o Certificado
  pACBrBPe.SSL.CarregarCertificado;

//<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  pACBrBPe.Configuracoes.Geral.SSLLib           := libWinCrypt;
  pACBrBPe.Configuracoes.Geral.SSLCryptLib      := cryWinCrypt;
  pACBrBPe.Configuracoes.Geral.SSLHttpLib       := httpWinHttp;
  pACBrBPe.Configuracoes.Geral.SSLXmlSignLib    := xsLibXml2;
  pACBrBPe.SSL.SSLType := LT_TLSv1_2;

Poderia por favor inverter a ordem do código e testar? Passe a configuração da SSL para antes do carregamento do certificado. Algo como:

  //Primeiro configura...
  pACBrBPe.Configuracoes.Geral.SSLLib           := libWinCrypt;
  pACBrBPe.Configuracoes.Geral.SSLCryptLib      := cryWinCrypt;
  pACBrBPe.Configuracoes.Geral.SSLHttpLib       := httpWinHttp;
  pACBrBPe.Configuracoes.Geral.SSLXmlSignLib    := xsLibXml2;
  pACBrBPe.SSL.SSLType := LT_TLSv1_2;
  //...Depois carrega.
  pACBrBPe.Configuracoes.Certificados.DadosPFX  := Certificado.DadosPFX.DataString;
  pACBrBPe.Configuracoes.Certificados.Senha     := Certificado.Senha;
  pACBrBPe.SSL.CarregarCertificado;

 

[Luiz Carlos de Lima]

Resolvido, obrigado.

[Juliana Tamizou]

Obrigado por reportar.

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