Erro DistribuicaoDFe

[Duarte]

Tudo neste projeto foi feito com Thread, teve alguma alteração que o uso de Thread poderia a vim comprometer algo? Pois se que o uso de Thread é chato, uma mudança no projeto lá a gente que quer mexer em um monte de coisa que a Thread venha funcionar lega.

[Italo Giurizzato Junior]

Duarte,

Quanto ao Thread não sei lhe informar. 

O Daniel, André tem mais propriedade em responder a sua pergunta.

[Daniel Simoes]

Não compreendi a dúvida...

Eu uso o ACBrNFe dentro de Threads...

[andrecrp]

Bom dia,
Encontrei o mesmo problema na utilização do trunk2 revision 9532 (dia 13/07) ,  resolvi o problema alterando  a unit ACBrNFeWebServices.pas sobrescrevendo o método procedure DefinirEnvelopeSoap; override;
procedure TDistribuicaoDFe.DefinirEnvelopeSoap;
var
  Texto: AnsiString;
begin
  Texto := '<?xml version="1.0" encoding="utf-8"?>';
  Texto := Texto + '<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ' +
                                    'xmlns:xsd="http://www.w3.org/2001/XMLSchema" ' +
                                    'xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">';
  Texto := Texto +   '<soap12:Body>';
  Texto := Texto +     '<nfeDistDFeInteresse xmlns="' + Servico + '">';
  Texto := Texto +       '<nfeDadosMsg>';
  Texto := Texto +         FPDadosMsg;
  Texto := Texto +       '</nfeDadosMsg>';
  Texto := Texto +     '</nfeDistDFeInteresse>';
  Texto := Texto +   '</soap12:Body>';
  Texto := Texto + '</soap12:Envelope>';
  FPEnvelopeSoap := Texto;
end;


att

André.

[Italo Giurizzato Junior]

Bom dia André,

Essa alteração eu até tinha feito, mas depois foi removida e feita de uma outra forma.

Assim que normalizar o SVN por favor atualize os seus fontes novamente.

[rafaeldalbosco]

Bom dia Pessoal, gostaria de compartilhar com você, ontem estive com um problema semelhante, e estou postando abaixo a solução que fiz para min, estava ocorrendo porque após configurar o componente eu não estava dando esse comando:

WS.SSL.CarregarCertificado;

Com ele consegui resolver, porém comecei a investigar o problema do porque o mesmo ocorre e identifiquei que no fonte ACBrDFeCapicom.pas nos métodos TDFeCapicom.Assinar e TDFeCapicom.Validar é utilizado o seguinte código:

  CoInitialize(nil);
  try
    CarregarCertificadoSeNecessario;
...

Acontece que no método CarregarCertificadoSeNecessario também é validado se tem ou não o número do certificado carregado, caso não tenha executa o método que carrega o certificado digital para memória, dentro desse método também se executa o CoInitialize(nil); e CoUninitialize; acabando liberando o recurso.

Uma sugestão de melhoria caso queiram aceitar seria alterar nos dois métodos "TDFeCapicom.Assinar" e "TDFeCapicom.Validar" para que o código fique dessa maneira:

  CarregarCertificadoSeNecessario;  
  CoInitialize(nil);
  try    
...

Isso irá evitar esse tipo de problema caso o programador esqueça de na hora de configurar de chamar o método:

WS.SSL.CarregarCertificado;

Anexei o fonte com a alteração caso queiram aceitar.

ACBrDFeCapicom.pas

[Daniel Simoes]

Já testou com a alteração de ontem a noite ?... agora está assim:

  Inicializado := (CoInitialize(nil) in [ S_OK, S_FALSE ]);
  try
    ...
  finally
    if Inicializado then
      CoUninitialize;
  end;

 

[rafaeldalbosco]

8 minutos atrás, Daniel Simoes disse:

Já testou com a alteração de ontem a noite ?... agora está assim:

  Inicializado := (CoInitialize(nil) in [ S_OK, S_FALSE ]);
  try
    ...
  finally
    if Inicializado then
      CoUninitialize;
  end;

 

Realmente Daniel, pelo que vi isso vai resolver também. 

Vou fazer um teste aqui para verificar se funciona.

[rafaeldalbosco]

Daniel, só para confirmar que a sua alteração funcionou certinho aqui para min.

[Daniel Simoes]

Na verdade o mérito é do @Antonio Sidinei Schug

http://www.projetoacbr.com.br/forum/topic/26901-coinitialize/