rtf zu plaintext (ohne TRichEdit)

[urs.liska]

Zitat von PeterP.:

Besser spät als nie, oder ?

Richtig
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?

[shadowman]

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?

[p80286]

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

[samso]

Zitat:

Hat vielleicht jemand diese Funktion schon mal auf Unicode "umgestellt"?

Ja, habe ich jetzt gemacht (nur mit Delphi >= 2009). Das Ergebnis kann hier herunter geladen werden.
uRtfConverter.pas

[Walter Landwehr]

und wie wird die Function aufgerufen?

[DeddyH]

Instanz erzeugen, mit ReadData RTF einlesen, mit der Property PlainText auf den reinen Text zugreifen, Instanz wieder freigeben, glücklich sein.

[Walter Landwehr]

Hallo Detlev,
hast Du mal ein Beispiel für mich.

[samso]

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.

[Walter Landwehr]

Danke samso hat bestens funktioniert.