Delphi 与 XML - 随笔分类 - 万一

NativeXml (12)：NativeXmlObjectStorage

摘要：安装包中的 NativeXmlObjectStorage.pas 是 NativeXml 的扩展应用，可以把组件、对象和窗体序列化为 Xml 文件。其中方便使用的是两个类：TsdXmlObjectWriter、TsdXmlObjectReader，也可使用下面三组函数：ComponentCreateFromXmlFile();ComponentCreateFromXmlNode();ComponentCreateFromXmlStream();ComponentCreateFromXmlString();ComponentSaveToXmlFile();ComponentSaveToXmlNo 阅读全文

posted @ 2011-03-25 22:59 万一阅读(4169) 评论(2) 推荐(0) 编辑

NativeXml (11)：浮点数的有效位数

摘要：uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml; fVal: Double; begin fVal := 123.456789; xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; //xml.FloatSignificantDigits := ; with xml.Root.NodeNew('item') do begin WriteString('Na 阅读全文

posted @ 2011-03-25 21:21 万一阅读(2978) 评论(0) 推荐(0) 编辑

NativeXml (10)：编辑

摘要：uses NativeXml; var xml: TNativeXml; const xmlStr = '<?xml version="1.0" encoding="UTF-8"?>' + '<List>' + '<item ID="No.1" age="11">张三</item>' + '<item ID="No.2" age="22">李四</item 阅读全文

posted @ 2011-03-25 20:44 万一阅读(4312) 评论(2) 推荐(0) 编辑

NativeXml (9)：读取

摘要：var xml: TNativeXml; const xmlStr = '<?xml version="1.0" encoding="UTF-8"?>' + '<List>' + '<item ID="No.1" age="11">张三</item>' + '<item ID="No.2" age="22">李四</item>' + ' 阅读全文

posted @ 2011-03-25 17:05 万一阅读(12392) 评论(2) 推荐(1) 编辑

NativeXml (8)：其它添加

摘要：uses NativeXml;procedure TForm1.Button1Click(Sender: TObject);var xml: TNativeXml; node: TXmlNode;begin xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; node := xml.NodeNewTextType('注释名称', '注释内容', xeComment); xml.Root.NodeAdd(node); node := xml.NodeNewTextTy 阅读全文

posted @ 2011-03-25 13:19 万一阅读(4992) 评论(2) 推荐(1) 编辑

NativeXml (7)：添加属性

摘要：uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml; node: TXmlNode; begin xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; node := xml.Root.NodeNew('item'); node.AttributeAdd('ID', '1'); node.AttributeAdd('age' 阅读全文

posted @ 2011-03-25 11:09 万一阅读(4579) 评论(0) 推荐(1) 编辑

NativeXml (6)：添加节点

摘要：uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml; node: TXmlNode; begin xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; // node := xml.Root.NodeNew('item'); node.Value := '张三'; // with xml.Root.NodeNew('item') do b 阅读全文

posted @ 2011-03-24 22:41 万一阅读(5408) 评论(0) 推荐(0) 编辑

NativeXml (5)：事件

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, NativeXml{!};type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private p 阅读全文

posted @ 2011-03-24 17:03 万一阅读(4306) 评论(0) 推荐(0) 编辑

NativeXml (4)：认识根节点

摘要：uses NativeXml;const xmlFile = 'C:\Temp\xml_test_files\basic.xml'; //测试文件var xml: TNativeXml;procedure TForm1.FormCreate(Sender: TObject);begin xml := TNativeXml.Create(nil); xml.LoadFromFile(xmlFile);end;{获取根节点的类名及类的继承关系}procedure TForm1.Button1Click(Sender: TObject);var str: string; myClas 阅读全文

posted @ 2011-03-24 16:01 万一阅读(7597) 评论(14) 推荐(0) 编辑

NativeXml (3)：保存

摘要：uses NativeXml;var xml: TNativeXml;procedure TForm1.FormCreate(Sender: TObject);begin xml := TNativeXml.CreateName('MyRoot'); ChDir('C:\Temp');end;procedure TForm1.Button1Click(Sender: TObject);begin xml.SaveToFile('Test_Default.xml'); //encoding="UTF-8" xml.Externa 阅读全文

posted @ 2011-03-24 15:15 万一阅读(5328) 评论(5) 推荐(0) 编辑

NativeXml (2)：对象建立

摘要：相关方法与属性：TNativeXml.Create(...);TNativeXml.CreateEx(...);TNativeXml.CreateName(...);Obj.New;Obj.ReadFromString(...);Obj.VersionString;Obj.EncodingString;测试代码：uses NativeXml; //!const xmlFile = 'C:\Temp\xml_test_files\basic.xml'; //测试文件{使用 Create 建立时可指定属主并随属主一同释放}procedure TForm1.Button1Click( 阅读全文

posted @ 2011-03-24 13:26 万一阅读(6881) 评论(4) 推荐(0) 编辑

NativeXml (1)：下载、安装、测试

摘要：终于又能挤出点时间学点 Delphi 了。学习 NativeXml 的目的：1、以后再用到 Xml 就准备用它了。2、学习其内存处理机制。3、更多了解 Xml 的相关细节。刚刚下载到最新的 NativeXml328，发现竟是 3 天前刚刚更新的。相关地址：http://www.simdesign.nl/xml.html http://www.simdesign.nl/forum/viewforum.php?f=2 NativeXml328 安装：把 general 下的 4 个文件和 nativexml 下的 3 个文件复制在一起，然后通过 Tools > Options > De 阅读全文

posted @ 2011-03-24 11:57 万一阅读(14179) 评论(9) 推荐(2) 编辑

使用 IXMLHTTPRequest 简单获取网页源代码

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Cli... 阅读全文

posted @ 2009-10-27 21:05 万一阅读(10751) 评论(13) 推荐(0) 编辑

Delphi 中的 XMLDocument 类详解(21) - 暂停

摘要：发现了一个更好的工具 NativeXml, 有可能不再使用 XMLDocument 了. 阅读全文

posted @ 2008-01-08 01:44 万一阅读(5723) 评论(4) 推荐(0) 编辑

Delphi 中的 XMLDocument 类详解(20) - 动态建立 XMLDocument 对象

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, xmldom, XMLIntf, msxmldom, XMLDoc; type TForm1 = class(TForm) But... 阅读全文

posted @ 2008-01-08 01:41 万一阅读(9613) 评论(11) 推荐(0) 编辑

Delphi 中的 XMLDocument 类详解(19) - NodeValue 与 NodeName 的读写区别

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls; type TForm1 = class(TForm) But... 阅读全文

posted @ 2008-01-07 14:59 万一阅读(5971) 评论(0) 推荐(0) 编辑

Delphi 中的 XMLDocument 类详解(18) - 更好地显示 xml 的测试结果 - FormatXMLData 及其他

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls, OleCtrls, SHDocVw; type TForm1 = c... 阅读全文

posted @ 2008-01-07 14:52 万一阅读(6720) 评论(1) 推荐(0) 编辑

Delphi 中的 XMLDocument 类详解(17) - 上一个节点、下一个节点、父节点

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls; type TForm1 = class(TForm) XM... 阅读全文

posted @ 2008-01-06 09:54 万一阅读(5493) 评论(1) 推荐(0) 编辑

Delphi 中的 XMLDocument 类详解(16) - 节点列表中的第一个与最后一个节点

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls; type TForm1 = class(TForm) XML... 阅读全文

posted @ 2008-01-05 21:39 万一阅读(4735) 评论(1) 推荐(0) 编辑

Delphi 中的 XMLDocument 类详解(15) - 创建与保存 xml

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc; type TForm1 = class(TForm) XML... 阅读全文

posted @ 2008-01-05 21:37 万一阅读(16383) 评论(7) 推荐(0) 编辑

随笔分类 - Delphi 与 XML