Delphi 6 含有许多更新更强的XML支持功能。Delphi早期版本中提到的XML只在说明MIDAS数据格式和XMLBroker组件(在ClientDataSet和ADODataSet组件中也提到过)。 Delphi 6提供的XML功能增加了XML文件编程,XML数据绑定向导,XML映象和BizSnap(SOAP/XML Web服务)。本文是三篇论述Delphi 6中XML功能系列文章的第一篇,论述Delphi 6中的XML文件编程(XML Document Programming)。
XML文件就在前几年XML刚刚问世的时候,它就被赋予电子商务的世界语的美称,尤其在B2B(business-2-business)领域内更是如此。原因就是XML是个非常简单的而又是结构化的ASCII文本语言,任何人和任何事都能读懂它。与作为当前网页标准格式的HTML语言不一样。两者之间的不同之处在于:HTML要用预先定义的语法集来解释;XML文件虽然要遵循通用的语法规则,但真正的关键词(标记)则是由作者决定的。其含义可由DTD(Document Type Definition)文件或者现在更为流行使用的纲(Schema)来选择定义。使用DTD或Schema的XML文件可以说是一个自我解释的文件,在数据集成化和出错调整时都很有用。 XML的结构化模式使得数据和信息可以在应用程序之间相互传递(包括在多层应用的中间层之间,例如Delphi提供的功能)。它提供一个标准格式,对所用的通讯协议是透明的。这就是XML在电子商务应用的电子数据交换(Electronic Data Interchange, EDI)和B2B中扮演重要角色的原因。通过DTD或者Schema来“定义”(或检查)XML文件理所当然地使得任何人都可以与任何其它人和事交谈,只要使用恰当的的XML/DTD/Schema组合。现在越来越经常要求集成现有的系统,XML可能成为系统之间相互交谈和理解的“语言”。本文不讨论涉及EDI或B2B的XML。但它引出三篇论及XML文件编程和Delphi 6的XML新特性的文章。
XML文件编程
Delphi 6 支持DOM解析,因此我们可以读(和翻译!)以及编辑任何XML文件,甚至在缺少了DTD或Schema的情况下,一如本文所示。我在本文创建了一个包含我的网页内容的小小的XML文件:
例如,可以用一个按钮来获取第一个节点的元素值并将结果写入Memo:
- procedure TForm1.Button1Click(Sender: TObject);
- var
- Clinic: IXMLNode;
- begin
- Clinic := Document1.DocumentElement.ChildNodes[0];
- Memo1.Lines.Clear;
- Memo1.Lines.Add(Clinic.ChildNodes['Title'].Text);
- Memo1.Lines.Add(Clinic.ChildNodes['Date'].Text);
- Memo1.Lines.Add(Clinic.ChildNodes['Topics'].Text);
- end;
增加索引指针可以访问其它节点。下面的例子用"current"作索引,通过循环增加"current"的值来遍历节点。我用try-except来防止循环出界。
- procedure TForm1.Button2Click(Sender: TObject);
- var
- Clinic: IXMLNode;
- begin
- Inc(current);
- try
- Clinic := XMLDocument1.DocumentElement.ChildNodes[current];
- Memo1.Lines.Clear; Memo1.Lines.Add(Clinic.ChildNodes['Title'].Text);
- Memo1.Lines.Add(Clinic.ChildNodes['Date'].Text);
- Memo1.Lines.Add(Clinic.ChildNodes['Topics'].Text);
- except
- on E: Exception do
- Memo1.Lines.Add(E.Message)
- end;
- end;
- procedure TForm1.Button2Click(Sender: TObject);
- var
- Clinic: IXMLNode;
- begin
- Inc(current);
- try
- Clinic := XMLDocument1.DocumentElement.ChildNodes[current];
- Memo1.Lines.Clear;
- Memo1.Lines.Add(Clinic.ChildNodes['Title'].Text);
- Memo1.Lines.Add(Clinic.ChildNodes['Date'].Text);
- Memo1.Lines.Add(Clinic.ChildNodes['Topics'].Text);
- except
- on E:
- Exception do
- Memo1.Lines.Add(E.Message)
- end;
- end;
除了遍历节点之外,还可以修改子节点的值。下面的代码将第一个节点的标题值加上一个"HOT"前缀。
- procedure TForm1.Button1Click(Sender: TObject);
- var
- Clinic: IXMLNode;
- begin
- current := 0;
- Clinic := XMLDocument1.DocumentElement.ChildNodes[current];
- Memo1.Lines.Clear;
- Clinic.ChildNodes['Title'].Text := 'HOT: ' + Clinic.ChildNodes['Title'].Text;
- Memo1.Lines.Add(Clinic.ChildNodes['Title'].Text);
- Memo1.Lines.Add(Clinic.ChildNodes['Date'].Text);
- Memo1.Lines.Add(Clinic.ChildNodes['Topics'].Text);
- end;
还可以增删节点。下面的代码增加一个子节点并赋予缺省值:
- procedure TForm1.Button1Click(Sender: TObject);
- var
- Clinic: IXMLNode;
- begin
- Clinic := XMLDocument1.DocumentElement.AddChild('Clinic');
- Clinic.ChildNodes['Title'].Text := 'Title';
- Clinic.ChildNodes['Date'].Text := 'Date';
- Clinic.ChildNodes['Topics'].Text := 'Topics';
- end;
记住,我们已经将AutoSave设置为真。所以在XMLDocument对象或应用关闭时,任何变化都将自动存盘。也可以调用XMLDocument1.SaveToFile方法显式存盘。下一篇文章:XML数据绑定 XMLDocument让我们能够访问XML节点并编辑节点。但我们只能与无类型节点打交道,必须记住节点元素的名字。用上面的代码可以漂亮地处理小型的XML文件,但是,Delphi如果只能处理这样简单的问题就不成其为Delphi了。运用XML的内容相关结构可以做更高级的应用,这就是Delphi 6提供的XML数据绑定特性。我们将在下一篇文章中论述。