使用 Delphi 2007 在运行时将 IXMLDOMDocument3 保存到 xml 文件

Question

如果我想在运行时将 IXMLDOMDocument3 保存到硬盘上的文件中，语法是什么？

例如，像IXMLDOMDocument3.save（'c：\test.xml'）

或者甚至可能吗？

此致敬意！

Answer 1

下面的示例代码演示如何在运行时加载和保存IXMLDomDocument3 XML。它使用来自Delphi-2010的msxml头文件。 IXMLDomDocument3继承自IXMLDomDocument并且具有Save方法（正如您在问题中所写的那样）。如果方法参数是字符串，则指定文件名（它创建或替换目标文件）。

program Project3;
{$APPTYPE CONSOLE}
uses SysUtils, msxml, comObj, activex;
    procedure LoadAndSaveXML(LoadFile, SaveFile : string);
    var xml : IXMLDOMDocument3;
        tn : IXMLDOMElement;
    begin
        xml := CreateComObject(CLASS_DOMDocument60) as IXMLDOMDocument3;
        xml.load(LoadFile);
        xml.save(SaveFile);
    end;
begin
  try
    CoInitialize(nil);
    try
        LoadAndSaveXML('D:in.xml', 'D:out.xml');
    finally
        CoUninitialize();
    end;
  except
    on E: Exception do begin
      Writeln(E.ClassName, ': ', E.Message);
      readln;
    end;
  end;
end.