Delphi对XML的支持TXMLDocument类-2

最新推荐文章于 2024-02-28 15:51:28 发布
最新推荐文章于 2024-02-28 15:51:28 发布
阅读量1.6k 收藏
点赞数
分类专栏： Delphi 文章标签： xml delphi button string integer webbrowser

看完了基础知识，下面就实践以下吧

本实例应用了MS的MSXML2_TLB，请自行查找下载

//用于读写XML的最简单的单元
unit XMLPurserUnit;

interface

uses
  SysUtils, Classes, Windows, ActiveX, MSXML2_TLB;

type
  //本例子通过DOM方式演示XML文件的读写过程
  TDOMXMLpurser=class
  public
    { 创建并保存XML文档，XMLDoc:=CoDOMDocument.Create没有办法将文档类型对象填加
      到XMLDoc中，因为它没有引用相应的DTD}
    procedure SavePropertiesToXML(Filename: string; Props: TStrings);
    { 解析已有的XML文档 }
    //适用于节点名称不同的情况
    procedure LoadPropertiesFromXML(Filename: string; Props: TStrings);
    //适用于节点相同的情况
    procedure LoadFromXML(Filename: string; Props: TStrings);
  end;


implementation

const
  XMLTag          = 'xml';
  XMLPrologAttrs  = 'version="1.0" encoding="UTF-8"';
  XMLComment      = ' Sample XML document with data about movies'#13 +
                    'and when and where they are showing'#13 +
                    'Developed by Keith Wood, 28 May 1999 ';
  MovieWatcherTag = 'movie-watcher';
  MoviesTag       = 'movies';
  MovieTag        = 'movie';
  Id              = 'id';
  Rating          = 'rating';
  StarringTag     = 'starring';
  TitleTag        = 'title';
//保存XML
procedure TDOMXMLpurser.SavePropertiesToXML(Filename: string; Props: TStrings);
var
  XMLDoc: IXMLDOMDocument;
  i:integer;
  //----------------------------------------------------------------------------
  procedure AddSimpleElement(Parent: IXMLDOMElement; Field: string;
                             AsCDATA: Boolean = False);
  var
    Internal: IXMLDOMElement;
  begin
    Internal := IXMLDOMElement(Parent.AppendChild(
      XMLDoc.CreateElement(('Field.FieldName'))));
    if AsCDATA then
      Internal.AppendChild(XMLDoc.CreateCDATASection(Field))
    else
      Internal.AppendChild(XMLDoc.CreateTextNode(Field));
  end;
  procedure GenerateHeaders;
  var
    Title: IXMLDOMElement;
  begin
    XMLDoc.AppendChild(XMLDoc.CreateProcessingInstruction(XMLTag, XMLPrologAttrs));
    XMLDoc.AppendChild(XMLDoc.CreateComment(XMLComment));
    XMLDoc.AppendChild(XMLDoc.CreateElement(MovieWatcherTag));
    Title := IXMLDOMElement(XMLDoc.DocumentElement.AppendChild(
        XMLDoc.CreateElement(TitleTag)));
    Title.AppendChild(XMLDoc.CreateTextNode('焦点新闻'));
  end;
  procedure GenerateStars(Starring: IXMLDOMElement);
  begin
    AddSimpleElement(Starring, '(StarField)');
  end;
  procedure GenerateMovies(moviename:string);
  var
    Movies, Movie: IXMLDOMElement;
  begin
    Movies := IXMLDOMElement(XMLDoc.DocumentElement.AppendChild(
        XMLDoc.CreateElement(MoviesTag)));
        Movie := IXMLDOMElement(Movies.AppendChild(
          XMLDoc.CreateElement(MovieTag)));
        Movie.SetAttribute(Id, '123');
        Movie.SetAttribute(Rating, '456');
        AddSimpleElement(Movie, '789');
        AddSimpleElement(Movie, moviename);
        AddSimpleElement(Movie, '"(DirectorField)"');
        GenerateStars(IXMLDOMElement(Movie.AppendChild(
          XMLDoc.CreateElement(StarringTag))));
        AddSimpleElement(Movie, 'FieldByName(SynopsisField)', True);
  end;
  //----------------------------------------------------------------------------
begin
  try
    XMLDoc        := CoDOMDocument.Create;
    GenerateHeaders;
    i:=0;
    repeat
      GenerateMovies(Props.Strings[i]);
      inc(i);
    until i>=Props.Count;
    Props.Text := XMLDoc.XML;
    XMLDoc.save(Filename);         //u8-dos格式
    //Props.SaveToFile(Filename);  //dos格式
  finally
    { Release the DOM }
    XMLDoc        := nil;
  end;
end;
//加载无重复属性的XML
procedure TDOMXMLpurser.LoadPropertiesFromXML(Filename: string; Props: TStrings);
var
  XMLDoc: IXMLDOMDocument;
  i: Integer;
  procedure LoadSubProperties(Element: IXMLDOMNode; PropPrefix: string);
  var
    Index: Integer;
  begin
    if (Element.NodeType = NODE_TEXT) or (Element.NodeType = NODE_CDATA_SECTION) then
        Props.Values[Copy(PropPrefix, 2, Length(PropPrefix) - 1)] := Element.NodeValue
    else
      for Index := 0 to Element.ChildNodes.Length - 1 do
          LoadSubProperties(Element.ChildNodes[Index], PropPrefix + '.' + Element.NodeName);
  end;
begin
  XMLDoc := CoDOMDocument.Create;
  Props.Clear;
  try
    if XMLDoc.Load(Filename) then
    with XMLDoc.DocumentElement do
      for i := 0 to ChildNodes.Length - 1 do
        LoadSubProperties(ChildNodes[i], '');
  finally
    XMLDoc := nil;
  end;
end;
//加载XML
procedure TDOMXMLpurser.LoadFromXML(Filename: string; Props: TStrings);
var
  XMLDoc: IXMLDOMDocument;
  i: Integer;
  procedure LoadSubProperties(Element: IXMLDOMNode; PropPrefix: string);
  var
    Index: Integer;
  begin
    if (Element.NodeType = NODE_TEXT) or (Element.NodeType = NODE_CDATA_SECTION) then
        Props.Add(Copy(PropPrefix, 2, Length(PropPrefix) - 1)+'='+ Element.NodeValue)
    else
      for Index := 0 to Element.ChildNodes.Length - 1 do
          LoadSubProperties(Element.ChildNodes[Index], PropPrefix + '.' + Element.NodeName);
  end;
begin
  XMLDoc := CoDOMDocument.Create;
  Props.Clear;
  try
    if XMLDoc.Load(Filename) then
    with XMLDoc.DocumentElement do
      for i := 0 to ChildNodes.Length - 1 do
        LoadSubProperties(ChildNodes[i], '');
  finally
    XMLDoc := nil;
  end;
end;

initialization
  { Initialise COM }
  CoInitialize(nil);
finalization
  { Tidy up }
  CoUninitialize();
end.

//调用XML读写
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw,XMLPurserUnit;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    FXMLpurser:TDOMXMLpurser;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FXMLpurser:=TDOMXMLpurser.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FXMLpurser.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  filename:string;
begin
  memo1.Lines.Clear;
  filename:=ExtractFilePath(application.ExeName)+'MailTemplate.xml';

  FXMLpurser.LoadPropertiesFromXML(filename,memo1.Lines);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  filename:string;
begin
  memo1.Lines.Clear;
  filename:=ExtractFilePath(application.ExeName)+'MailTemplate.xml';

  FXMLpurser.LoadFromXML(filename,memo1.Lines);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  FXMLpurser.SavePropertiesToXML(ExtractFilePath(application.ExeName)+'MailTemplate1.xml',memo1.Lines);
end;

end.

//unit1对应的form

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object WebBrowser1: TWebBrowser
    Left = 8
    Top = 8
    Width = 321
    Height = 361
    TabOrder = 0
    ControlData = {
      4C0000002D2100004F2500000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object Memo1: TMemo
    Left = 336
    Top = 8
    Width = 345
    Height = 361
    Lines.Strings = (
      '星球大战1'
      '星球大战2'
      '星球大战3'
      '星球大战前传1'
      '星球大战前传2'
      '星球大战前传3')
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object Button1: TButton
    Left = 192
    Top = 384
    Width = 147
    Height = 25
    Caption = 'LoadPropertiesFromXML'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 344
    Top = 384
    Width = 83
    Height = 25
    Caption = 'LoadFromXML'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 432
    Top = 384
    Width = 121
    Height = 25
    Caption = 'SavePropertiesToXML'
    TabOrder = 4
    OnClick = Button3Click
  end
end

//一个最简单的XML文件 MailTemplate.xml
<?xml version="1.0"?>
<mailTemplate>
  <smtp>
    <host>mail.ncisystems.com</host>
    <port/>
    <user>keith</user>
    <from>kbwood@thingies.com</from>
  </smtp>
  <database>
    <alias>mailtemp</alias>
    <user/>
    <password/>
  </database>
  <settings>
    <pauseTime>2000</pauseTime>
    <template>MailMessage.xml</template>
    <testing>Y</testing>
  </settings>
</mailTemplate> 

Delphi中动态调用TXMLDocument的经历
伴水之剑
05-15 3343
var  vXMLDocument: TXMLDocument;begin  vXMLDocument := TXMLDocument.Create(c:/temp/temp.xml);  Caption := IntToStr(vXMLDocument.Node.ChildNodes.Count);  vXMLDocument.Free;end; 执行上面的代码跳出"Invalid
Delphi中TXMLDocument控件的用法
07-09
Delphi中对XML文件的解析做的很好，比直接使用MS的MSXML2_TLB中的接口要方便很多，现称述于下面。 在讲之前先给出一个XML实例，在讲某些部分是要结合实例比较容易理解。
Delphi 对XML的支持---TXMLDocument类
乱炖
09-20 1123
       Delphi7 支持对XML文档的操作，可以通过TXMLDocument类来实现对XML文档的读写。可以利用TXMLDocument把XML文档读到内存中，从而可以进行编辑、保存操作。TXMLDocument类是通过DOM(文档对象模型)接口来访问XML文档中的各个元素的。对于DOM接口的实现有多种方式，Delphi支持的方式有：1)微软的MSXML SDK，这种方式是通过COM对象
delphi中的XML解析控件TXMLDocument的用法
yaya82的专栏
09-04 1780
Delphi中TXMLDocument控件的用法   Delphi中对XML文件的解析做的很好，比直接使用MS的MSXML2_TLB中的接口要方便很多，现称述于下面。   在讲之前先给出一个XML实例，在讲某些部分是要结合实例比较容易理解。1 文档版本信息, 注释格式同HTML-->2   3  100.90” handler=”si” unit=”江苏网商软件”/>4 
Delphi 中的 XMLDocument 类详解(2)
工作是我的生活 我为工作而陶醉
11-21 609
1、TXMLDocument 适用于内存中操作和建立新的 xml2、一个 TXMLDocument 文档其实就是一个节点集合3、每个节点包括名称、文本内容、属性集合、子节点集合4、可以按位置或名称访问节点5、每一个节点都是一个 IXMLNode 对象6、每一个节点下包含的节点集合是一个 IXMLNodeList 对象, 用节点的 ChildNodes 属性获取7、根节点 XMLDocument1.
delphi-TXMLDocument.rar_TXMLDocument_delphi TXMLDocument_delphi
09-24
在Delphi编程环境中，TXMLDocument是一个非常重要的组件，它用于处理XML数据的解析和生成。这个组件是基于MSXML库（Microsoft XML Core Services）的，使得开发人员能够方便地在Delphi应用中读取、修改和写入XML文档...
delphi-xml.rar_ delphi xml_delphi XML_delphi操作xml_xml delphi
09-20
TXMLDocument是VCL（Visual Component Library）中的核心XML组件，它提供了对XML文档的全面支持，包括创建、修改、加载和保存XML文档。这个压缩包中的源代码和可执行程序很可能是用来演示如何利用Delphi的XML功能的...
xml-file.rar_DELPHI XML_delphi XML_delphi xml文件_xml_xml delph
09-23
Delphi还提供了其他的XML处理类，比如TXMLEncoder和TXMLDecoder，它们用于XML和对象之间的序列化和反序列化，便于在内存对象和XML文件之间进行数据交换。此外，还有第三方库如SuperObject和XMLDataBinding，它们提供...
如何在Delphi 7中使用TXMLDocument类的不同DOMVendor实现XML文档的解析和操作？
10-28
在Delphi 7中，TXMLDocument类提供了丰富的接口来操作XML文档。为了使用不同的DOMVendor，首先需要了解各个实现的特点：MSXML SDK提供的接口基于COM技术，性能良好且功能全面；Apache Xerces则是一个开源且支持多种...
如何在Delphi 7中通过TXMLDocument类实现对XML文件的解析和操作？请详细说明使用不同DOMVendor的设置步骤和注意事项。
最新发布
10-28
在Delphi 7中，TXMLDocument类提供了一套完整的API来处理XML文件，它支持通过不同的DOMVendor来实现XML文档的解析和操作。以下是一些关键步骤和操作方法，以帮助你有效地使用TXMLDocument类： 参考资源链接：...
Delphi中使用TXMLDocument对XML文件操作
PleaseGo的博客
02-28 988
在Delphi中，可以使用TXMLDocument组件来对XML文件进行操作。TXMLDocument是Delphi提供的用于处理XML文件的组件。以上是TXMLDocument在Delphi中对XML文件的基本操作。通过使用TXMLDocument，可以轻松地读取、创建和修改XML文件的内容。
Delphi TXMLDocument 解析,返回
wanlicchh的博客
06-27 2103
收到报文&lt;?xml version="1.0" encoding="UTF-8"?&gt;&lt;A&gt; &lt;B&gt;111111&lt;/B&gt; &lt;C&gt;2015-11-10&lt;/C&gt; &lt;D Type=””&gt; &lt;E&gt;S00001&lt;/E&gt; &amp
Delphi对XML的支持TXMLDocument类-3
Qi_jianzhou的资料室
04-12 1530
2.5 缩简句法这是一些使用缩简句法的地址路径例子：para 选择上下文节点的 para 元素孩子* 选择上下文节点的所有的元素孩子text() 选择上下文节点的所有的正文节点孩子@name 选择上下文节点的 name 属性@* 选择上下文节点的所有的属性para[1] 选择上下文节点的第一个 para 孩子para[last()] 选择上下文节点的最后一个 para
delphi dom html,delphi – 通过TXMLDocument访问IXMLDOMDocument2？
weixin_31108679的博客
06-30 314
您可以通过MSXMLDOMDocumentCreate变量覆盖create函数：unit Unit27;interfaceusesxmldoc,xmlintf,msxml,msxmldom,Forms,SysUtils,ActiveX,ComObj,XmlDom,XmlConst,Windows,Messages,Classes,Controls,StdCtrls;typeTForm1 = cla...
Delphi中利用TXMLDocument组件读取XML生成TreeView函数备忘
小鱼的马克堂
07-10 1263
一、将TreeView结构保存为XML文件函数 procedure TmainForm.Tree2XML(tree:TTreeView); var  tn:TTreeNode;  XMLDoc:TXMLDocument;  iNode:IXMLNode;    procedure ProcessTreeItem(tn:TTreeNode;iNode:IXMLNode);   var
TXMLDocument类:Delphi7的XML利器
吟风思绪
04-22 1653
　　Delphi7 支持对XML文档的操作，可以通过TXMLDocument类来实现对XML文档的读写。可以利用TXMLDocument把XML文档读到内存中，从而可以进行编辑、保存操作。TXMLDocument类是通过DOM(文档对象模型)接口来访问XML文档中的各个元素的。对于DOM接口的实现有多种方式，Delphi支持的方式有：　　 1)微软的MSXML SDK，这种方式是通过COM对象来实
Delphi 中的 XMLDocument 类详解(14) - 遍历 XML 文件
weixin_34044273的博客
10-01 257
unitUnit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;type TForm1=class(TFor...
Delphi 7中的TXMLDocument：DOM操作与XML文档处理
在Delphi 7中，XML（可扩展标记语言）处理是通过Borland提供的TXMLDocument类实现的，该类允许开发者高效地操作和管理XML文档。TXMLDocument类是基于DOM（文档对象模型）接口设计的，提供了对XML文档结构的树状访问...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值