xml - Delphiで生成されている間にXMLを書く方法は?

Question

TXMLDocumentDelphiを使用して XML ファイルを生成します。XML が作成されたら、 を呼び出しますSaveToStream。XML ファイルの作成には時間がかかるため、生成中にストリームに書き込むソリューションが必要です。どうすればそれができますか？

Answer 1

TXMLDocument では不可能です。必要なことを行う別のフレームワークを見つけるか、手動でストリームに書き込む必要があります。

procedure WriteToStream(Stream: TStream; const S: UTF8String);
begin
  Stream.WriteBuffer(Pointer(S)^, Length(S));
end;

var
  Stream: TStream;
begin
  Stream := ...;
  try
    WriteToStream(Stream, '<?xml version="1.0" encoding="utf-8" ?>'#13);
    WriteToStream(Stream, '<my_doc_element>');
    WriteToStream(Stream, '<my_child_element>');
    ...
    WriteToStream(Stream, '</my_child_element>');
    WriteToStream(Stream, '</my_doc_element>');
  finally
    Strm.Free;
  end;
end;