Delphi 7验证XML合法性(利用DTD、XSD)

拥有正确语法的XML被称为“形式良好”的XML。通过DTD验证的XML是“合法”的XML。DTD(文档类型定义)的作用是定义XML 文档的合法构建模块。它使用一系列的合法元素来定义文档结构。XML Schema是基于XML的DTD替代者。XML Schema描述XML文档的结构。XML Schema语言也称作XML Schema定义(XML Schema Definition,XSD)。
        PowerDesigner是Sybase公司的CASE工具集,也可以用来设计XML模型。在这里我使用PowerDesigner来设计XSD,使用版本15.3.0.3248。菜单"File"→"New Model"→"Model types"→"XML Model"→"XML Model Diagram",在下面的"Model Name"输入模型名称,"XML Language"选择"XML Schema Definition 1.0",如下图所示:
       
        在这里为简单测试,只做一个很简单的模型,假如我们要为一个XML测试元素的内容是否是规定的整型时,即要测试的XML如下:

1
2
  <?xml version="1.0" encoding="utf-8"?> 
<number>abcd</number> 

新建test.xml文件,粘贴上面内容,保存文件为"UTF-8"编码。测试目的是要能检测出<number>元素内容不是规定的整型。在PowerDesigner中,拖动"Palette"面板上的"Element"图标到模型图上,双击设置其"name"为"number","type"为"xs:integer",如下图所示:

        右侧"Preview"页面可以预览XSD文本内容。在菜单"Language"→"Generate XML Schema Definition File",选择保存的路径"Directory",按"确定"生成XSD文件,打开生成的"XMLModel_test.xsd"文件,如下内容:

1
2
3
4
5
6
  <?xml version="1.0" encoding="UTF-8" ?> 
<xs:schema  
   elementFormDefault="qualified" 
   xmlns:xs="http://www.w3.org/2001/XMLSchema"> 
   <xs:element name="number" type="xs:integer"/> 
</xs:schema> 

在Delphi 7中要验证XML的合法性,需要引用"MSXML2_TLB"单元,这个是通过菜单"Project"→"Import Type Library"→"Microsoft XML,v6.0(Version 6.0)",也就是"C:\WINDOWS\system32\msxml6.dll",然后点击"Create Unit",就生成了"MSXML2_TLB.pas",如下图所示:

验证示例代码如下:

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
  uses MSXML2_TLB; 
 
procedure TForm1.btn_ValClick(Sender: TObject); 
var 
  SchemaDoc, XmlDoc: IXMLDOMDocument2; 
  SchemaCache: IXMLDOMSchemaCollection; 
  Error: IXMLDOMParseError; 
begin 
  //---------------加载数据------------------------ 
  XmlDoc := CoDOMDocument60.Create; 
  XmlDoc.async := False; 
  XmlDoc.load(‘E:\练习\test.xml‘); 
 
  //---------------加载schema架构文档------------------------ 
  SchemaDoc := CoDOMDocument60.Create; 
  SchemaDoc.async := False; 
  SchemaDoc.load(‘E:\练习\test\XMLModel_test.xsd‘); 
 
  //---------------注册架构缓存------------------------ 
  SchemaCache := CoXMLSchemaCache60.Create; 
  SchemaCache.add(‘‘, schemadoc); 
 
  //---------------分配架构缓存到XML文档------------------------ 
  XmlDoc.schemas := schemacache; 
 
  //---------------验证和报告------------------------ 
  Error := xmldoc.validate; 
  if Error.errorCode <> S_OK then 
   mmo1.Lines.Add(Error.reason) 
  else 
   mmo1.Lines.Add(‘验证成功‘); 
end; 

注意这是使用"msxml6"版本的,也打包进源码下载地址里面。在上面代码的基础上,一个GUI程序如下所示:

下载地址:http://dl.dbank.com/c02yqtgh32   http://download.csdn.net/detail/akof1314/3674176

http://blog.csdn.net/akof1314/article/details/6860264

原文地址:https://www.cnblogs.com/findumars/p/8456117.html

时间: 2024-10-30 10:13:05

Delphi 7验证XML合法性(利用DTD、XSD)的相关文章

验证xml是否符合指定xsd

xml是常用的一种数据文件格式,它的定义文件为Xml schema definition(XSD),那么怎么验证一个xml是否符合它的schema定义呢? 本文给出C#的代码实现. 样例XML 存储在xml.xml文件中 <?xml version="1.0" encoding="utf-8" ?> <xml> <age>10</age> <date>2018-01-01</date> <

XSD(XML Schema Definition)用法实例介绍以及C#使用xsd文件验证XML格式

XSD(XML Schema Definition)用法实例介绍以及C#使用xsd文件验证XML格式 http://blog.csdn.net/gdjlc/article/details/11374787 2013-09-08 12:16 2824人阅读 评论(0) 收藏 举报 分类: XML(5) 版权声明:本文为博主原创文章,未经博主允许不得转载. XML Schema 语言也称作 XML Schema 定义(XML Schema Definition,XSD),作用是定义 XML 文档的合

C#使用xsd文件验证XML 格式是否正确

方法一: 我使用XmlReader来处理,因为觉得XmlReader简单点. 我自己做了个例子来说明,例子里的XML不是很复杂,没有子节点的. XML 文件(a.xml): <?xml version="1.0" encoding="utf-8" ?> <PROFILE> <PROFILEID>0001</PROFILEID> <DESCIPTION>我的内容</DESCIPTION> <

关于xml的一些知识,DTD,XSD

DTD 文档类型定义(Document Type Definition)是一套关于标记符的语法规则.它是标准通用标记语言和 可扩展标记语言1.0版规格的一部分,是文档的验证机制.文档类型定义是一种保证标准通用标记语言.可扩展标记语言文档格式正确的有效方法,可通过比较文档和文档类型定义文件来看文档是否符合规范,元素和标签使用是否正确.文件实例提供应用程序一个数据交换的格式.在文档类型定义正是让标准通用标记语言.可扩展标记语言文件能成为数据交换标准,因为不同的公司只需定义好标准文档类型定义,各公司都

DTD验证XML文档

DTD验证XML文档        1.DTD简介:DTD是Document Type Definition的缩写,即文档定义            1.1:DTD的内容包含:                    元素定义规则                    元素之间的关系规则                    属性的定义规则            1.2:DTD的作用如下:                    DTD使每个XML文件可以携带一个自身格式的描述          

使用CAS登录模块连接数据库验证用户合法性

使用CAS登录模块连接应用数据库验证用户合法性 关于如何配置CAS登录模块集成到开发的Web Application请看这里: http://blog.csdn.net/jia20003/article/details/49683827 基于cas server 3.5.0版本配置实现. 这里我们主要讲述如何利用已经存在的用户数据表user_table中的username与password两个字段,实现用户从CAS模块登录时候查询我们应用数据库basicweb中的user_table表.验证用户

使用soapui验证XML

验证XML消息 采样器TestSteps收到的所有消息都内部转换为对应的XML,这为断言和其他后处理提供了一个共同点.XPath Match和XQuery Match是两个最强大的断言,它们都利用命名技术来提供细粒度的消息验证的可能性.我们来看几个例子吧! 1. XPath 断言 XPath断言将指定的XPath表达式应用于接收到的消息,并根据预期值验证生成的节点.如果值与断言通过匹配,否则失败.让我们跳进去,这是一个我们要验证的登录响应消息; <soapenv:Envelope xmlns:s

xml语法、DTD约束xml、Schema约束xml、DOM解析xml

今日大纲 1.什么是xml.xml的作用 2.xml的语法 3.DTD约束xml 4.Schema约束xml 5.DOM解析xml 1.什么是xml.xml的作用 1.1.xml介绍 在前面学习的html语言,html是超文本标记语言,使用html语言规定好的标签来封装文本数据.而html使用的标签html语言规定好的,每个标签都有自己特定的功能. xml语言,可扩展的标记语言,这门语言它没有定义任何的标记,而标记是由使用者自己来定义,但是由于标签名称以及属性名称都由用户自己来命名,导致别人在使

delphi中的XML解析控件TXMLDocument的用法

Delphi中TXMLDocument控件的用法 Delphi中对XML文件的解析做的很好,比直接使用MS的MSXML2_TLB中的接口要方便很多,现称述于下面. 在讲之前先给出一个XML实例,在讲某些部分是要结合实例比较容易理解. 1<?xmlversion="1.0"encoding="gb2312"?><!--文档版本信息,注释格式同HTML--> 2<XMLPackage> 3<clinetinfoip=”202.1