SSLCryptClass não é TDFeCapicom

[i-master]

Boa tarde, atualizei e alterei o Programa

SO = XP SR2 atualizado

IE = 6 SP3

Delphi 2006

// Fim  Capicom 4/4/2017 16:51:09 (TopSoftware)
    ACBrNFe1.Configuracoes.Geral.SSLCryptLib :=  cryWinCrypt;
    ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpIndy;
    ACBrNFe1.Configuracoes.Geral.SSLLib := libCustom;
    ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib :=  xsMsXmlCapicom;

TS-NFeDebug002.bmp

Editado 5 Abril, 2017 por i-master

[Thobias Sobczak]

Boa tarde

Sugiro que faça a alteração na seguinte linha:

De SSLCryptLib :=  cryWinCrypt; para SSLCryptLib := cryCapicom;

[i-master]

1 hora atrás, Thobias Sobczak disse:

Boa tarde

Sugiro que faça a alteração na seguinte linha:

De SSLCryptLib :=  cryWinCrypt; para SSLCryptLib := cryCapicom;

Muito obrigado, funcionou.

[Daniel Carus]

mas o cryCapicom;  Não se refere a capicom que foi removida dos projetos recentemente??

[Juliomar Marchetti]

3 horas atrás, Daniel Carus disse:

mas o cryCapicom;  Não se refere a capicom que foi removida dos projetos recentemente??

Ele não foi removido, ainda existe só que agora com 3 possibilidades.

[Daniel Simoes]

Para remover completamente o suporte a CAPICOM do ACBr, e a dependência das Units da CAPICOM (e com isso libCapicom e cryCapicom deixam de funcionar)... Altere o ACBr.inc

Citar

Como remover completamente, as Units da CAPICOM dos meus fontes ?

Abra o arquivo \ACBr\Fontes\ACBrComum\ACBr.inc  e altere a seguinte linha:

{.$DEFINE DFE_SEM_CAPICOM}

para:

{$DEFINE DFE_SEM_CAPICOM}

Ou seja, remova o "." do inicio

 

[Aurino]

boa tarde

Qual padrão para essa configuração para certificado A1?
Pois ao consultar o serviço, consulta normalmente que o serviço está em operação porém ao transmitir a NFe, apresenta o erro SSLCryptClass não é TDFeCapicom.

[Daniel Simoes]

1 hora atrás, Aurino disse:

porém ao transmitir a NFe, apresenta o erro SSLCryptClass não é TDFeCapicom

como reproduzir no Demo do ACBrNFe ?

[Aurino]

Resolvido. alterei o Indy para http.

[Jonatas de Alencar Alves]

Olá,

Após pesquisar no fórum, esta conversa foi a que mais se aproximou da situação que estou passando. O que está ocorrendo é o seguinte:

Fiz uma nova instalação do framework ACBr nesta semana e então iniciei um projeto que tem como objetivo Inutilizar uma ou mais numerações de NFC-e (ainda na versão 3.10 da NF-e).

Após a instalação, retirei o comentário do arquivo 'ACBr.inc', ficando desta forma:

{$DEFINE DFE_SEM_CAPICOM}

Após isto, construí toda a rotina (para testes), inclusive (e muito importante na minha opinião), defini a propriedade SSLLib com o valor libWinCrypt:

ACBrNFe.Configuracoes.Geral.SSLLib := libWinCrypt

Após isto, quando realizei a tentativa de inutilização, foi apresentada a seguinte exception:

 

EACBrDFeException with message 'Falha ao assinar inutilização Nota Fiscal Eletrônica
Não foi possível encontrar o módulo especificado, ClassID: {88D969E5-F192-11D4-A65F-0040963251E5}'

conferi as configurações, que são estas inclusive:

ACBrNFe.Configuracoes.WebServices.Ambiente := taHomologacao ;
ACBrNFe.Configuracoes.Geral.ModeloDF := moNFCe ;
ACBrNFe.Configuracoes.Geral.VersaoDF := ve310 ;
ACBrNFe.Configuracoes.WebServices.UF := edtUF.Text ;
ACBrNFe.Configuracoes.Geral.IdCSC := edtCSC.Text ;
ACBrNFe.Configuracoes.Arquivos.PathSchemas := PastaXSD ;
ACBrNFe.Configuracoes.Arquivos.PathSalvar := SICNET.AllUserProfile + '\SICNET\NFCe.exe\XML\' ;
ACBrNFe.Configuracoes.Geral.SSLLib := libWinCrypt ;
ACBrNFe.SSL.SelecionarCertificado ;
ACBrNFe.WebServices.Inutiliza( edtCNPJ.Text, memJustificativa.Text, strtoint( trim( RightStr( edtAno.Text, 2 ) ) ), 65, StrToInt( edtSerie.Text ), StrToInt( edtNumInicial.Text ), StrToInt( edtNumFinal.Text ) ) ;

Não encontrei nenhuma inconsistência (usei o ACBrNFe_demo.exe como exemplo).

Analisando as classes que fazem parte do escopo da assinatura, encontrei a seguinte instrução, que (após o debug) se provou culpada pela exception:

// UNIT ACBrDFeXsMsXml

xmldoc := CoDOMDocument50.Create;

pesquisando sobre esta classe, cheguei a conclusão de que ela está inserida na Type Library ACBrMSXML2_TLB. Esta é por sua vez, a intermediária da C:\WINDOWS\SysWow64\msxml5.dll.

Então surgiu a dúvida:

A dll msxml5.dll ainda é necessária?

Visto que ela faz parte do pacote "Capicom", e este recurso não é mais utilizado no framework, de acordo com a postagem:

Por favor, me ajudem nesta questão.

Desde já, agradeço pela atenção.

Editado 17 Agosto, 2017 por Jonatas de Alencar Alves
a pergunta estava errada.

[André Ferreira de Moraes]

1 hora atrás, Jonatas de Alencar Alves disse:

A dll msxml5.dll ainda é necessária?

Visto que ela faz parte do pacote "Capicom", e este recurso não é mais utilizado no framework, de acordo com a postagem:

 

Onde no tópico citado vc viu que a msxml5 não é mais necessária? 

Citar

procedure TGeralConf.SetSSLLib(AValue: TSSLLib);
    case AValue of
.....
      libWinCrypt:
      begin
        SSLCryptLib := cryWinCrypt;
        SSLHttpLib := httpWinHttp;
        SSLXmlSignLib := xsMsXml;
      end;
    end;

 

[Daniel Simoes]

No tópico Bye Bye Capicom é descrito em tarefas a fazer... conseguir fazer com que a libXmlSec seja usada em conjunto com a WinCrypt...

Resolvido isso, ficaremos livres da MSXML.

[Jonatas de Alencar Alves]

Olá,

Primeiramente agradeço pela resposta.

Realmente, foi um erro da minha parte.

Não vou me justificar aqui, porém visto que tanto a 'msxml5.dll' quanto a 'libxml2.dll' são parser's imaginei que a primeira fosse descartada juntamente com a 'capicom.dll' visto que sempre (erroneamente)  associei as duas.

grato!