Erro Acess Violation Envio NFe e NFCe

[Emanoel Inocencio Neto]

Boa noite.

 

Estou migrando para o trunk2 porem não estou conseguindo gerar os xmls chega nesta função e cria um Access Violation quando passa pela linha em negrito. Fiz a atualização do diretório removi o delphi e instalei novamente. No aguardo obrigado

 

function TDFeSSL.Assinar(const ConteudoXML, docElement, infElement: String): String;
Var
  XmlAss, xmlHeaderAntes, xmlHeaderDepois: String;
  I: integer;
begin
  // Nota: ConteudoXML, DEVE estar em UTF8 //
  // Lendo Header antes de assinar //
  xmlHeaderAntes := '';
  I := pos('?>', ConteudoXML);
  if I > 0 then
    xmlHeaderAntes := copy(ConteudoXML, 1, I + 1);

 

  XmlAss := FSSLClass.Assinar(ConteudoXML, docElement, infElement);

 

  // Verificando se modificou o Header do XML assinado, e voltando para o anterior //
  if xmlHeaderAntes <> '' then
  begin
    I := pos('?>', XmlAss);
    if I > 0 then
    begin
      xmlHeaderDepois := copy(XmlAss, 1, I + 1);
      if xmlHeaderAntes <> xmlHeaderDepois then
        XmlAss := StuffString(XmlAss, 1, length(xmlHeaderDepois), xmlHeaderAntes);
    end
    else
      XmlAss := xmlHeaderAntes + XmlAss;
  end;

 

  //remover um cabeçalho vazio que estava ficando na inutilização
  XmlAss := StringReplace(XmlAss, '<?xml version="1.0"?>', '', []);

 

  Result := XmlAss;
end;

[Emanoel Inocencio Neto]

Olhando um pouco mais a fundo cheguei na seguinte linha da unit AcbrDFeCapicom o valor que esta causando o access violation.

    OleCheck(IDispatch(FCertificado.PrivateKey).QueryInterface(IPrivateKey, PrivateKey));

 

[jmc]

Bom dia pessoal ,

Apos atualizacao para a revisao 9664 trunk2 , esta dando erro de violacao apos dar o comando de enviar NFCe ou NFCe.  Se antes de enviar eu efetuar a consulta de status e depois enviar vai normal.

Na revisao 9656 q estava o mesmo nao acontecia.

E tb estou com problema no envio de xml importado nf de entrada. Esta dando erro pedindo cpf ou cnpj q nao acontecia na revisao 9656.

Se alguem passou por isso e conseguiu resolver , agradeco a ajuda.

 

Jeferson

[Daniel Simoes]

Por favor forneça mais detalhes, e trate um assunto por tópico... (abra vários tópicos para vários assuntos)

- como reproduzir o problema de A.V. no Demo do ACBrNFe ?

- CAPICOM ou OpenSSL ?

- Qual IDE e sistema Operacional ?

[Daniel Simoes]

Estou analisando...

[Daniel Simoes]

Enviei uma possível correção, favor baixar e testar

[Fernando Amado]

Estou com o mesmo erro porém para MDFe na hora de assinar... usando Capicom no delphi 7 e windows 7

  with TACBrMDFe(TManifestos(Collection).ACBrMDFe) do
  begin
    XMLAss := SSL.Assinar(ArqXML, 'MDFe', 'infMDFe');

 

Ele da o access violation na linha:

(ACBrDFeCapicom)

    // Lendo Chave Privada do Certificado //
    OleCheck(IDispatch(FCertificado.PrivateKey).QueryInterface(IPrivateKey, PrivateKey));

 

 

[Fernando Amado]

Depois da correção postada no Trunk2 agora as 12:00 resolveu o problema com o comando   CarregarCertificadoSeNecessario; no inicio das funções Validar, Assinar e etc!

[ThiagoDornelas]

bom dia,

estou migrando para o trunck 2, porem estou tendo um A.V. ao enviar uma NFe. estou testando na Demo mesmo (delphi 7, capicom , windows 7).

esse A.V. e na mesma linha que o Emanoel reportou no inicio desse post. 

XmlAss := FSSLClass.Assinar(ConteudoXML, docElement, infElement);

estou usando a ultima versao 9722 (atualizado hj).

 se alguem puder me dar uma dica, ficarei grato.

 

T+

[Daniel Simoes]

Copie as DLLs do OpenSSL, que estão no SVN, versão.14 para  a mesma pasta do seu .EXE

[ThiagoDornelas]

Copie as DLLs do OpenSSL, que estão no SVN, versão.14 para  a mesma pasta do seu .EXE

Daniel, obrigado pelo retorno, era isso mesmo. 

tb precisei copiar as do diretorio XMLSec.