在 Delphi 中，如何将 String 转换为 IStream，反之亦然？

Question

我想使用：

Rslt := WrapCompressedRTFStream(OleStream, 0, Uncompressed);

其中：OleStream，未压缩：IStream； RTFStringIn RTFStringOut 是字符串；

1. 我有 RTFStringIn （作为字符串）。
2. 将其转换为 OleStream (ISTREAM)。
3. 运行 WrapCompressedRTFStream。
4. 将未压缩的数据转换为 RTFStringOut。

然后将其另存为 RTF 文件。 所有这一切都无需使用 ExtendedMAPI。

Answer 1

使用 TStreamAdapter 进行转换：

...
Stream := TStringStream.Create(your_string_here);
istr := TStreamAdapter.Create(Stream, soReference) as IStream;
...