Wellisson Ribeiro

Bom Italo, no exemplo ele funciona. Se não entrar na condição do if ele vai pegar a configuração padrão que é selecionando o certificado instalado no Windows. Não sei se pode ser na hora de alimentar as configurações de SSL lido do .ini, porque eu fiz um teste rápido fixando direto as configurações e parece que funcionou. Fixei dessa forma. ACBrCTe.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrCTe.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrCTe.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBrCTe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; ACBrCTe.SSL.SSLType := LT_TLSv1_2;

Bom dia pessoal, estou com um problema para utilizar as configurações de SSL e certificado digital. Minhas configurações de SSL estão assim, tentei usar com base na demo do acbr cte ArqIni := TIniFile.Create(gsapppath+'CertificadoDigital.ini'); ACBrCTe.Configuracoes.Geral.SSLLib := TSSLLib(Integer(ArqIni.ReadString('SSL', 'SSL_LIB', ''))); ACBrCTe.Configuracoes.Geral.SSLCryptLib := TSSLCryptLib(Integer(ArqIni.ReadString('SSL', 'CRYPT_LIB', ''))); ACBrCTe.Configuracoes.Geral.SSLHttpLib := TSSLHttpLib(Integer(ArqIni.ReadString('SSL', 'HTTP_LIB', ''))); ACBrCTe.Configuracoes.Geral.SSLXmlSignLib := TSSLXmlSignLib(Integer(ArqIni.ReadString('SSL', 'XML_SIGN_LIB', ''))); ACBrCTe.SSL.SSLType := TSSLType(Integer(ArqIni.ReadString('SSL', 'SSL_TYPE', ''))); if cdsEmpresa.FieldValues['CAMPOEXTRA18'] = '1' then // CONFIGURACAO DE CERTIFICADO PADRAO begin if (Trim(ArqIni.ReadString('CERTIFICADO_DIGITAL_A1', 'PATH', '')) <> '') and (Trim(ArqIni.ReadString('CERTIFICADO_DIGITAL_A1', 'SENHA', '')) <> '') then begin ACBrCTe.Configuracoes.Certificados.ArquivoPFX := ArqIni.ReadString('CERTIFICADO_DIGITAL_A1', 'PATH', ''); ACBrCTe.Configuracoes.Certificados.Senha := ArqIni.ReadString('CERTIFICADO_DIGITAL_A1', 'SENHA', ''); end else begin if Trim(ArqIni.ReadString('CERTIFICADO_DIGITAL_A3', 'SERIE', '')) <> '' then ACBrCTe.Configuracoes.Certificados.NumeroSerie := ArqIni.ReadString('CERTIFICADO_DIGITAL_A3', 'SERIE', ''); end; end; No envio do CT-e para autorização, me retorna o seguinte erro.

Opa, entao tentei debugar porem sem sucesso, acredito que acbr nao tenha afetado pois tenho outro projeto na mesma maquina com acbr e esta funcionando, apenas esse especifico esta acontecendo isso.

Ola, tenho uma aplicacao desenvolvida em Delphi XE6 com acbr trunk2. Apos atualizar o fonte via git comecou a se comportar de forma estranha. O que acontece é que abre a tela de login, apos informar as credencias, nao abre a tela inicial, nao corre nenhum erro, e o processo fica aberto e preso com uso da cpu de 25% conforme anexo. O projeto compila normalmente sem erros, porem nao funciona como deveria.

Olá, foi resolvido este problema?