• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi操作XML(六)Delphi操作XML(六)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

引自百度
     
使用NativeXml的例子
3.1.例子A:XML的装载、存储和导出
  这个例子显示如何加载一个XML文档,然后以可读格式导出到一个TMemo领域。
  拖放一个TEditEdit1),TButtonButton1)和一个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层的节点。
  添加TeditTButtonTMemo到窗体,然后将下面的事件代码连接到按钮的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的方式,按顺序读文件,每当一个节点初始化和加载时产生事件。
  添加一个TButtonButton3)和一个TMemoMemo1)到您的窗体,然后将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;

引自百度
     
使用NativeXml的例子
3.1.例子A:XML的装载、存储和导出
  这个例子显示如何加载一个XML文档,然后以可读格式导出到一个TMemo领域。
  拖放一个TEditEdit1),TButtonButton1)和一个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层的节点。
  添加TeditTButtonTMemo到窗体,然后将下面的事件代码连接到按钮的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的方式,按顺序读文件,每当一个节点初始化和加载时产生事件。
  添加一个TButtonButton3)和一个TMemoMemo1)到您的窗体,然后将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;


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
【转】三种方式在C++中调用matlab发布时间:2022-07-18
下一篇:
matlab无法打开.m文件查看发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap