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;