Márcio Antônio

meu código: ACBrNFe.Configuracoes.Certificados.ArquivoPFX := vCaminhoCertificado; ACBrNFe.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; ACBrNFe.SSL.DescarregarCertificado; with ACBrNFe.Configuracoes.Geral do begin SSLLib := libOpenSSL; SSLCryptLib := cryOpenSSL; SSLHttpLib := httpOpenSSL; SSLXmlSignLib := xsLibXml2; end; ACBrNFe.Configuracoes.Arquivos.PathSchemas :=''; ACBrNFe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\Nfe'; ACBrNFe.Configuracoes.WebServices.UF := empresainfo.PessoaInfo.EnderecoPrinc.id_estado; ACBrNFe.Configuracoes.WebServices.Ambiente := taProducao; ACBrNFe.SSL.SSLType := LT_TLSv1_2; //WebService: SSL Type logConsultaNFeDestinadas.Log('Consulta Notas Destinadas', 'Configuração do Certificado OK!'); logConsultaNFeDestinadas.Log('Consulta Notas Destinadas', 'Conectando na SEFAZ...'); // Conecta na SEFAZ try ACBrNFe.WebServices.StatusServico.Executar; except logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Erro: ', IntToStr(ACBrNFe.WebServices.StatusServico.cStat)); logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Motivo: ', ACBrNFe.WebServices.StatusServico.Msg); end;

tb não estava funcionando, ai quando mudei para o openSSL, funcionou.... ai mudei na minha aplicação as mesmas configurações, mas não pegou....

as antigas eu tirei... igual eu fiz na minha máquina, que funciona.... mas no windows server não...

Testei apenas na pasta da aplicação... não rodou.... ai coloquei tb na pasta SysWOW64 as mesmas DLL, tb não rodou...

Mesma coisa... não sei mais o q fazer...

Foto da configuração da internet do windows server 2016... tenho que mudar alguma coisa?

Sim, como administrador...

Existe sim... com essas mesmas configurações, eu consigo rodar normalmente em máquinas windows 10... mas nessas duas windows server 2016 e 2019, não...

Pessoal, ainda não consegui... tentei em outro cliente com esse Windows Server 2019 Standard Evaluation... e dá o mesmo erro.... Instalei esse cara, http://svn.code.sf.net/p/acbr/code/trunk2/DLLs/Diversos/x86/VC_redist.x86.exe coloquei na pasta do projeto essas DLL: libcrypto-1_1 e a libssl-1_1 coloquei tb na pasta SysWOW64 as mesmas DLL o que mais posso tentar?

já instalei esse cara http://svn.code.sf.net/p/acbr/code/trunk2/DLLs/Diversos/x86/VC_redist.x86.exe, e nada... mesmo erro...

Fiz o que você falou, mas está dando o seguinte erro: Erro ao carregar bibliotecas do openssl.

São essas... with ACBRNFeTriviaDownload.Configuracoes.Geral do begin SSLLib := libWinCrypt; SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsLibXml2; ExibirErroSchema := True; //Exibir erro Schema RetirarAcentos := True; //Retirar Acentos dos XMLs enviados FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; //Formato alerta FormaEmissao := TpcnTipoEmissao(dtmSysParams.GetParamAsInteger('NCFE_FORMAEMISSAO')); //Forma de emissão (teNormal, teContingencia, etc...) ModeloDF := moNFe; //Modelo documento fiscal (moNFe ou moNFCe) VersaoDF := ve400; //Versão do documento fiscal VersaoQRCode := veqr200; // Versão QRCode Salvar := True; //Salvar Arquivos de Envio e Resposta end; ACBRNFeTriviaDownload.SSL.SSLType := LT_TLSv1_2; //WebService: SSL Type

na máquina que não funciona, windows server 2016 na que funciona, windows 10

Como está o meu código... ACBRNFeTriviaDownload.Configuracoes.Arquivos.PathSchemas :=''; ACBRNFeTriviaDownload.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\Nfe'; //Diretórios com os arquivos XSD(Schemas) ACBRNFeTriviaDownload.Configuracoes.WebServices.Ambiente := taProducao ACBRNFeTriviaDownload.NotasFiscais.Clear; ACBRNFeTriviaDownload.SSL.DescarregarCertificado; with ACBRNFeTriviaDownload.Configuracoes.Geral do begin SSLLib := libWinCrypt; SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsLibXml2; ExibirErroSchema := True; //Exibir erro Schema RetirarAcentos := True; //Retirar Acentos dos XMLs enviados FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; //Formato alerta FormaEmissao := TpcnTipoEmissao(dtmSysParams.GetParamAsInteger('NCFE_FORMAEMISSAO')); //Forma de emissão (teNormal, teContingencia, etc...) ModeloDF := moNFe; //Modelo documento fiscal (moNFe ou moNFCe) VersaoDF := ve400; //Versão do documento fiscal VersaoQRCode := veqr200; // Versão QRCode Salvar := True; //Salvar Arquivos de Envio e Resposta end; with ACBRNFeTriviaDownload.Configuracoes.Arquivos do begin Salvar := True; //Salvar Arquivos em Pastas Separadas PathSalvar := ExtractFilePath(Application.ExeName) + 'Docs'; //Logs dos Arquivos de Envio e Resposta end; ACBRNFeTriviaDownload.SSL.SSLType := LT_TLSv1_2; //WebService: SSL Type ACBRNFeTriviaDownload.Configuracoes.Certificados.ArquivoPFX := vCaminhoCertificado; ACBRNFeTriviaDownload.Configuracoes.WebServices.UF := empresainfo.PessoaInfo.EnderecoPrinc.id_estado; ACBRNFeTriviaDownload.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; ACBRNFeTriviaDownload.SSL.CarregarCertificado; // Conecta na SEFAZ try dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.Executar; except logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Erro: ', IntToStr(dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.cStat)); logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Motivo: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.xMotivo); Na minha máquina funciona normal, na do cliente não...

Pessoal, perdão por abrir o mesmo tópico de outro dia, mas sendo que, eu relatei que havia dado certo, quando gerei o meu serviço e coloquei no cliente, não funcionou... quando eu coloco o programa exemplo do acbr, funciona... na minha máquina funciona tanto o serviço como o programa exemplo do acbr, o que poderia ser agora???? Obrigado desde já...

Estava usando o código abaixo para realizar o download de um xml sem realizar a manifestação, estava baixando normalmente, mas agora parou de funcionar, só está baixando a requisição, alguém sabe o porque? ACBRNFeTriviaDownload.NotasFiscais.Clear; // Download XML dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Arquivos.DownloadDFe.PathDownload := vCaminho; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Geral.Salvar := True; dtmCompra.ACBRNFeTriviaDownload.DistribuicaoDFePorChaveNFe(StrToInt(empresaInfo.PessoaInfo.EnderecoPrinc.Estado.CODESTADOIBGE), vCNPJ, cdsConsManifestacaoDestCHAVENFE.AsString); // Fim Download

Obrigado pela força, Renato e Juliomar, eram as configurações do SSLCryptLib... Valeu mesmo!

No exemplo deu o mesmo erro, parâmetro incorreto... SSLCryptLib := cryCapicom; SSLHttpLib := httpWinINet; SSLLib := libCapicom; SSLXmlSignLib := xsMsXmlCapicom;

SSLCryptLib := cryCapicom; SSLHttpLib := httpWinINet; SSLLib := libCapicom; SSLXmlSignLib := xsMsXmlCapicom; Quando eu tento abrir o programa de exemplo, dá o erro em anexo...

Coloquei essa sequência: ACBRNFeTriviaDownload.SSL.DescarregarCertificado; ACBRNFeTriviaDownload.Configuracoes.Certificados.ArquivoPFX := 'C:\Empresas\Certificado2021.pfx'; ACBRNFeTriviaDownload.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; ACBRNFeTriviaDownload.SSL.CarregarCertificado; e mesmo assim deu erro na hora de carregar o certificado: parâmetro incorreto

Coloquei logo depois o ACBRNFeTriviaDownload.SSL.CarregarCertificado; e deu o mesmo erro, parâmetro incorreto.

Opa renato, bom dia! Passei esses parâmetros abaixo e não deu certo, deu um erro de : parâmetro inválido ACBRNFeTriviaDownload.Configuracoes.Certificados.ArquivoPFX := 'C:\Empresas\Certificado2021.pfx'; ACBRNFeTriviaDownload.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado;

Valeu renato, pelo retorno... irei olhar o link.... obrigado!

Opa, renato, tudo igual... no meu form normal, conecto... faço tudo... mas no meu service, não consigo conectar, exatamente iguais os códigos... até o componente é o mesmo, fica no mesmo datamodule.... não sei mesmo o que pode ser...

Olá pessoal, estou criando um serviço para consultar as notas destinadas ao meu cnpj, mas não estou conseguindo conectar a sefaz, estou fazendo o mesmo código, na minha aplicação funciona normalmente, mas no serviço não... sempre da o mesmo erro, certificado não encontrado. segue abaixo a configuração do componente, para ver se vocês conseguem me ajudar... dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Certificados.NumeroSerie := NFeCertificadoInfo.numCertificado; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.WebServices.UF := fempresaInfo.PessoaInfo.EnderecoPrinc.id_estado; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Geral.IdCSC := NFeCertificadoInfo.IdCSC; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Geral.CSC := NFeCertificadoInfo.CSC; try dtmCompra.ACBRNFeTriviaDownload.Configuracoes.WebServices.Visualizar := False; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.WebServices.Ambiente := taProducao; dtmCompra.ACBRNFeTriviaDownload.NotasFiscais.Clear; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Arquivos.PathSchemas :=''; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\Nfe'; finally end; dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.Executar; Quando manda executar, ele diz que não localizou o certificado... não sei mais o que fazer...