Envio De Nfe Usando Thread.

[carlosmarian]

Olá,

  implementei o processamento dos NF-e(geração, assinatura, envio e impressão) usando Thread.

  eu estava tendo um problema ao buscar os certificados, e verifiquei que no método "TCertificadosConf.GetCertificado" da unit ACBrCTeConfiguracoes, existe a chamada "CoInitialize(nil)" com o comentário "PERMITE O USO DE THREAD".

  Coloquei este mesmo código "CoInitialize(nil);" no método "TCertificadosConf.GetCertificado" da unit "ACBrNFeConfiguracoes" e o erro parou de ocorrer.

  isso é correto?

  

obrigado pela atenção.

[André Ferreira de Moraes]

Que tipo de problema que vc estava tendo?

[carlosmarian]

Olá,

   estou tendo o seguinte retorno:

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

   quando chama o método "TCertificadosConf.GetCertificado"

 

at+

[Vanessinha Mocellin]

Que tipo de problema que vc estava tendo?

 

Boa tarde André,

 

Enfrentei o mesmo problema que o Carlos.

 

O erro realmente ocorre quando executado o método GetCertificado dentro de uma Thread.

A Thread necessita que o comando CoInitialize(nil) seja executado, para processar corretamente a API do ActiveX.

 

Para resolver esse problema criei uma condição de compilação, segue em anexo o fonte para ser analisado.

ACBrNFeConfiguracoes.pas

ACBrNFeConfiguracoes.pas

Editado 18 Junho, 2014 por Vanessinha Mocellin

[Caetano]

ola

Já subiram esta modificação da Vanessinha?

Pois realmente o erro esta ocorrendo.

Agradeço

[Juliomar Marchetti]

ola

Já subiram esta modificação da Vanessinha?

Pois realmente o erro esta ocorrendo.

Agradeço

Não

Você baixou o código? testou em sua aplicação? resolveu seu problema?

[Vanessinha Mocellin]

Não

Você baixou o código? testou em sua aplicação? resolveu seu problema?

Boa tarde Juliomar

 

Resolve sim, é apenas uma diretiva de compilação, optei por fazer dessa forma para que o processamento de quem não utiliza Thread permaneça o mesmo.

Para quem utiliza com Thread, basta adicionar a diretiva de compilação em seu projeto.

[Juliomar Marchetti]

Boa tarde Juliomar

 

Resolve sim, é apenas uma diretiva de compilação, optei por fazer dessa forma para que o processamento de quem não utiliza Thread permaneça o mesmo.

Para quem utiliza com Thread, basta adicionar a diretiva de compilação em seu projeto.

No caso estava falando para o Caetano ! 

Para ver se ele fez o teste e baixou o código seu e testou

[Caetano]

Sim Juliomar. Funcionou

[Juliomar Marchetti]

Obrigado pela colaboração já está disponível e funcionando para os demais componentes também!

[Italo Giurizzato Junior]

Bom dia Juliomar,

 

No caso do ACBrCTe temos no inicio da function GetCertificado o CoInitialize(nil) e no final o CoUninitialize, este não se faz necessário?

[Juliomar Marchetti]

Faz e nem havia me atentado a esse detalhe!

estarei corrigindo e subo!

[Juliomar Marchetti]

Correção feita Italo !

já está no svn, aproveitei e tratei em todos dentro do bloco caso ocorra erro!

[Italo Giurizzato Junior]

Juliomar,

 

Atualizado e compilado, sem nenhum problema.

[Caetano]

Ok. Vou atualizar e testar novamente.

 

Agradeço

[Vanessinha Mocellin]

No caso estava falando para o Caetano ! 

Para ver se ele fez o teste e baixou o código seu e testou

Eu entendi a quem estava sendo direcionada a pergunta Juliomar hehehe a questão é que não tinha porque não fucionar kkkk

[Caetano]

Olá.

Baixei e testei, pra mim não deu certo, continuo o mesmo erro.

CoInitialize não foi chamado, ClassID: {88D969E5-F192-11D4-A65F-0040963251E5}

[Juliomar Marchetti]

Claro que após baixar você recompilou tudo usando o ACBrInstall?

[Caetano]

Recompilei o pacote ACBRNFe2, este que seria o necessário.

[Leandro Araújo]

Boa tarde.

Hoje resolvi atualizar o ACBr, dai quando fui rodar a aplicação, me deparei com o erro: OLeSysError with message 'CoInitialize não foi chamado'.

No Delphi aqui, quando dá o erro, ele abre e fica parado na unit ACBrNFeUtil.

 

Detalhe, já utilizamos thread antes para emitir as notas, já havia descomentado a linha CoInitialize(nil); // PERMITE O USO DE THREAD

Mas como atualizei pelo tortoise, deu conflito e resolvi o conflito dando preferência para o arquivo do projeto ACBr, depois olhei lá e o mesmo já veio com a uses da unit ActiveX e a linha CoInitialize(nil); // PERMITE O USO DE THREAD descomentada, mas o erro continua.

 

Alguém já conseguiu resolver?

Obrigado.

Editado 29 Agosto, 2014 por Leandro Araújo

[Juliomar Marchetti]

Boa tarde

Não serviu o método inserido aqui no código?

então é conforme solicitei acima para que fosse feito testes, dois colegas (Vanessa e Caetano) avisaram que funcionou , mas no seu caso não!

precisa encontrar em seu código o que está ocorrendo ou se for problema com essa alteração, achar o erro debugando e repassar aqui a solução para resolvermos

[Leandro Araújo]

Boa tarde

Não serviu o método inserido aqui no código?

então é conforme solicitei acima para que fosse feito testes, dois colegas (Vanessa e Caetano) avisaram que funcionou , mas no seu caso não!

precisa encontrar em seu código o que está ocorrendo ou se for problema com essa alteração, achar o erro debugando e repassar aqui a solução para resolvermos

Bom dia Juliomar.

Acho que não esclareci direito.

Já funcionava antes, com a linha 'CoInitialize(Nil)' descomentada.

Apenas atualizei os fontes, observei que já está vindo com a mesma linha descomentada e a uses da ActiveX, porém o erro persiste, como se não estivesse chamando o método, não estou utilizando essas as diretivas de compilaçao do ACBr.inc incluídas pelos colegas {IFDEF ACBrThread}.

Obrigado.

Editado 1 Setembro, 2014 por Leandro Araújo

[Juliomar Marchetti]

Estranho  !

será que você não tem mais alguma coisa ou em especifico que utilize antes mesmo do componente e não esteja sendo feito isso em sua aplicação!?

[Leandro Araújo]

Achei, pelo menos eu acho.

Percebi uma chamada de 'CoUninitialize' na unit ACBrNFeConfiguracoes.

Comentei, no bloco finally da function GetCertificado a chamada 'CoUninitialize', testei e funcionou, depois descomentei novamente e deu o erro.

finally
			  Lista.free;
			end;
            break;
          end;
         Extension := nil;
       end;

      break;
    end;
  end;

  if not(Assigned(Result)) then
    raise EACBrNFeException.Create('Certificado Digital não encontrado!');
  finally
    // CoUninitialize;
  end;

Tem algum problema em comentar ai?

Obrigado.

[Leandro Araújo]

Não daria para chamar na 'Finalization' da aplicação?
Ou então, chamar novamente o 'CoUnitialize' lá na ACBrNFEUtil, onde está o erro?

Desculpem não poder indicar em qual procedure ou function ocorre o erro, por algum motivo o IDE aqui não está debugando, mas mesmo assim para lá na untit ACBrNFEUtil.

Editado 1 Setembro, 2014 por Leandro Araújo