XML：未安装 MSXML

Question

使用此代码获取站点的 rss。此代码适用于我的计算机和许多其他计算机。但在某些计算机（Windows XP 或 7）中，我收到此错误：MSXML Not Installed

我该如何解决这个问题？怎么了？

代码如下：

procedure My_Thread.Execute;
var
  http                 : tidhttp;
  strm                 : tmemorystream;
  str,sTitle,  sDec ,er : string;
  StartItemNode        : IXMLNode;
  ANode                : IXMLNode;
  XMLDoc               : IXMLDocument;

begin
  http := tidhttp.Create();
  strm := tmemorystream.Create;
    try
      http.Get('http://www.sample.com/rss.xml',strm);     //Download the RSS file
      SetString(str,PANSIChar(strm.Memory),strm.Size);

      XMLDoc :=  LoadXMLData(str);

      StartItemNode := XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item');
      ANode         := StartItemNode;

      i := 0;
      repeat
        inc(i);
        sTitle    := ANode.ChildNodes['title'].Text;
        sDec       := ANode.ChildNodes['description'].Text;
        Synchronize(procedure begin            //Synchronize? I'm using threads
          case I of
            1: begin
                 main_frm.edit1.text := sTitle; //main_frm is my form
                 main_frm.edit2.text := sDec;
               end;
            2: begin
                 main_frm.edit3.text := sTitle;
                 main_frm.edit4.text := sDec;
               end;
            3: begin
                 main_frm.edit5.text := sTitle;
                 main_frm.edit6.text := sDec;
               end;
          end;
          ANode := ANode.NextSibling;
        end);
      until ANode = nil;

      http.Free;
      strm.Free;

    except
      on E: Exception do
        begin
          er := e.Message;
          Synchronize(procedure begin
            ShowMessage(er);
          end);
        end;
    end;
end;

如您所见，我正在使用线程。所以需要Synchronize。

Answer 1

在 Windows 上，TXMLDocument 默认使用 MSXML，它使用 COM 对象。您的线程在加载 XML 之前没有调用 CoInitialize/Ex()，因此 COM 无法实例化 IXMLDocument 尝试在内部创建的任何 MSXML COM 对象（它尝试创建多个 COM 对象以发现实际的 MSXML 版本安装）。您看到的错误消息意味着所有 MSXML COM 对象都无法实例化。

您必须在每个访问 COM 对象的线程上下文中调用 CoInitialize/Ex()，例如：

procedure My_Thread.Execute;
var
  ...
begin
  CoInitialize(nil);
  try
    ...
    XMLDoc := LoadXMLData(str);
    try
     ...
    finally
      // Since CoInitialize() and CoUninitialize() are being called in the same
      // method as local COM interface variables, it is very important to release
      // the COM interfaces before calling CoUninitialize(), do not just let them
      // release automatically when they go out of scope, as that will be too late...
      StartItemNode := nil;
      ANode := nil;
      XMLDoc := nil;
    end;
    ...
  finally
    CoUninitialize;
  end;
end;

更新：如果你不想依赖这个：你可以使用你选择的不同的 XML 库，你不必使用 MSXML：

Using the Document Object Model

选择 XML 供应商

当您构建应用程序时，RAD Studio 使用默认的内置 XML 供应商 MSXML。

如果您没有指定不同的 XML 供应商，您的应用程序在 Windows 以外的其他平台上不支持 XML，并且当您在其他平台上运行您的应用程序时会看到运行时异常。对于跨平台应用程序，OmniXML 是目前最好的选择，因为它显示出比 ADOM 更好的性能。

要选择不同的 XML 供应商，add a reference 将供应商的单元转换为您使用 RTL XML 功能的单元，例如 TXMLDocument 类。如果您添加多个 XML 供应商单元，则引用的第一个单元将用作 XML 供应商。如果您需要覆盖此行为，请将 DefaultDOMVendor 全局变量的值更改为您要使用的 XML 供应商的全局变量。

注意：您可以在上面的List of Built-in XML Vendors 中查找每个 XML 供应商的单位和全局变量。

当您使用TXMLDocument 组件时，您可以使用其DOMVendor 属性选择一个XML 供应商。当您更改DOMVendor 的值时，使用该组件的单元被配置为使用指定的XML 供应商，因此您无需手动更改单元引用或DefaultDOMVendor 全局变量。

Answer 2

我在我的一个 Delphi 项目中遇到了同样的问题，但我使用了 IdThreadComponent 而不是 Thread 对象。我的问题是： 文档：= NewXMLDocument； 我从线程运行方法中删除了这一行，并将其放在调用线程之前，如下所示： 文档 := NewXMLDocument; IdThreadComponent1.Start;

Answer 3

MSXMLS 需要先安装在 servicePack2 for XP MSXML 4.0 Service Pack 2 (Microsoft XML Core Services) Microsoft Core XML Services (MSXML) 6.0 与 windows 7 相同。 再见