CoInitialize não foi chamado, ClassID: {91D221C4-0CD4-461C-A728-01D509321556}

[julio_cld]

Bom dia!

Gostaria de sanar uma dúvida.

Baixei o repositório recentemente, instalei novamente os componentes ACBr.

Estou tentando transmitir um CTe, ambiente de homologação.

estou com o seguinte erro: CoInitialize não foi chamado, ClassID: {91D221C4-0CD4-461C-A728-01D509321556}.

Estou utilizando a configuração libCapicom.

Esse tipo de configuração não funciona mais para emissão dos documentos eletrônicos?

[Juliomar Marchetti]

Funciona mas tu tem que instalar o capicom que está na pasta dll

[julio_cld]

Eu Instalei e registrei as dlls (ACBrTrunk\DLLs\Capicom).

Está apresentando o mesmo erro para emissão de CTe e MDFe.

Testei emissão de NFe, está funcionando perfeitamente.

[Juliomar Marchetti]

Bom não houve alteração nos componentes que viesse a impactar somente nesses dois.

Com os exemplos também ocorre o erro?

[julio_cld]

Testei exemplo de CTe. Não apresentou erro no método assinar apenas no meu aplicativo. 

na linha abaixo 

Unit ACBrCTeConhecimentos

linha 246

    if not Assigned(SSL.AntesDeAssinar) then
      SSL.ValidarCNPJCertificado( CTe.Emit.CNPJ );
 

[Juliomar Marchetti]

Não entendi muito bem mas ao que parece no exemplo funciona e no seu sistema não?

confere as diferença entre ambos

[julio_cld]

Isso. no exemplo funciona.

No meu sistema. apresenta erro no método assinar CoInitialize não foi chamado, ClassID: {91D221C4-0CD4-461C-A728-01D509321556}.

 

 

 

[Juliomar Marchetti]

Certo então é necessário conferir as diferenças entre ambos

 

[julio_cld]

Aparentemente esta tudo ok. Muito estranho isso, em alguns momentos funciona e outros mostra o erro ao assinar.

 

[julio_cld]

Consegui resolver. Tive que adicionar a linha abaixo na unit ACBrCAPICOM_TLB.

 

class function CoStore.Create: IStore3;
begin
  CoInitialize(nil);
  Result := CreateComObject(CLASS_Store) as IStore3;
end;
 

[Juliomar Marchetti]

é do seu sistema essa Unit?

pois tenho funcionando aqui e se for do ACBR não é necessário alterar

[julio_cld]

Essa unit é do próprio ACBr. Se remover essa linha CoInitialize(nil) é exibido erro ao assinar CoInitialize não foi chamado, ClassID: {91D221C4-0CD4-461C-A728-01D509321556}.

Estranho, vou realizar mais testes.

[Juliomar Marchetti]

Está com os fontes atualizados , todos eles ?

[julio_cld]

Sim todos atualizados, usei o .bat apagarAcbr.bat e instalei novamente os componentes.

Estou usando o delphi Rio.

[Juliomar Marchetti]

verifique se o no ACBr.inc ou no instalador não está com a opção para desabilitar o capicom ligado ou senão tem outro acbr.inc no seu projeto

[julio_cld]

Exite apenas um arquivo acbr.inc na pasta ACBrComum.

Instalador foi usado vide imagem no anexo.

[BigWings]

6 horas atrás, julio_cld disse:

Testei exemplo de CTe. Não apresentou erro no método assinar apenas no meu aplicativo. 

na linha abaixo 

Unit ACBrCTeConhecimentos

linha 246

    if not Assigned(SSL.AntesDeAssinar) then
      SSL.ValidarCNPJCertificado( CTe.Emit.CNPJ );
 

Está implementando algo no evento "OnAntesDeAssinar"?

[julio_cld]

7 minutos atrás, BigWings disse:

Está implementando algo no evento "OnAntesDeAssinar"?

Não, a propriedade FAntesDeAssinar é instanciada no create da classe TDFeSSL  = nil

 logo é executado a função SSL.ValidarCNPJCertificado (onde é ocasionado o problema)

isolei a linha da função acima para não validar o CNPJ com o cert. digital e validou e emitiu o CTe normalmente.

 

[julio_cld]

Bom dia pessoal!

Hoje pela manhã, efetuei novos testes (emissão de CTe e MDFe) e advinha!

Tudo funcionando (fontes originais do ACBr sem nenhuma alteração), não tenho explicações para ocorrido.

Gostaria de fechar o tópico e agradecer pela ajuda de todos.

[Juliomar Marchetti]

Obrigado por reportar.

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