Delphi - 包，XML解析和DTD

我正在使用RAD Studio XE7。在德尔福包我创建，我需要解析包含以下SVG数据的XML：Delphi - 包，XML解析和DTD

<!-- Generator: Adobe Illustrator 15.0.0, SVG Export Plug-In . SVG Version: 6.00 Build 0) --> 
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd"> 
<svg version="1.1" id="Layer_1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" x="0px" y="0px" width="141.73px" height="141.73px" viewBox="0 0 141.73 141.73" enable-background="new 0 0 141.73 141.73" xml:space="preserve"> 
    <linearGradient id="SVGID_1_" gradientUnits="userSpaceOnUse" x1="67.6445" y1="90.6875" x2="99.4551" y2="90.6875"> 
     <stop offset="0" style="stop-color:#26B5E3"/> 
     <stop offset="0.4887" style="stop-color:#3FBEED;stop-opacity:0.5113"/> 
     <stop offset="1" style="stop-color:#47C1F1;stop-opacity:0"/> 
    </linearGradient> 
    <path fill="url(#SVGID_1_)" d="M94.25,82.792l5.205-4.868c-3.235,14.581-16.266,25.527-31.811,25.527v-9.033c10.257,0,19.001-6.592,22.22-15.765L94.25,82.792z"/> 
    <path fill="#26B5E3" d="M99.479,63.931C96.303,49.282,83.23,38.279,67.645,38.279c-17.966,0-32.589,14.616-32.589,32.582c0,17.967,14.624,32.59,32.589,32.59v-9.033c-12.99,0-23.557-10.566-23.557-23.557c0-12.982,10.567-23.55,23.557-23.55c10.567,0,19.534,7.004,22.507,16.604l-15.937-0.042l10.017,9.46l5.633,5.32l4.386,4.139l5.205-4.868l4.854-4.549l10.065-9.411L99.479,63.931z"/> 
</svg>

在我的包，我用下面的代码读取XML文档：

uses ..., Xml.XMLIntf, Xml.XMLDoc, Xml.Win.msxmldom, ... 

var 
    pDocument: IXMLDocument; 
    ... 
begin 
    ... 
    // load file 
    pDocument := LoadXMLDocument(fileName); 
    ... 
end;

此代码工作得很好，而XML不包含以下行：这一行的XML我得到一个错误

<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">

不过：“DTD禁止”

我知道这个错误是众所周知的，并添加以下行应该解决这个问题：

Xml.Win.msxmldom.MSXMLDOMDocumentFactory.AddDOMProperty('ProhibitDTD', False);

而且是这种情况：当XML被加载时不再产生错误。然而，我的文档的所有内容似乎都被破坏了：一些节点松开了他们的名字，所有的属性内容都是空的......如果我在我的软件包代码中注释AddDOMProperty（'ProhibitDTD'，False），这种奇怪的行为就不会发生如果我手动删除源XML中包含DTD的行。此外，即使在使用AddDOMProperty（'ProhibitDTD'，False）代码时，在exe文件中编译的相同代码也可以很好地工作。

所以我的问题是：

我做错了吗？为什么当我激活包代码中的AddDOMProperty（'ProhibitDTD'，False）时，我的XML文档被完全破坏了？
对于在包内执行的代码，解决“禁止DTD”问题的正确方法是什么？（请与实施例）

问候

来源

2017-02-13 Jean-Milost Reymond

预处理XML并删除doctype并添加一个有效的xml序言？ – whosrdaddy

whorsdaddy，谢谢你的回答。我已经考虑过这个选择，但这将是我将应用的最少的一个，首先是因为我面临的问题可能是一个更深层问题的信号，其次是因为我认为忽略问题是更好的方式来遇到许多其他问题我的路。为此，我更愿意了解在应用变通方法之前发生的情况。 –

好的，我发现这个问题的根源。事实上，我犯了一个严重的错误。加载XML后，我试图让第一点是这样的：

pNode := pDocument.ChildNodes['svg'];

相反，得到这样说：

pNode := pDocument.DocumentElement;

我注意到这个问题走了，我的所有节点的数据均他们的正确位置。

来源

2017-02-13 21:54:48

下次给所有的细节，我可以告诉你这个... – whosrdaddy

是的，你是对的，对不起。我错误地认为问题位于加载进程本身，而不是在解析之后。 –

Delphi - 包，XML解析和DTD

回答

相关问题