Wie aus rtf-Code Klartext erhalten?

galagher · Verfasst: So 15.07.18 20:58

Hallo!

Ich möchte aus rtf-Code den Klartext erhalten. Momentan erzeuge ich ein TJvRichEdit, und weil dieses ein Parent benötigt, muss ich auch ein TForm als dessen übergeordnetes Element erzeugen. In dieses TJvRichEdit lese ich dann den rtf-Code ein, und eine Funktion gibt mir dann den Klartext zurück. Das alles funktioniert zwar, gefällt mir aber nicht.

Wie kann ich also aus rtf-Ccode den reinen Text ohne Formatierungs- und Steuerzeichen extrahieren, ohne den Umweg über eine temporäres TJvRichEdit?

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

espen · Verfasst: Mo 16.07.18 10:21

www.delphipraxis.net...us-rtf-auslesen.html

Ehemaliges Mitglied Erhaltene Danke: 1

- Nachträglich durch die Entwickler-Ecke gelöscht -

galagher · Verfasst: Mo 16.07.18 12:14

Frühlingsrolle hat folgendes geschrieben :

@ espen
In deinem verlinkten Beitrag wird ebenso auf ein TRichEdit zurückgegriffen. Das möchte der TE aber nicht.

@ galagher
Das, was dir nicht gefällt, wäre aber der richtige Ansatz.

Irgendwie muss TRichEdit das ja machen, ich dachte, jemand hat den nötigen Code dafür!
Was mir nich gefällt, ist das erzeugen einer Komponente (ok, das wäre noch nicht schlimm), aber das Erzeugen einer TForm finde ich unelegant. .CreateParented kannte ich nicht, werde die Codes aber ausprobieren!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

galagher · Ehemaliges Mitglied Erhaltene Danke: 1

- Nachträglich durch die Entwickler-Ecke gelöscht -

galagher · Verfasst: Mo 16.07.18 19:36

Dein zweites Beispiel gefällt mir wegen Application.MainForm nicht so gut!
Zum ersten Beispiel: Was ist der Unterschied zwischen CreateParented(HWND(-3)) und CreateParented(HWND_MESSAGE)?

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

galagher · Ehemaliges Mitglied Erhaltene Danke: 1

- Nachträglich durch die Entwickler-Ecke gelöscht -

galagher · Verfasst: Mo 16.07.18 21:22

Dann danke ich euch für eure Hilfe!

Ich verwende nun diesen Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

function Rtf2Txt(const rtf: AnsiString): String;
begin
  with TRichEdit.CreateParented(HWND_MESSAGE) do
  begin
    SendMessage(Handle, WM_SETTEXT, 0, NativeInt(@rtf[1]));
    Result := Text;
    Free;
  end;
end;

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

galagher · Ehemaliges Mitglied Erhaltene Danke: 1

- Nachträglich durch die Entwickler-Ecke gelöscht -

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme