admin 管理员组文章数量: 1086019
2024年4月20日发(作者：splice会不会改变原数组)
理工科研
基于Ｄｅｌｐｈｉ的ＸＭＬ文件管理系统的设计
詹百灵
（漳州市第二技工学校福建・漳州３６３０００）
中图分类号：Ｆ７１９ 文献标识码：Ａ
摘要本文介绍了利用Ｄｅｌｐｈｉ开发一种适合初学者使用的
ｘｍｌ编辑工具，让初学者能够很直观地看到ＸＭＬ的结构，进而学＞－－ｊ
ＸＭＬ语法。
关键词ｘｍｌ ｘｍｌ编辑ｄｅｌｐｈｉ
匝
黧
谩ＤｌｇＯｐｅｎ．Ｅｘｅｃｕｔｅ ＴＨＥＮ ｆ｝扪歼
文章编号：１６７２—７８９４（２００９）１９—２７＿７—０２
ＲｅａｄＦｉｌｅ（ＤｌｇＯｐｅｎ．Ｆｉｌｅｎａｍｅ）；
ｔｓｈｓｏｕｒｅｅ．Ｃａｐｔｉｏｎ：＝ｄｌｇｏｐｅｎ．ＦｉｌｅＮａｍｅ；
ｐａｇｅｃｏｎｔｒｏ１．ＡｃｔｉｖｅＰａｇｅＩｎｄｅｘ：＝Ｏ；
ｗｅｌＦｏｒｍ：：ＴｗｅｌｃｏｍｅＦｏｒｍ．Ｃｒｅａｔｅ（ｎｉｌ）；／／新建，调用新建文档向导
对话框
ｗｅｌｆｏｒｍ．Ｓｈｏｗ；
ｃｌｏｓｅ；／／退出
ＴｏＦｉｌｅ（ｆｎａｍｅ）；／／保存
ＭｍｏＳｏｔｔｒｅｅ．ＣｕｔＴｏＣｌｉｐｂｏａｒｄ；／／剪切
ＭｍｏＳｏｕｒｃｅ．ＣｏｐｙＴｏＣｌｉｐｂｏａｒｄ；／／复制
ＭｍｏＳｏｕｒｃｅ．ＰａｓｔｅＦｒｏｍＣｌｉｐｂｏａｒｄ；／／粘贴
ＭｍｏＳｏｕｒｃｅ．Ｕｎｄｏ；／／撤销
ｉｆｐｒｉｎｔｄｉａｌｏｇ１．Ｅｘｅｃｕｔｅ ｔｈｅｎ／／打印
ＭｍｏＳｏｕｒｃｅ．Ｐｆｉｎｔ（ｐｒｉｎｔｄｉａｌｏｇ１．Ｎａｍｅ）
ＭｍｏＳｏｕｒｃｅ．ＳｅｌｅｅｔＡＵ；／／全选
ＭｍｏＳｏｔｔｒｅｅ．ＣｌｅａｒＳｅｌｅｅｔｉｏｎ；／／删除
，／切换视图窗口
ＰａｇｅＣｏｎｔｒｏ１．ＡｅｔｉｖｅＰａｇｅ：＝ＰａｇｅＣｏｎｔｒｏ１．Ｐａｇｅｓ［ｉｎｄｅｘ］；
ｉｆｎｄｄｉａｌｏｇ１．Ｅｘｅｃｕｔｅ；／／查找对话框
ＭｍｏＳｏｕｒｃｅ．ＣｌｅａｒＵｎｄｏ；『／重做
’ ●●●●－’
点击“新建”按钮后，进入新建界面，该界面用于用户自行导人
各类文档的模板。
用户可以根据需要选择一种文档类型，按“确定”按钮后就可以
打开相应的模板文件。同时系统还会提供一些帮助信息。这时系统
会跳出一个信息框提示，建议用户先保存文件再使用其他视图功
能。主要代码如下：
，／根据需要加载相应文档的模板
ＬｏａｄＦｒｏｍＦｉｌｅ（．ｅｘａｍｐｌｅＬｘｍｌ＿ｄｏｃｕｍｅｎｔ
ＸＭＬ’）；
ＦｒｍＭａｉｎ．ｐａｇｅｅｏｎｔｒｏ１．ＡｅｔｉｖｅＰａｇｅｌｎｄｅｘ：＝０；／／新建文档时自动显示
文本视图面板
ｃｌｏｓｅ；／／关闭创建文档对话框
，／弹出对话框提示用户保存文件
ｍｅｓｓｇａｅｄｌｇ（．对于新建的文件，请先保存再使用视图功能！ ，
叙毛ｉｆ．２７７
Ｉ理工科研
ｍｌｉｎｆｏｒｍａｆｉｏｎ，
【ｍｂｙ￣］，０）；
用户可以在文本视图中使用工具栏上的按钮对文档进行编辑，
也可以使用菜单栏下的按钮进行相应的操作。如果原先文本视图
里有内容，这时再按“新建”按钮，系统就会弹出一个是否保存文件
对话框，让用户选择是否保存当前文件。如果用户选择“Ｙｅｓ”按钮，
则会调用保存文件对话框。选择“Ｎｏ”按钮。系统直接显示创建文档
对话框。点击“打开”按钮后，进入打开文件对话框，用户可以选择
要打开的文件，按“打开”按钮生效。首次点击“保存”按钮，会调用
保存文件对话框。非首次点击“保存”按钮，则系统会自动将新更改
的内容保存到原文件中。相应代码如下：
ｉｆｆｒｍｍａｉｎ．ＭｍｏＳｏｕｒｃｅ．Ｔｅｘｔ＜＞“ｔｈｅｎ
ｂ萌ｎ／／弹出对话框提示
是否保存当前文件’，ｍｔｉｎｆｏｒｍａｉｆｏｎ，
【ｍｂｙｅｓ，ｍｂｎｏ］）；
ｉｆｆｒｍｍｓｇ．ＳｈｏｗＭｏｄａｌ＝ｉｄ
＿
ｙｅｓ ｔｈｅｎ
ｆｌ＊ｍｍａｉｎ．ｓａｖｅｂｎＣｌｉｃｋ（ｓｅｎｄｅｒ）；
３．２树形视图模块设计
如果要看树形视图，直接切换到树形视图面板或者点击工具栏
上的“树形视图”按钮即可。
当用户切换到树形视图面板时，系统就会自动分析当前的ｘｍｌ
文档，并将其按树形显示在左边的树形显示区域，而窗口右上方显
示当前选择节点的属性名称和对应的属性值，右下方显示当前节点
的文本内容。关键代码如下：
∥以下代码实现将ｘｍｌ文档转化为树结构
ＴｒｖＤｏｃ．Ｉｔｅｍｓ．ＢｅｇｉｎＵｐｄａｔｅ；
ＴｒｖＤｏｃ．Ｉｔｅｍｓ．Ｃｌｅａｒ；，
ＸｍｌＰａｒｓｅｒ．Ｎｏｒｍａｌｉｚｅ：：ＴＲＵＥ；
ＸｍｌＰａｒｓｅｒ．ＳｔａｒｔＳｃａｎ；
ＳｃａｎＥｌｅｍｅｎｔ（ＮＩＬ）／．／提取ｘｍｌ的各种元素用树形结构表示出来
ＴｒｖＤｏｃ．Ｉｔｅｍｓ．ＥｎｄＵｐｄａｔｅ；
３．３内容视图模块设计
如果要看内容视图，直接切换到内容视图面板或者点击菜单栏
下的“内容视图”按钮即可。
当用户切换到内容视图时，系统就会将当前ｘｍｌ文档的内容
（包括文本、代码段）提取出来，并显示在内容视图面板上的内容视
图区域。关键代码如下：
Ｆｉｌｅｎａｍｅ：＝ＥｘｔｒａｃｔＦｉｌｅＰａｔｈ（Ａｐｐｌｉｃａｔｉｏｎ．ＥｘｅＮａｍｅ）＋’Ｃｏｎｔｅｎｔｓ．ｔｘｔ’；
ＡｓｓｉｇｎＦｉｌｅ（￡Ｆｆｉｅｎａｍ￣； ．
ＴＲＹ
Ｒｅｗｒｉｔｅ∞；
ＴＲＹ
ＸｍｌＰａｒｓｅｒ．ＳｔａｒｔＳｃａｎ；
ＸｍｌＰａｒｓｅｒ．Ｎｏｒｍａｌｉｚｅ：＝ＦＡＬＳＥ：
ＷＨＩＬＥ ＸｌｎｌＰ８５￣ｓｅｒ．Ｓｃａｎ ＤＯ
ＩＦ（ＸｍｌＰａｒｓｅｒ．ＣｕｒＰａｒｔＴｙｐｅ＝ｐｔＣｏｎｔｅｎｔ）ＯＲ
（ＸｍｌＰ￣ｒ．ＣｕｒＰａｒｔＴｙｐｅ＝ｐｔＣＤａｔａ）ＴＨＥＮ
Ｗｒｉｔｅ（￡ＸｍｌＰａｒｓｅｒ．ＣｕｒＣｏｎｔｅｎｔ）；
ＦＩＮＡＬＩｊＹ
ＣｌｏｓｅＦｆｌｅ（。；
ＥＮＤ；
ＭｍｏＣｏｎｔｅｎｔｓ．ＰｌａｉｎＴｅｘｔ：＝ＴＲＵＥ；
ＭｍｏＣｏｎｔｅｎｔｓ．Ｌｉｎｅｓ．ＬｏａｄＦｒｏｍＦｉｌｅ（Ｆｉｌｅｎａｍｅ）；
ＥＸＣＥＰＴ
Ｃｌｅａｒ；
２７８ 叙毛ｃ‘
ＥＮＤ；
ＤｅｌｅｔｅＦｉｌｅ（Ｆｉｌｅｎａｍｅ）；
３．４ ＤＴＤ结构视图模块设计
如果要看ＤＴＤ结构视图，直接切换到ＤＴＤ结构视图面板或者
点击菜单栏下的“ＤＴＤ视图”按钮即可。
当用户切换到ＤＴＤ视图时，系统就会自动提取ｘｍｌ文档内部
的ＤＴＤ，对其结构进行分析。关键代码如下：
ＴｒｖＤｔｄ．Ｉｔｅｍｓ．ＢｅｇｉｎＵｐｄａｔｅ；
ＴｒｖＤｔｄ．Ｉｔｅｍｓ．Ｃｌｅａｒ；
ＸＩＩＬＩＰ￣ｒ．Ｎｏｒｍａｌｉｚｅ：＝ＴＲＵＥ；
ＸｍｌＰａｒｓｅｒ．ＳｔａｒｔＳｅａｎ；
ＷＨＩＩ正Ｘｍ】Ｐａｌ￣ｅｒ．Ｓｃａｎ ＤＯ
ＩＦ ＸｍＩＰ￣ｅｒ．ＣｕｒＰａｒｔＴｙｐｅ ｐｔＤｔｄｃ ＴＨＥＮ
ＢＲＥＡＫ；
ＴｒｖＤｔｄ．Ｉｔｅｍｓ．ＥｎｄＵｐｄａｔｅ；
３．５浏览器视图模块设计
如果要看浏览器视图，直接切换到浏览器视图面板或者点击菜
单栏下的“浏览器视图”按钮即可。
当用户切换到浏览器试图时，系统就会将ｘｍｌ文档以浏览器浏
览的方式显示出来。其实现原理就比较简单，只要加一个ＴＷｅｂ—
Ｂｒｏｗｓｅｒ控件，再加如下代码就可以实现了：
ＵＲＬ：ｗｉｄｅｓｔｒｉｎｇ；
ｂ￣ｇｉｎ
ＵＲＬ：＝ｔｓｈｓｏｕｒｃｅ．Ｃａｐｔｉｏｎ；
ｗｉｔｈ ｗｅｂｂｒｏｗｓｅｒｌ ｄｏ
ｂｅｇｉｎ
ｗｅｂｂｒｏｗｓｅｒ１．Ｎａｖｉｇａｔｅ（ｕｒ１）；
ｅｎｄ；．
４存在问题及对策
该系统的ｘｍｌ解析功能比较完善，而编辑功能则相对比较欠
缺，还有待改进。该系统开发的目的就是为了满足ｘｍｌ初学者用户
的需求，帮助其在使用过程中尽快掌握ｘｍｌ的语法。基于此目的，若
能在此系统的基础上在加上根据向导创建ｘｍｌ文档的功能，该系统
会更加完善。该功能可利用ＴＥｄｉｔ、ＴＭｅｍｏ等控件以及一些提示框
函数，让用户自定义ｘｍｌ元素的值（如ｅｎｃｏｄｉｎｇ、ｓｔａｎｄａｌｏｎｅ、命名空
间、以及ｘｍｌ的元素和属性），将用户自定义的这些值传递给
ＴＸＭＬＤｏｃｕｍｅｎｔ控件里相应的参数，再通过ＴＭｅｍｏ控件或者
ＴＲｉｅｈｅｄｉｔ控件将该ｘｍｌ文档显示出来。创建ｘｍｌ节点的过程可通过
ＴＴｒｅｅｖｉｅｗ控件来实现。先用Ｔｌ＇ｒｅｅｖｉｅｗ控件提供的方法和过程创建
一
棵树。不同性质的节点（声明节点、ＤＴＤ节点、元素节点、文本节
点、注释节点等）可用ｉｍａｇｅｌｎｄｅｘ属性区分，再将该树转化为ｘｍｌ文
档。而这些过程对用户来说是完全透明的，用户只要根据向导提
示，输入相应的值，就能够创建ｘｍｌ文档了酮。
参考文献
【１］顾兵，等．ＸＭＬ实用技术教程【Ｍ】 ｂ京精华大学出版社，２００７：１—１５，２４６—２５７．
［２］张银鹤胀秋香甜Ｉ鹿，等．ＸＭＬ实践教程 晾清华大学出版社２００７＿２３—３４．
［３】Ｓｉｍｏｎ Ｓｔ．Ｌａｕｒｅｎｔ．ＸＭＬ基础教程（第二版）［Ｍ】．美国：ＳＹＢＥＸ公司授权出版，
２０ｏ０：３—９．
【４］李存斌，陈芙杏，等．Ｄｅｌｐｈｉ ２００５程序设计及其应用开发【Ｍ】．北京：中国水利
水电出版社，２００５：１—１９。７３～２１９．
『５马晓凯，５］郭志伟，刘颖．Ｄｅｌｐｈｉ ２００５编程思想与实例经典【Ｍ】．北京：冶金工业
出版社，２００５：２３—３２，３３４—３６７．
【６】（美）Ｈａｒｏｌｄ．ＸＭＬ宝典（第二版）【Ｍ】．马云，等，译．北京：中国电力出版社，２００２：
５１—７７，１５４—２５３．
责任编辑黄修军
版权声明：本文标题：基于Delphi的XML文件管理系统的设计 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1713564600a640983.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论