delphi - 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.