xml - 在 Delphi 中生成 XML 时如何编写 XML？

Question

我在 Delphi 中使用 TXMLDocument 生成 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;