Search code examples
delphistreamrtfricheditjvcl

Delphi: How to use TJvRichEdit to load or save text and images (not just .bmp) to file or firebird blob field?

Regarding TJvRichEdit and Delphi... How?

  1. Load/Save rtf (including text and images - not only .bmp) to/from a file?
  2. Read/Write rtf (including text and images - not only .bmp) to/from Firebird blob field?
  3. Automatically convert screendump pasted from clipboard (Ctrl-V) into .jpg format before it is inserted into the TJvRichEdit rtf?

Guidance/advice, examples/code and useful URLs are all helpful. Thanks.

Solution

  • Regarding 3 i would advice to create bitmap load from clipboard (see LoadFromClipboardFormat, SaveToClipboardFormat), convert to jpeg save to clipboard, richedit paste from clipboard,

    Converting from bitmap to jpeg:

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