谢谢各位大大了
解决方案 »
- delphi操作excel怎样插入一个可选的列?
- SetKeyboardState 256个字节数组分别代表什么
- 大家有没有李维的《 VCL INSIDE》的电子书啊,能否共享共享,多谢了
- Delphi的数据库应用系统中,一般可以采用哪些措施来提高系统的性能?请各位高手指教。
- 一个奇怪的特别的问题。。。。
- 关于图片指针问题,需要高手指点
- 关于文本的一些操作,高手指点下哈
- dephi6用ado连sqlserver,sqlserver7和2000有什么区别
- 出现了一个怪问题
- 已经有很多人问过了,但答案都不满意,高分求解关于IE的保存问题。
- 有谁知道杭州彩通网络技术有限公司的?
- 调用WebService参数的问题
SchemaDoc, XmlDoc: IXMLDOMDocument2;
SchemaCache: IXMLDOMSchemaCollection;
Error: IXMLDOMParseError;
begin
// Load the data
XmlDoc := CoDOMDocument40.Create;
XmlDoc.async := False;
XmlDoc.load('D:\SA_0711200845_ZYK.xml');
// Load the schema doc
SchemaDoc := CoDOMDocument40.Create;
SchemaDoc.async := False;
SchemaDoc.load(ExtractFilePath(Application.Exename) +'tests\manifest.xsd');
// Register the schema with the cache
SchemaCache := CoXMLSchemaCache40.Create;
SchemaCache.add('', schemadoc);
// Assign the schema cache to the document
XmlDoc.schemas := schemacache;
// Validate and report
Error := xmldoc.validate;
if Error.errorCode <> S_OK then
Memo1.Lines.Add(Error.reason)
else
Memo1.Lines.Add('验证成功');
end;