rtf zu plaintext (ohne TRichEdit)

[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.