xml - 在 Delphi 控制台应用程序中使用 IXML

Question

通过 XML 数据绑定(bind)，我创建了一个读取 xml 文件的程序。如果我运行 GUI 程序(Delphi XE7)它工作正常。但是，我需要使它成为一个可以在命令行上使用的控制台应用程序。我可以运行该程序，但是一旦我想加载 xml 文件，就会收到错误消息:“不支持接口(interface)”。

问题似乎出在:

function Loadconversation(const FileName: string): IXMLConversation;
 begin
  Result := LoadXMLDocument(FileName).GetDocBinding('conversation', TXMLConversation,
                                            TargetNamespace) as IXMLConversation;
 end;

谢谢。
阿让

Answer 1

GUI 应用程序和控制台应用程序之间导致此类行为差异的最明显区别是 COM 默认情况下不会为控制台应用程序初始化。对于 GUI 应用程序，COM 由框架自动初始化，但对于控制台应用程序，这不会发生。

所以添加一个电话到 CoInitializeEx在控制台应用程序的开头。

CoInitializeEx(nil, COINIT_APARTMENTTHREADED);