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));

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;