Bild in TRichEdit einfügen

[Schwedenbitter]

Zitat von p80286:

Hier noch kurz zum Link aus #1

Den Code hatte ich bei mir bereits optimiert am Laufen. Wenn ich das einfügte und die rtf-Datei sofort speicherte, dann sah ich das Bild, wenn es z.B. mit dem WordPad von M$ geöffnet wurde. Daher hatte ich mich dann quasi in diese "Lösung" verbissen.

html hat aber auch einen entscheidenden Vorteil: Es spart Platz. Bei BitmapToRTF(); werden die Bildpunkte de facto als menschenlesbare Zahlenpaare gespeichert. Das kostet schon für jedes einzelne Bild immens Speicher und wenn dann mehr dabei sind eben mehr ... Ich hatte für meine Tests ein 125 KB Bild (bmp) genommen, wodurch die rtf-Datei nachher ca. 300 KB groß wurde. Da ich aber nur Smilies wollte, hatte ich mich auch damit schon abgefunden.

Mache mich jetzt auf die Suche nach einer Möglichkeit mit html, was mit TRichEdit wohl tatsächlich nichts mehr zu tun hat.

Danke an dieser Stelle schon einmal an alle Mithelfenden, auch wenn neue Ideen immer willkommen sind!

Gruß, Alex

[Schwedenbitter]

Ich antworte mir hier mal selber.
Das Problem habe ich jetzt etwas unorthodox gelöst. Hierzu benutze ich den Font 'Emoticons' von hier. Wenn dann jemand z.B. : - ) eingibt, wird diese Zeichenfolge durch das entsprechende Zeichen aus diesem und nebst diesem Font ersetzt. Lediglich Farbe kann er und damit auch meine Lösung nicht bieten. Aber vermutlich wäre das auch nur eine Frage, ob man das nicht mit einem Fonteditor noch nachholen könnte.

Anbei der Quelltext nebst exe zum Probieren für geneigte Leser ...

Gruß, Alex

[himitsu]

Man kann den Internet Explorer / TWebBrowser die Bilddatan auch direkt im src-Attribut mitgeben oder man gibt im einen ResourceLink, womit er de Dilddatei direkt aus den EXE-Resourcen (oder irgendeiner anderen EXE/DLL) rauslesen kann.

Die Bilddateien muß man jedenfalls nicht direkt/einzeln auf der Platte rumliegen haben.

[spartakus]

wenn du nur einfach das Bild einfügen willst,
versucht mal so: (editieren wird nichts!)

Code:

procedure TForm1.Button2Click(Sender: TObject);
var
 Img: TImage;
begin
RichEdit1.Left := 10;
Img:= TImage.Create(RichEdit1);
Img.Left := 30;
Img.Top := 30;
Img.Picture.LoadFromFile('bild.bmp');
Img.Parent := RichEdit1;
 end;