NativeXML

一、 欢迎

本帮助文件提供从SimDesign BV的NativeXml组件的信息。

二、 购买NativeXml!

NativeXml现在是开源的，但支持是仅专门适用于购买NativeXml的客户。

您可以通过此链接购买NativeXml：

/

价格：29.95欧元

采购NativeXml的优势：

两年的通过电子邮件或特殊的“NativeXml Source”论坛支持，接收测试和修正，

并从“NativeXml Source”论坛发布

三、

使用NativeXml的例子

本章提供有关如何使用NativeXml一些例子。

3.1.例子A:XML的装载、存储和导出

这个例子显示如何加载一个XML文档，然后以可读格式导出到一个TMemo领域。

拖放一个TEdit（Edit1），TButton（Button1）和一个TMemo到你的窗体，然后

连接到下面的按钮的OnClick事件代码。填写文件名到Edit1，然后按一下按钮，您会看

到在memo控件中列出XML文件的内容。

procedure 1Click(Sender: TObject);

var

ADoc: TNativeXml;

begin

;

ADoc := ;

try

omFile();

mat := xfReadable;

:= oString;

finally

;

end;

end;

注意，mat：= xfReadable将确保该文件是以易读的形式列出（以回

车符和缩进）。

3.2.例子B:连接到节点

这个例子显示了如何访问在XML文件中的各个节点。一个节点可以从一个普通的XML

标记、注释、CDATA结构，等等东西。该示例演示如何使用一个简单的双循环列出前2层

的节点。

添加Tedit、TButton和TMemo到窗体，然后将下面的事件代码连接到按钮的

OnClick。然后在Edit1中填写文件名，按一下按钮，前两层的节点将会在memo控件中

列出。

procedure 2Click(Sender: TObject);

var

i, j: integer;

ADoc: TNativeXml;

begin

;

ADoc := ;

try

omFile();

if assigned() then with do

for i := 0 to NodeCount - 1 do begin

(Nodes[i].Name);

for j := 0 to Nodes[i].NodeCount - 1 do

(' ' + Nodes[i].Nodes[j].Name);

end;

finally

;

end;

end;

3.3.例子C:事件驱动处理

这个例子说明了NativeXml可以用一个SAX-like的方式，按顺序读文件，每当一个

节点初始化和加载时产生事件。

添加一个TButton（Button3）和一个TMemo（Memo1）到您的窗体，然后将

NativeXml包括在uses中。接下来，键入下面的k事件处理程序代码。

procedure 3Click(Sender: TObject);

var

ADoc: TNativeXml;

begin

;

ADoc := ;

try

New := DoNodeNew;

Loaded := DoNodeLoaded;

omFile();

finally

;

end;

end;

键入下面的程序代码在新的TForm1中：

function (ACount: integer): string;

begin

while ACount > 0 do begin

Result := Result + ' ';

dec(ACount);

end;

end;

procedure New(Sender: TObject; Node: TXmlNode);

begin

(Format('New : %sName=%s', [Indent(pth),

]));

end;

procedure Loaded(Sender: TObject; Node: TXmlNode);

begin

(Format('Loaded: %sName=%s, Value=%s',

[Indent(pth), , sString]));

end;

当一个节点被找到，OnNodeNew事件被触发，每当一个节点完全装载，

OnNodeLoaded事件被触发。

如果您不希望保留在内存中的XML文件的完整副本，例如，对大型XML文件，你可

以直接删除该节点，释放其内存。在这种情况下，添加以下代码到OnNodeLoaded事件：

procedure Loaded(Sender: TObject; Node: TXmlNode);

begin

(Format('Loaded: Name=%s, Value=%s', [,

sString]));

if pth > 0 then begin

(Format('Deleted: Name=%s', []));

;

end;

end;

3.4.例子D:创建一个简单的XML文件

这个例子演示如何创建一个简单的XML文件，在根节点下的一个节点，有一个属性和

子节点。我们将尝试创建这个XML文件：

John Doe

下面是一个过程的代码，创建此文件，并以易读格式保存到一个文件名为

“C:”的文件：

procedure CreateXML;

var

ADoc: TNativeXml;

begin

// Create new document with a rootnode called "Root"

ADoc := Name('Root');

try

// Add a subnode with name "Customer"

with w('Customer') do begin

// Add an attribute to this subnode

WriteAttributeInteger('ID', 123456);

// Add subsubnode

WriteString('Name', 'John Doe');

end;

// Save the XML in readable format (so with indents)

mat := xfReadable;

// Save results to a file

File('c:');

finally

;

end;

end;

3.5.例子E:使用UTF8和Unicode编码的文件（支持

widestring）

这个例子显示了如何创建和加载支持widestrings的XML文件。

Xml内部编码

NativeXml可以工作在两种“模式”：要么所有的内部字符串是普通的ANSI字符串或

所有内部字符串是UTF8编码字符串。字符串类型不会改变（它仍然是“string”）。虽然

Delphi7有一种特殊类型“Utf8String”，但没有使用，以保持较低的Delphi版本的兼容性。

为了确保你的XML文档可以使用widestrings，创建它，然后直接设置属性

“Utf8Encoded”为True，如下所示：

procedure CreateXML;

var

ADoc: TNativeXml;

begin

ADoc := Name('Root');

try

// Make sure to be able to handle widestrings

8Encoded := True;

// ..add all your creation code here

finally

;

end;

end;

Xml外部编码

保存您的文档时，为外部文件或流选择适当的编码（SaveToStream也需要正确的编

码保存）。设置属性“ExternalEncoding”到其中的任何值：

se8bit：这将返回一个纯ASCII文件，所有的Unicode/widestring字符值高于$FF。

这是默认值。

seUTF16LE：这将返回一个Unicode文件的字节顺序标记$FF FE。这应该作为一个

Unicode文件的默认。

seUTF16BE：这将返回大字节（big-endian）Unicode文件的字节顺序标记$FE FF。

seUTF8：这将返回一个UTF-8编码文件的字节顺序标记$FF BB BF。UTF-8在大部

分字符为西方或拉丁语时，是更好的存储方式。然而，它可以为中文或日文等多种语言提供

更多的空间。

这里有一个关于如何设置外部编码的例子：

procedure CreateXML;

var

ADoc: TNativeXml;

begin

ADoc := Name('Root');

try

// Make sure to be able to handle widestrings

8Encoded := True;

// ..add all your creation code here

// Save to unicode

alEncoding := seUTF16LE;

ngString := 'UTF-16';

File('c:');

finally

;

end;

end;

3.5.3.添加widestrings

添加widestrings到文档很容易。每个节点的值可以设置为widestring，使用属性的

ValueAsWidestring，并可以在一般情况下使用FromWidestring函数添加widestrings。

下面的例子代码，增加了一个新的节点到根，然后设置节点名字(Name)为Aname，

节点值(value)为AValue：

procedure AddNode(ADoc: TXmlDocument; AName, AValue: widestring);

begin

with do

with NodeNew(FromWidestring(AName)) do

ValueAsWidestring := AValue;

end;

3.5.4.加载XML文件的扩展字符

当读取包含扩展字符的XML文件，重要的是在引入前设置Utf8Encoded为True，像

这样：

function CreateXMLAndLoadFromFile(AFilename: string): TNativeXml;

begin

Result := ;

8Encoded := True;

omFile(AFilename);

end;

当从一个流（例如从一个TCP连接）读入，流并不总是包含字节顺序标记（BOM）。

但是，如果流是Unicode，NativeXml将承认它，因此没有任何帮助。例如：

function CreateXMLAndLoadFromStream(S: TStream): TNativeXml;

begin

Result := ;

8Encoded := True;

omStream(S);

end;

如果你知道你的流具有一定的编码，你可以强制NativeXml使用这种编码，例如：

function CreateXMLAndLoadFromUTF8Stream(S: TStream): TNativeXml;

begin

Result := ;

8Encoded := True;

// The stream is encoded using UTF8

alEncoding := seUTF8;

omStream(S);

end;

一、

四、符号引用(Symbol Reference)

4.1.类(Classes)

nentAccess类

TComponentAccess = class(TComponent)

entState

property ComponentState;

ponentState

procedure SetComponentState(const AState: TComponentState);

eXml类

TNativeXml = class(TPersistent)

TNativeXml是XML文件的载体。创建一个TNativeXml，然后使用方法

LoadFromFile、LoadFromStream或ReadFromString加载XML文档到内存中。

或者从头开始使用w添加节点，并最终SaveToFile和SaveToStream

保存结果为一个XML文档。用属性Xmlformat = xfReadable确保缩进（易读）输

出。

arsing

property AbortParsing: boolean;

如果您使用一个SAX-like方式的OnNodeNew和OnNodeLoaded事件，并要

中止解析过程，设置AbortParsing为True。例如：

procedure XmlNodeLoaded(Sender: TObject; Node:

TXmlNode);

begin

if ( = 'LastNode') and (Sender is TNativeXml) then

TNativeXml(Sender).AbortParsing := True;

end;

Encoding

property BinaryEncoding: TBinaryEncodingType;

当调用Read和Write时，将使用什么样

的二进制编码。默认值是xbeBase64。

tString

property CommentString: UTF8String;

可以通过此属性访问上方的根元素

本文标签： 节点 属性 转换 文件 类型