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

Question

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