Question

我需要帮助来实现这个xml，我对第三行有一个问题，这是我用我的代码得到的：

<?xml version="1.0" encoding="utf-8"?>
<xfdf xmlns="http://ns.adobe.com/xfdf/" xml:space="preserve">
  <f xmlns="" href="myExample.pdf">
    <fields>
      <field name="chk01">
        <value>X</value>
      </field>
      <field name="chk02">
        <value>X</value>
      </field>
      <field name="edt11">
        <value>Some text</value>
      </field>
    </fields>
  </f>
</xfdf>

这就是我需要的：

<?xml version="1.0" encoding="UTF-8"?>
<xfdf xmlns="http://ns.adobe.com/xfdf/" xml:space="preserve">    
  <f href="myExample.pdf"/>
  <fields>
    <field name="chk01">
      <value>X</value>
    </field>
    <field name="chk02">
      <value>X</value>
    </field>
    <field name="edt11">
      <value>Some text</value>
    </field>
  </fields>
</xfdf>

我不知道如何在第二个例子中创建“f”标签，注意它有点不同，它在同一行关闭，而不是在第一个例子中的最后一行之前。

这是我的代码：

....
Var
  XML : IXMLDOCUMENT;
  RootNode, NodeLevel1, CurNode : IXMLNODE;
Begin
  XML := NewXMLDocument;
  XML.Encoding := 'utf-8';
  XML.Options := [doNodeAutoIndent];

  RootNode := XML.AddChild('xfdf');
  RootNode.Attributes['xmlns']:= 'http://ns.adobe.com/xfdf/';
  RootNode.Attributes['xml:space']:= 'preserve';

  RootNode := XML.DocumentElement.AddChild('f');
  RootNode.Attributes['href']:= 'myExample.pdf';

  NodeLevel1 := RootNode.AddChild('fields');
  CurNode := NodeLevel1.AddChild('field');
  CurNode.Attributes['name'] := 'chk01';
  CurNode := CurNode.AddChild('value');
  CurNode.Text:= 'X';

  CurNode := NodeLevel1.AddChild('field');
  CurNode.Attributes['name'] := 'chk02';
  CurNode := CurNode.AddChild('value');
  CurNode.Text:= 'X';

  CurNode := NodeLevel1.AddChild('field');
  CurNode.Attributes['name'] := 'edt11';
  CurNode := CurNode.AddChild('value');
  CurNode.Text:= 'Some text';

 XMl.SaveToFile('C:\New.fdf');

Answer 1

你混合节点

f是孩子xfdf

filds也是孩子xfdf

溶液

Var
XML : IXMLDOCUMENT;
fnode, RootNode, NodeLevel1, CurNode : IXMLNODE;
Begin
XML := NewXMLDocument;
XML.Encoding := 'utf-8';
XML.Options := [doNodeAutoIndent];

RootNode := XML.AddChild('xfdf');
RootNode.Attributes['xmlns']:= 'http://ns.adobe.com/xfdf/';
RootNode.Attributes['xml:space']:= 'preserve';

fnode := RootNode.AddChild('f');
fNode.Attributes['href']:= 'myExample.pdf';

NodeLevel1 := RootNode.AddChild('fields');
CurNode := NodeLevel1.AddChild('field');
CurNode.Attributes['name'] := 'chk01';
CurNode := CurNode.AddChild('value');
CurNode.Text:= 'X';

CurNode := NodeLevel1.AddChild('field');
CurNode.Attributes['name'] := 'chk02';
CurNode := CurNode.AddChild('value');
CurNode.Text:= 'X';

CurNode := NodeLevel1.AddChild('field');
CurNode.Attributes['name'] := 'edt11';
CurNode := CurNode.AddChild('value');
CurNode.Text:= 'Some text';

XMl.SaveToFile('C:\tmp\New.fdf');end;

Answer 2

你的结果很糟糕，因为：

您没有正确处理XML命名空间。
您正在创建fields节点作为f节点的子节点而不是xfdf节点的子节点。

添加子节点时，它会继承其父节点的命名空间，除非您明确指定了不同的命名空间，并且命名空间在分配后无法更改。

在您的情况下，您的xfdf节点实际上并未添加到Adobe命名空间，您伪造它！ XML引擎不知道命名空间，因此{{ 1}}节点有一个空白名称空间，xfdf子节点继承。这就是为什么f节点以不需要的f属性结束的原因，因此没有歧义，因为它们属于哪个命名空间子节点。

要正确声明命名空间以便XML引擎知道它，您需要使用xmlns=""方法而不是IXMLNode.DeclareNamespace()属性。

你可以：

在将IXMLNode.Attributes节点添加到文档后，显式声明它。 xfdf节点本身不在命名空间中（xfdf属性仍为空白），但在添加IXMLNode.NamespaceURI和{{1时}可以显式应用命名空间子节点：
```
f
```
或者，在您将该节点添加到文档时，在fields节点上声明Adobe名称空间，然后该节点将位于名称空间中，以便const NsAdobeXfdf = 'http://ns.adobe.com/xfdf/'; var XML: IXMLDocument; RootNode, FNode, FieldsNode, FieldNode: IXMLNode; begin XML := NewXMLDocument; XML.Encoding := 'utf-8'; XML.Options := [doNodeAutoIndent]; RootNode := XML.AddChild('xfdf'); // <-- xfdf is not in any namespace RootNode.DeclareNamespace('', NsAdobeXfdf); // <-- declare the namespace RootNode.Attributes['xml:space'] := 'preserve'; FNode := RootNode.AddChild('f', NsAdobeXfdf); // <-- f is in the Adobe namespace FNode.Attributes['href'] := 'myExample.pdf'; FieldsNode := RootNode.AddChild('fields', NsAdobeXfdf); // <-- fields is in the Adobe namespace FieldNode := FieldsNode.AddChild('field'); // <-- inherits namespace from fields FieldNode.Attributes['name'] := 'chk01'; FieldNode.AddChild('value').Text := 'X'; // <-- inherits namespace from field FieldNode := FieldsNode.AddChild('field'); // <-- inherits namespace from fields FieldNode.Attributes['name'] := 'chk02'; FieldNode.AddChild('value').Text := 'X'; // <-- inherits namespace from field FieldNode := FieldsNode.AddChild('field'); // <-- inherits namespace from fields FieldNode.Attributes['name'] := 'edt11'; FieldNode.AddChild('value').Text := 'Some text'; // <-- inherits namespace from field XML.SaveToFile('C:\New.fdf'); end;和{{ 1}}子节点继承它，您无需手动调用xfdf（f在内部为您调用）：
```
fields
```

这两种方法都会删除DeclareNamespace()和AddChild()节点上的const NsAdobeXfdf = 'http://ns.adobe.com/xfdf/'; var XML: IXMLDocument; RootNode, FNode, FieldsNode, FieldNode: IXMLNode; begin XML := NewXMLDocument; XML.Encoding := 'utf-8'; XML.Options := [doNodeAutoIndent]; RootNode := XML.AddChild('xfdf', NsAdobeXfdf); // <-- xfdf is in the Adobe namespace RootNode.Attributes['xml:space'] := 'preserve'; FNode := RootNode.AddChild('f'); // <-- inherits namespace from xfdf FNode.Attributes['href'] := 'myExample.pdf'; FieldsNode := RootNode.AddChild('fields'); // <-- inherits namespace from xfdf FieldNode := FieldsNode.AddChild('field'); // <-- inherits namespace from fields FieldNode.Attributes['name'] := 'chk01'; FieldNode.AddChild('value').Text := 'X'; // <-- inherits namespace from field FieldNode := FieldsNode.AddChild('field'); // <-- inherits namespace from fields FieldNode.Attributes['name'] := 'chk02'; FieldNode.AddChild('value').Text := 'X'; // <-- inherits namespace from field FieldNode := FieldsNode.AddChild('field'); // <-- inherits namespace from fields FieldNode.Attributes['name'] := 'edt11'; FieldNode.AddChild('value').Text := 'Some text'; // <-- inherits namespace from field XML.SaveToFile('C:\New.fdf'); end;属性，因为它们属于xmlns=""节点中声明的命名空间，以及后续的子节点将按预期继承命名空间：

如何使用IXMLDOCUMENT使用Delphi正确创建XML标头（以xfdf格式填充pdf文档）

2 个答案: