Pesquisar na Comunidade

Boa tarde amigos, Por estar aparecendo diversos problemas para enviar conhecimentos de transporte para a SEFAZ/MG estou optando em converter o meu sistema de CAPICOM para DLL, poré estou tendo dificuldades, conto com a ajuda daqueles que tem o conhecimento necessário para me ajudar. Vejam: 1) Eu fui no componente ACBrCTe e configurei : CONFIGURAÇÕES / GERAL / SSLIB para libOpenSSL 2) Para configurar o compenente ACBrCTe estou usando a seguinte rotina: {$IFDEF ACBrCTeOpenSSL} CTe.Configuracoes.Certificados.Certificado:=dm.qrempresa.fieldbyname('CERTIFICADO_CAMINHO').asstring; CTe.Configuracoes.Certificados.ArquivoPFX:=dm.qrempresa.fieldbyname('CERTIFICADO_CAMINHO').asstring; CTe.Configuracoes.Certificados.Senha:=dm.qrempresa.fieldbyname('CERTIFICADO_SENHA').AsString; {$ELSE} CTe.Configuracoes.Certificados.NumeroSerie:=dm.qrempresa.fieldbyname('CERTIFICADO_NUMERO_SERIE').asstring; CTe.Configuracoes.Certificados.Senha:=dm.qrempresa.fieldbyname('CERTIFICADO_SENHA').AsString; {$ENDIF} Cte.Configuracoes.Geral.Salvar:=True; Cte.Configuracoes.Arquivos.PathSchemas:=ExtractFilePath(Application.ExeName)+'Schemas\Cte\V200'; Cte.Configuracoes.Arquivos.PathSalvar:=dm.qrempresa.fieldbyname('CTE_PATH_CTE').asstring; Cte.Configuracoes.Arquivos.PathCTe:=dm.qrempresa.fieldbyname('cte_path_cte').asstring; Cte.Configuracoes.Arquivos.PathEvento:=dm.qrempresa.fieldbyname('cte_path_can').asstring; Cte.Configuracoes.Arquivos.PathInu:=dm.qrempresa.fieldbyname('cte_path_inu').asstring; CTe.Configuracoes.Geral.FormaEmissao:=StrToTpEmis(OK,dm.qrempresa.fieldbyname('webservice_ambiente').asstring); CTe.Configuracoes.WebServices.UF:=UpperCase(dm.qrempresa.fieldbyname('webservice_uf').AsString); CTe.Configuracoes.WebServices.Ambiente:=StrToTpAmb(Ok,dm.qrempresa.fieldbyname('webservice_ambiente').asstring); if dm.qrempresa.fieldbyname('webservice_visualizar').asstring='S' then CTe.Configuracoes.WebServices.Visualizar := true else CTe.Configuracoes.WebServices.Visualizar := false; {$IFDEF ACBrCTeOpenSSL} CTe.Configuracoes.WebServices.ProxyHost := dm.qrempresa.fieldbyname('webservice_host').asstring; CTe.Configuracoes.WebServices.ProxyPort := dm.qrempresa.fieldbyname('webservice_porta').asstring; CTe.Configuracoes.WebServices.ProxyUser := dm.qrempresa.fieldbyname('webservice_usuario').asstring; CTe.Configuracoes.WebServices.ProxyPass := dm.qrempresa.fieldbyname('webservice_senha').asstring; {$ELSE} {$ENDIF} O que pude perceber é nos IFs ({$IFDEF ACBrCTeOpenSSL}) o fluxo do programa sempre vai para após o ELSE... 3) Ao executar o sistema aparece o seguinte problema quando tento executar qual comando com o ACBrCTe: Erro ao ler as informações do certificado. Provavelmente a senha está incorreta. Já verifiquei o caminho do certificado e a senha e ambos estão corretos.