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

Question

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

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

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

Answer 1

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

从位图转换为 jpeg：

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

Answer 2

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

Answer 3

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