Regressão ACBrDFeXsXmlSec.pas

[Dipold]

Problema:

No método TDFeSSLXmlSignXmlSec.VerificarAssinatura(), a variável AXml foi alterada de AnsiString para String nesse commit, e quando executa a linha:

xmlParseDoc(PAnsiChar(AXml));

a conversão para PAnsiChar corrompe seu valor e o método xmlParseDoc() recebe como argumento um valor corrompido/lixo;

Solução:

Retornar a declaração para AnsiString;

Também sugiro alterar o seguinte trecho de código para mensagem ser mais específica do que erro genérico "Erro: Falha ao interpretar o XML "xmlParseDoc"":

    doc := xmlParseDoc(PAnsiChar(AXml));
    if ((doc = nil) or (xmlDocGetRootElement(doc) = nil)) then
    begin
      MsgErro := ACBrStr(cErrParseDoc);
      Exit;
    end;

Para:

var
  schemError: xmlErrorPtr;

    doc := xmlParseDoc(PAnsiChar(AXml));
    if ((doc = nil) or (xmlDocGetRootElement(doc) = nil)) then
    begin
      schemError := xmlGetLastError();
      if (schemError <> nil) then
        MsgErro := ACBrStr(cErrParseDoc) + #13#10 + IntToStr(schemError^.code) + ' - ' + schemError^.message
      else
        MsgErro := ACBrStr(cErrParseDoc);
      Exit;
    end;

 

 

[Dipold]

Ficou alguma dúvida com relação ao meu post? 

Caso não tenha ficado claro, um teste simples pra entender que há perda de dados ao fazer cast para PAnsiChar entre String e AnsiString:

program Project1;

{$APPTYPE CONSOLE}

var
  AXMLAnsi: AnsiString;
  AXMLStr: String;
begin
  AXMLAnsi := '<?xml version="1.0" encoding="UTF-8"?>';
  AXMLStr  := '<?xml version="1.0" encoding="UTF-8"?>';

  WriteLn(PAnsiChar(AXMLAnsi)); //Imprime: <?xml version="1.0" encoding="UTF-8"?>
  WriteLn(PAnsiChar(AXMLStr));  //Imprime: <

  ReadLn;
end.