Re: rtf zu plaintext (ohne TRichEdit)
Zitat:
Ich habe die Funktion vorläufig zum Laufen bekommen. Eine Hilfsfunktion "HexToInt" fehlte, doch konnte ich die selbst ergänzen. Nun läuft die Funktion zumindest ohne Fehler, nach ersten Versuchen scheint sie auch bis auf winzige Unterschiede (Leerzeichen oder Zeilen-/Absatzwechsel?) alles richtig zu machen. Ich werde dem wohl noch etwas weiter nachgehen und mehr Tests machen. Nochmal vielen Dank Urs P.S. Wie ist das denn jetzt eigentlich? Ich habe nun diese Funktion aus einem OpenSource-Projekt genommen und um eine weitere Unterfunktion verändert. Darf ich das denn? :pale: |
AW: rtf zu plaintext (ohne TRichEdit)
Hallo,
langer her seit dem letzten Beitrag hier... Wir nutzen diese Funktion auch (Beitrag #8 in diesem Thread), mussten aber kürzlich feststellen, dass sie nur bedingt funktioniert - scheinbar nur wenn man mit ANSI-Inhalten arbeitet. Wenn man damit Unicode-Inhalte ermitteln will, z.B. den Text, den man auf Russisch (kyrillisch) oder chinesisch eingegeben hat, wird alles andere geliefert als das richtige Ergebnis. Hat vielleicht jemand diese Funktion schon mal auf Unicode "umgestellt"? Gibt es vielleicht inzwischen eine andere Möglichkeit, Plain-Text aus einem RTF-Text ohne TRichEdit zu ermitteln? |
AW: rtf zu plaintext (ohne TRichEdit)
Ist schon etwas länger her, daß ich mich mit RTF beschäftigt habe, aber zumindestens bei kyrillischen Buchstaben, sollte es "ausreichen" den richtigen Font mit der richtigen Chartable zu kombinieren.
Gruß K-H |
AW: rtf zu plaintext (ohne TRichEdit)
Zitat:
uRtfConverter.pas |
AW: rtf zu plaintext (ohne TRichEdit)
und wie wird die Function aufgerufen?
|
AW: rtf zu plaintext (ohne TRichEdit)
Instanz erzeugen, mit ReadData RTF einlesen, mit der Property PlainText auf den reinen Text zugreifen, Instanz wieder freigeben, glücklich sein.
|
AW: rtf zu plaintext (ohne TRichEdit)
Hallo Detlev,
hast Du mal ein Beispiel für mich. |
AW: rtf zu plaintext (ohne TRichEdit)
Liste der Anhänge anzeigen (Anzahl: 1)
Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, Classes, uRTFConverter; var test: TBytesStream; RTF2Plain: TRTF2PlainConverter; begin test := nil; RTF2Plain := nil; try test := TBytesStream.Create; test.LoadFromFile('Dokument.rtf'); RTF2Plain := TRTF2PlainConverter.Create; RTF2Plain.ReadData(test.Bytes); Write(RTF2Plain.Plaintext); except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; test.Free; RTF2Plain.Free; end. |
AW: rtf zu plaintext (ohne TRichEdit)
Danke samso hat bestens funktioniert.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:26 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz