Delphi：如何使用 TJvRichEdit 将文本和图像（不仅仅是 .bmp）加载或保存到文件或 firebird blob 字段？答案

【问题标题】：Delphi: How to use TJvRichEdit to load or save text and images (not just .bmp) to file or firebird blob field?Delphi：如何使用 TJvRichEdit 将文本和图像（不仅仅是 .bmp）加载或保存到文件或 firebird blob 字段？
【发布时间】：2011-01-26 05:22:42
【问题描述】：

关于 TJvRichEdit 和 Delphi... 怎么样？

从文件中加载/保存 rtf（包括文本和图像 - 不仅是 .bmp）？
从 Firebird blob 字段读取/写入 rtf（包括文本和图像 - 不仅是 .bmp）？
在插入到 TJvRichEdit rtf 之前自动将从剪贴板 (Ctrl-V) 粘贴的屏幕转储转换为 .jpg 格式？

指导/建议、示例/代码和有用的 URL 都很有帮助。谢谢。

【问题讨论】：

help.delphi-jedi.org 的 JEDI 在线帮助没有有用。阅读 JvRichEdit.pas 中的源代码很有帮助，但我仍然有很多问题。

标签： delphi stream rtf richedit jvcl

【解决方案1】：

就 blob 字段而言，使用 tBlobStream 和组件 SaveToStream / LoadFromStream 方法。对于文件，使用 tFileStream 和相同的方法。

【讨论】：

【解决方案2】：

关于 3，我建议从剪贴板创建位图加载（请参阅 LoadFromClipboardFormat、SaveToClipboardFormat），转换为 jpeg 保存到剪贴板，从剪贴板进行 Richedit 粘贴，

从位图转换为 jpeg：

Jpg := TJPEGImage.Create;
jpg.Assign(Bitmap);
jpg.CompressionQuality := 50;

【讨论】：

【解决方案3】：

找到 JVCL 下载附带的演示 (..\jvcl\examples\JvRichEdit\EditorDemo.dpr)。它编译并运行，看起来它可能包含回答问题第 1 部分的代码。

【讨论】：