Hola,
Supongo que lo que quieres es exportar un documento Html tal como lo ve el usuario al formato Rtf, esto es, supongo que no te servirá algo así, que lo que hace es exportar el código Html al formato Rtf, utilizando los componentes
SynEdit:
Código Delphi
[-]
uses
SynEditHighlighter,
SynHighlighterHtml,
SynEditExport,
SynExportRTF;
procedure ExportarHtmlARtf(archivoHtml: string);
var
docHtml: TStrings;
synHtml: TSynHTMLSyn;
exporta: TSynExporterRTF;
begin
docHtml := TStringList.Create;
synHtml := TSynHTMLSyn.Create(Application);
exporta := TSynExporterRTF.Create(Application);
try
docHtml.LoadFromFile(archivoHtml);
exporta.Highlighter := synHtml;
exporta.ExportAll(docHtml);
exporta.SaveToFile(ChangeFileExt(archivoHtml, '.rtf'));
finally
docHtml.Free;
synHtml.Free;
exporta.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ExportarHtmlARtf('C:\archivo.html');
end;
¿Verdad que no estoy equivocado y lo que te acabo de proponer no te sirve para lo que pretendes?