Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Erro em ACBrBPe.SSL.CarregarCertificado


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

Recommended Posts

  • Membros Pro

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;

 

Link to comment
Share on other sites

  • Administradores

Bom dia.

Informe as configurações do componente.

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Membros Pro

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;

 

Link to comment
Share on other sites

  • Consultores
  • Solution
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;

 

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Administradores

Obrigado por reportar.

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

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 748 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • 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.