PlainText aus RTF auslesen

[marabu]

Ich bleibe bei meinem Vorschlag.

Delphi-Quellcode:

function RtfToPlain(rtf: String): String;
begin
  with TRichEdit.CreateParented(HWND(-3)) do
  begin
    SelectAll;
    SelText := rtf;
    Result := Text;
    Free;
  end;
end;

marabu

[arnof]

Zitat von marabu:

Ich bleibe bei meinem Vorschlag.

Delphi-Quellcode:

function RtfToPlain(rtf: String): String;
begin
  with TRichEdit.CreateParented(HWND(-3)) do
  begin
    SelectAll;
    SelText := rtf;
    Result := Text;
    Free;
  end;
end;

marabu

Hallo, nachdem ich sowas gerade mal brauchte, musste ich festsetllen das das unter Berlin nicht geht! Hier meine gesteste Lösung:

Delphi-Quellcode:

function RTF2Text(rtf: String): String;
 var stream:TStringStream;
begin
  stream:=TStringStream.Create(rtf);
  with TRichEdit.CreateParented(HWND(-3)) do
  begin
    Lines.LoadFromStream(Stream);
    Result := Text;
    Free;
  end;
  stream.Free;
end;

[Whookie]

Da RTF-Text ansi - codiert ist, benötigt es eine Umwandlung und man muss dem RichEdit auch noch klar machen das man es ernst meint mit Ansi:

Delphi-Quellcode:

function Rtf2Txt(const rtf: ansistring): string;
begin
  with TRichEdit.CreateParented(HWND(-3)) do
  begin
    SendMessage(Handle, WM_SETTEXT, 0, NativeInt(@rtf[1]));
    Result := Text;
    Free;
  end;
end;

dann geht das immer noch ohne stream.

[arnof]