如何在Delphi7中解析xml文件

Question

早上好，我需要根据XML的XSD (解析)来验证它；我在Win7 Virtualbox机器上使用Delphi7。我在互联网上找到了一些例子和解释。我选择了这个对我来说简单而恰当的例子：

procedure TForm1.Button1Click(Sender: TObject);
var XML, XSDL: Variant;
begin
  XSDL := CreateOLEObject('MSXML2.XMLSchemaCache.4.0');
  XSDL.validateOnLoad := True;
  XSDL.add('','C:\Lavoro\Fattura_Elettronica_PRIVATI\Schema_del_file_xml_FatturaPA_versione_1.2.1.xsd');
  ShowMessage('Schema Loaded');
  XML := CreateOLEObject('MSXML2.DOMDocument.4.0');
  XML.validateOnParse := True;
  XML.resolveExternals := True;
  XML.schemas := XSDL;
  XML.load(Edit1.Text);
  ShowMessage(XML.parseError.reason);
end;

但"CreateOLEObject“函数会引发异常类EOleSysError，并显示消息”接口字符串无效“(由意大利语翻译)。在uses子句中，我插入了"OleCtnrs，ComObj，xmldom，XMLIntf，msxmldom，XMLDoc，MSXML2_TLB“。为什么会有这种例外？谢谢你的回答。

Answer 1

实际的错误代码是什么？我猜您的计算机上没有安装MSXML4。它是旧的，请改用MSXML6。