rtf to html (again)

Jeremy

Maybe this is too elementary a question, but it's beyond my pea brain. Why isn't the following working?

Code

htmlMerged := TWPRichText.Create(nil);
htmlMerged.Parent := frmMergeEngine;
htmlMerged.FastCopyProperties(frmMergeEngine.rtfMerged);
htmlMerged.TextLoadFormat := 'HTML';
s := TMemoryStream.Create;
frmMergeEngine.rtfMerged.TextSaveFormat := 'HTML';
frmMergeEngine.rtfMerged.SaveToStream(s);
htmlMerged.Clear;
s.Position := 0;
f:=htmlMerged.LoadFromStream(s);
htmlMerged.Refresh;


Result := htmlMerged.AsString;
htmlMerged.Free;
s.Free;

Alles anzeigen

[/code]

support

Hi,

If I understand that code correctly, you did not assign

htmlMerged.TextSaveFormat := 'HTML';

The direct way woulkd be of course to read the string from frmMergeEngine.rtfMerged. If you want to concatenate texs use

htmlMerged.FastAppendText( frmMergeEngine.rtfMerged ).

Saving as HTML and loading into htmlMerged does not permanently apply the text format (html) and is also not required for a conversion generally.

Hope this helps,
Julian

Jeremy

Julian, thanks, setting TextSaveFormat := 'HTML' does the job.

For the record, frankly, it never occurred to me that twprichtext.asstring would invoke a "save" method. That's why I had the code to save to a stream.

Jeremy