DELPHI中调用XSD去验证XML的合法性

最新推荐文章于 2022-09-07 15:50:34 发布

weixin_30747253

最新推荐文章于 2022-09-07 15:50:34 发布

阅读量123

点赞数

原文链接：http://www.cnblogs.com/mikemao/p/3455243.html

版权

procedure TFrmPrintReport.Button3Click(Sender: TObject);
var
  SchemaDoc, XmlDoc: IXMLDOMDocument2;
  SchemaCache: IXMLDOMSchemaCollection;
  Error: IXMLDOMParseError;
begin
    // Load the data
    XmlDoc := CoDOMDocument40.Create;
    XmlDoc.async := False;
    XmlDoc.load('D:\RONGXING\旅客登记II\ReportAir\2007-11-20\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;