Delphi: Comment utiliser TJvRichEdit pour charger ou enregistrer du texte et des images (pas seulement .bmp) dans un champ blob de fichier ou de firebird?

Question

En ce qui concerne TJvRichEdit et Delphi ... Comment?

1. Load/Save rtf (y compris le texte et les images - non seulement .bmp) à/d'un fichier?
2. Lecture/écriture rtf (y compris le texte et les images - pas seulement .bmp) vers/depuis le champ blob de Firebird?
3. Convertir automatiquement screendump collé à partir du presse-papiers (Ctrl-V) en format .jpg avant qu'il ne soit inséré dans le RTF TJvRichEdit?

Des conseils, des exemples/codes et des URL utiles sont tous utiles. Merci.

Answer 1

En ce qui concerne 3 i vous conseille de créer la charge bitmap du presse-papiers (voir LoadFromClipboardFormat, SaveToClipboardFormat), convertir en JPEG Vous pouvez enregistrer le presse-papiers, pâte richedit du presse-papiers,

Conversion de bitmap en jpeg:

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

Answer 2

J'ai trouvé une démo (.. \ jvcl \ examples \ JvRichEdit \ EditorDemo.dpr) fournie avec le téléchargement JVCL. Il compile et fonctionne et semble contenir le code qui répond à la partie 1 de la question.

Answer 3

En ce qui concerne le champ blob, utilisez un tBlobStream et les méthodes SaveToStream/LoadFromStream des composants. Pour un fichier, utilisez un tFileStream avec les mêmes méthodes.