Bild in TRichEdit einfügen

[Schwedenbitter]

Hallo,

ich benutze TurboDelphi und tue mich daher grundsätzlich schwer, zusätzliche Komponenten zu benutzen. Außerdem ist mein Programm mit mehreren tausend Zeilen schon fertig, so dass ich auch von daher gern bei TRichEdit bleiben möchte!

Wie bekomme ich dort ein Bild (z.B. TBitmap) hinein?

Ich habe im Netz nur Hilfen gefunden, wie man das mit fremden Komponenten machen kann. Einziger Strohhalm schien mir das hier. Davon ausgehen habe ich das probiert, was aber leider nicht klappt:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   Bild        : TImage;
Begin
   Bild:=TImage.Create(nil);
   Try
      Bild.Picture.Bitmap.LoadFromFile('test.bmp');
      RichEdit1.InsertControl(Bild);
   Finally
      Bild.Free;
   End;
End;

Kann mir bitte jemand helfen?

Gruß, Alex

[Bernhard Geyer]

Das geht beim normalen TRichEdit nicht in älteren Delphi-Versionen. Das RichEdit von der JVCL würde das können, aber das kannst du ja nicth in der kostenlosen TurboDelphi-Version installieren. Müsstest das also per Code anlegen.

[Schwedenbitter]

Hallo Bernhard

Zitat:

Zitat von Bernhard Geyer

... Müsstest das also per Code anlegen.

Das war mir schon (fast) selbst klar.
Zum einen habe ich in der Online-Hilfe keine Funktion gefunden, die mir hilfreich schien und zum anderen wurde das beim Suchen im Netz immer absehbarer.

Kann mir da jemand irgend welche Code-Vorschläge machen?
Hast das mit dem Stream (Siehe mein Link oben) schon einmal jemand probiert?

[EDIT]Gibt es irgendwo eine Anleitung, wie man Code von Visual C ++ nach Delphi übersetzt? Falls ja, dann könnte das hier mir und ggf. anderen helfen.[/EDIT]

Gruß, Alex

[DeddyH]

Ich denke, Bernhard meint, dass Du die JVCL "installieren" sollst, d.h. bei TDE: Such-/Bibliothekspfad erweitern. Dann kannst Du die benötigten Komponenten per Code erzeugen und entsprechend initialisieren.

[Schwedenbitter]

Hallo DeddyH,

es muss auch mit dem stink normalen TRichEdit funktionieren. Ich zitiere dazu nochmal meinen Link aus dem ersten Post wie folgt:

Zitat:

After quite a bit of searching the net, I found that there was no easy way to insert an image into a RichEdit. Inserting a bitmap as an object worked well enough, but the user can still open it up and edit it, and the image had to be an existing file ...

Der Fettdruck ist von mir. My english is not so good, but wenn ich das oben lese, dann scheint es zu klappen. Der Poster bemängel doch "nur", dass der Benutzer Änderungen vornehmen kann. Das wäre mir egal, wenn ich nur das Bild angezeigt bekäme.

TRichEdit bietet nun 4 in Betracht kommende Möglichkeiten:

• Procedure InsertComponent();
• Procedure InsertControl();
• Function Lines.AddObject();
• Procedure Lines.InsertObject();

Die ersten beiden Varianten will mein Compiler nicht; auch ein Cast (ausgehend von TBitmap) funktioniert bei mir nicht. TImage kann ich einfügen, bekomme es aber nicht angezeigt.
Bei den zweiten beiden Varianten, scheint es zu klappen. Nur sehe ich - ehrlich gesagt hatte ich auch nichts anderes erwartet - statt des Bildes nur den Text...

Ich habe bereits versucht, mich auf den delphipages anzumelden. Das hat mehr oder weniger auch geklappt. Ich kann mich einloggen. Aber da ich keine Mail zum Bestätigen bekommen habe, kann ich nichts posten :wall:

Mit den vorgeschlagenen Komponenten ist das so eine Sache. Ich hatte ja bereits geschrieben, dass mein Programm steht. Ich müsste dann wegen der einen Komponente meinen funktionieren Code abändern. Das tue ich nur sehr sehr ungern.

Ich brauchte also noch immer Hilfe.

Gruß, Alex

[Bernhard Geyer]

Zitat:

Zitat von Schwedenbitter

es muss auch mit dem stink normalen TRichEdit funktionieren. Ich zitiere dazu nochmal meinen Link aus dem ersten Post wie folgt:

Zitat:

After quite a bit of searching the net, I found that there was no easy way to insert an image into a RichEdit.

Nö, muss es nicht. Unten spricht er von RxRichEdit und RichTextBox.

Der mitgelieferte Wrappre von TRichEdit geht um eine alte Version des Win32-Controls und das ist AFAIK der Grund wieso Bilder nicht unterstützt werden.
Lade doch mal ein vorhandenes RTF mit Bild. Es wird int TRichEdit nicht sichtbar sein. Also wirst du per Code auch keine sichtbar hinzufügen können.

[Matze]

Vielleicht funktioniert folgender Umweg:

- dynamisch ein TImage erstellen
- Bitmap ins TImage laden
- TImage per "InsertControl()" dem RichEdit zuweisen.

Aber ob das geht, weiß ich nicht.

[Schwedenbitter]

@ Matze

Zitat:

Zitat von Matze

Aber ob das geht, weiß ich nicht.

Eine sehr gute Idee :wink:, die ich auch schon probiert hatte und die leider nicht klappt :( .

@Bernhard Geyer
Stimmt - leider. Ich habe eine rtf-Datei mit Bild und Text geladen. Der Text wird angezeigt, das Bild nicht. Schade dass niemand schon eher auf diese "Beweisführung" gekommen ist, das hätte mir eine Menge Zeit und Tüftelei erspart.
Wo finde ich nochmal die unit(s) nur mit der / für die Komponente, die ich brauche? :-D Ich würde mir nur ungern die Gesamte Bibliothek runterladen und dann womöglich ewig nach der Komponente suchen...

Gruß, Alex

[p80286]

Hallo zusammen,

ich hab ein wenig gespielt:
eine RTF-Datei mit Word erstellt (mit Bild),
In einen Richtext geladen (LoadfromFile)
eine weitere Zeile hinten dran gepackt (Lines.Add)
in anderer Datei gespeichert (SavetoFile)

und siehe da, das Bild ist weg;

Was aber auch durch die RTF-Definition gestützt wird. Der RTF-Interpreter darf, was er nicht kennt ignorieren, und das Delphi-RTF (Turbo/D2006) scheint keine Bilder zu kennen.

Wenn es reicht in die Ausgabe ein Bild zu packen, dann ist der Link aus #1 ein ganz guter Ausgangspunkt.

Gruß
K-H

[Matze]

Zitat:

Zitat von Schwedenbitter

Wo finde ich nochmal die unit(s) nur mit der / für die Komponente, die ich brauche? :-D Ich würde mir nur ungern die Gesamte Bibliothek runterladen und dann womöglich ewig nach der Komponente suchen...

Die einzelnen Units gibt's im SVN der JVCL (JvRichEdit.pas).
Du wirst allerdings weitere Units benötigen, wie die Uses-Liste der JvRichEdit.pas zeigt:

Delphi-Quellcode:

uses
  JVCLVer, JvExStdCtrls;

Die JVCLVer.pas benötigt wiederum:

Delphi-Quellcode:

uses
  JclUnitVersioning;

...

Entweder du klickst dich da durch und sucht alles nötige heraus oder du installierst die gesamte JVCL (wobei diese evtl. etwas überteieben ist, wenn du nur das RichEdit benötigst).

Grüße, Matze