Validamodalmsxml Coinitialize

[rafaeldalbosco]

  Gostaria de sugerir uma alteração para o fonte ACBrMDFeUtil.pas no método ValidaModalMSXML pois não esta disponível CoInitialize(nil) e o CoUninitialize, se faz necessário para o acesso em um ambiente de threads no Delphi (no meu caso Servidor REST Delphi XE5),  verifiquei que no método ValidaMSXML já possui, somente adicionei no método ValidaModalMSXML.

 

  Se for possível enviar essa alteração para o SVN agradeço. O fonte alterado foi este que esta em anexo.

ACBrMDFeUtil.pas

ACBrMDFeUtil.pas

[Italo Giurizzato Junior]

Bom dia Rafael,

 

Muito obrigado pela colaboração, já esta disponível.

[Schinobli]

Italo, após atualizar meus fontes percebi que essa função: CoInitialize e CoUninitialize resultava em: "Erro Não Especificado" ao assinar o Lote de RPS.

 

Na linha:

 

signedKey := xmldsig.sign(dsigKey, $00000002); na function AssinarMSXML.

 

Minha aplicação não faz uso de threads e estava funcionando para o Provedor Pronim antes de atualizar os fontes.

 

Eu chamo o ACBrNFSe1.NotasFiscais.Assinar para todos provedores, até então funcionava...

 

O que poderá ser feito?

[Italo Giurizzato Junior]

Boa noite,

 

Primeiramente, preste atenção onde você poste as suas duvidas, este tópico se refere ao componente ACBrMDFe e não ACBrNFSe.

 

Segundo o erro que esta ocorrendo não tem nada haver com CoInitialize e CoUninitialize e sim com o Identificado que tem que ser "Id" e não "id".