码迷,mamicode.com
首页 > 其他好文 > 详细

Delphi 操作 XML(一)

时间:2014-05-21 14:06:37      阅读:260      评论:0      收藏:0      [点我收藏+]

标签:des   style   c   code   tar   ext   

一、欢迎
  本帮助文件提供从SimDesign BV的NativeXml组件的信息。
二、购买NativeXml!
  NativeXml现在是开源的,但支持是仅专门适用于购买NativeXml的客户。
  您可以通过此链接购买NativeXml:http://www.simdesign.nl/xml.html
  价格: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 TForm1.Button1Click(Sender: TObject);
var
  ADoc: TNativeXml;
begin
  Memo1.Lines.Clear;
  ADoc := TNativeXml.Create;
  try
    ADoc.LoadFromFile(Edit1.Text);
    ADoc.XmlFormat := xfReadable;
    Memo1.Lines.Text := ADoc.WriteToString;
  finally
    ADoc.Free;
  end;
end;
  注意,ADoc.XmlFormat:= xfReadable将确保该文件是以易读的形式列出(以回车符和缩进)。
3.2.例子B:连接到节点
  这个例子显示了如何访问在XML文件中的各个节点。一个节点可以从一个普通的XML标记、注释、CDATA结构,等等东西。该示例演示如何使用一个简单的双循环列出前2层的节点。
  添加Tedit、TButton和TMemo到窗体,然后将下面的事件代码连接到按钮的OnClick。然后在Edit1中填写文件名,按一下按钮,前两层的节点将会在memo控件中列出。
procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: integer;
  ADoc: TNativeXml;
begin
  Memo1.Lines.Clear;
  ADoc := TNativeXml.Create;
  try
    ADoc.LoadFromFile(Edit1.Text);
    if assigned(ADoc.Root) then with ADoc.Root do
      for i := 0 to NodeCount - 1 do begin
        Memo1.Lines.Add(Nodes[i].Name);
        for j := 0 to Nodes[i].NodeCount - 1 do
          Memo1.Lines.Add(‘ ‘ + Nodes[i].Nodes[j].Name);
      end;
  finally
    ADoc.Free;
  end;
end;
3.3.例子C:事件驱动处理
  这个例子说明了NativeXml可以用一个SAX-like的方式,按顺序读文件,每当一个节点初始化和加载时产生事件。
  添加一个TButton(Button3)和一个TMemo(Memo1)到您的窗体,然后将NativeXml包括在uses中。接下来,键入下面的TButton.OnClick事件处理程序代码。
procedure TForm1.Button3Click(Sender: TObject);
var
  ADoc: TNativeXml;
begin
  Memo1.Lines.Clear;
  ADoc := TNativeXml.Create;
  try
    ADoc.OnNodeNew    := DoNodeNew;
    ADoc.OnNodeLoaded := DoNodeLoaded;
    ADoc.LoadFromFile(Edit1.Text);
  finally
    ADoc.Free;
  end;
end;
  键入下面的程序代码在新的TForm1中:
function TForm1.Indent(ACount: integer): string;
begin
  while ACount > 0 do begin
    Result := Result + ‘  ‘;
    dec(ACount);
  end;
end;

procedure TForm1.DoNodeNew(Sender: TObject; Node: TXmlNode);
begin
  Memo1.Lines.Add(Format(‘New : %sName=%s‘, [Indent(Node.TreeDepth), Node.Name]));
end;

procedure TForm1.DoNodeLoaded(Sender: TObject; Node: TXmlNode);
begin
  Memo1.Lines.Add(Format(‘Loaded: %sName=%s, Value=%s‘, [Indent(Node.TreeDepth), Node.Name, Node.ValueAsString]));
end;
  当一个节点被找到,OnNodeNew事件被触发,每当一个节点完全装载,OnNodeLoaded事件被触发。
  如果您不希望保留在内存中的XML文件的完整副本,例如,对大型XML文件,你可以直接删除该节点,释放其内存。在这种情况下,添加以下代码到OnNodeLoaded事件:
procedure TForm1.DoNodeLoaded(Sender: TObject; Node: TXmlNode);
begin
  Memo1.Lines.Add(Format(‘Loaded: Name=%s, Value=%s‘, [Node.Name, Node.ValueAsString]));
  if Node.TreeDepth > 0 then begin
    Memo1.Lines.Add(Format(‘Deleted: Name=%s‘, [Node.Name]));
    Node.Delete;
  end;
end;
3.4.例子D:创建一个简单的XML文件
  这个例子演示如何创建一个简单的XML文件,在根节点下的一个节点,有一个属性和子节点。我们将尝试创建这个XML文件:
<?xml version="1.0" encoding="windows-1252"?>
<Root>
  <Customer ID="123456">
    <Name>John Doe</Name>
  </Customer>
</Root>
  下面是一个过程的代码,创建此文件,并以易读格式保存到一个文件名为“C:\test.xml”的文件:
procedure CreateXML;
var
  ADoc: TNativeXml;
begin
  // Create new document with a rootnode called "Root"
  ADoc := TNativeXml.CreateName(‘Root‘);
  try
    // Add a subnode with name "Customer"
    with ADoc.Root.NodeNew(‘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)
    ADoc.XmlFormat := xfReadable;
    // Save results to a file
    ADoc.SaveToFile(‘c:\test.xml‘);
  finally
    ADoc.Free;
  end;
end;
3.5.例子E:使用UTF8和Unicode编码的文件(支持widestring)
  这个例子显示了如何创建和加载支持widestrings的XML文件。
3.5.1.NativeXml内部编码
  NativeXml可以工作在两种“模式”:要么所有的内部字符串是普通的ANSI字符串或所有内部字符串是UTF8编码字符串。字符串类型不会改变(它仍然是“string”)。虽然Delphi7有一种特殊类型“Utf8String”,但没有使用,以保持较低的Delphi版本的兼容性。
  为了确保你的XML文档可以使用widestrings,创建它,然后直接设置属性“Utf8Encoded”为True,如下所示:
procedure CreateXML;
var
  ADoc: TNativeXml;
begin
  ADoc := TNativeXml.CreateName(‘Root‘);
  try
    // Make sure to be able to handle widestrings
    ADoc.Utf8Encoded := True;
    // ..add all your creation code here
  finally
    ADoc.Free;
  end;
end;
3.5.2.NativeXml外部编码
  保存您的文档时,为外部文件或流选择适当的编码(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 := TNativeXml.CreateName(‘Root‘);
  try
    // Make sure to be able to handle widestrings
    ADoc.Utf8Encoded := True;

    // ..add all your creation code here

    // Save to unicode
    ADoc.ExternalEncoding := seUTF16LE;
    ADoc.EncodingString := ‘UTF-16‘;
    ADoc.SaveToFile(‘c:\temp\test.xml‘);   
  finally
    ADoc.Free;
  end;
end;
3.5.3.添加widestrings
  添加widestrings到文档很容易。每个节点的值可以设置为widestring,使用属性的ValueAsWidestring,并可以在一般情况下使用FromWidestring函数添加widestrings。
  下面的例子代码,增加了一个新的节点到根,然后设置节点名字(Name)为Aname,节点值(value)为AValue:
procedure AddNode(ADoc: TXmlDocument; AName, AValue: widestring);
begin
  with ADoc.Root do
    with NodeNew(FromWidestring(AName)) do
      ValueAsWidestring := AValue;
end;
3.5.4.加载XML文件的扩展字符
  当读取包含扩展字符的XML文件,重要的是在引入前设置Utf8Encoded为True,像这样:
function CreateXMLAndLoadFromFile(AFilename: string): TNativeXml;
begin
  Result := TNativeXml.Create;
  Result.Utf8Encoded := True;
  Result.LoadFromFile(AFilename); 
end;
  当从一个流(例如从一个TCP连接)读入,流并不总是包含字节顺序标记(BOM)。但是,如果流是Unicode,NativeXml将承认它,因此没有任何帮助。例如:
function CreateXMLAndLoadFromStream(S: TStream): TNativeXml;
begin
  Result := TNativeXml.Create;
  Result.Utf8Encoded := True;
  Result.LoadFromStream(S); 
end;
  如果你知道你的流具有一定的编码,你可以强制NativeXml使用这种编码,例如:
function CreateXMLAndLoadFromUTF8Stream(S: TStream): TNativeXml;
begin
  Result := TNativeXml.Create;
  Result.Utf8Encoded := True;
  // The stream is encoded using UTF8
  Result.ExternalEncoding := seUTF8;
  Result.LoadFromStream(S); 
end;

Delphi 操作 XML(一),布布扣,bubuko.com

Delphi 操作 XML(一)

标签:des   style   c   code   tar   ext   

原文地址:http://blog.csdn.net/lailai186/article/details/26451615

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!