RTF to HTML

[Mutabor182]

Hi All
вот нашел процедурку

Цитата: var s: TStringList; wb: TWebbrowser; begin s := TStringList.Create; wb := TWebbrowser.Create(self); try wb.Navigate('about:blank'); if RxRichEdit1.SelLength = 0 then RxRichEdit1.SelectAll; RxRichEdit1.CopyToClipboard; RxRichEdit1.SelLength := 0; SaveDialog2.FileName := '1.html'; if SaveDialog2.Execute then begin s.Add(' ); wb.OleObject.document.selection.createRange().exec Command('Paste'); s.Add(wb.OleObject.document.body.innerHTML); s.Add(''); s.SaveToFile(SaveDialog2.FileName); end; finally s.Free; wb.Free; end; end;

Работает, но у меня есть по ней один вопрос. Я убираю savedialog и задаю имя файла программно

Цитата: //SaveDialog1.FileName := '1.html'; //if SaveDialog1.Execute then begin s.Add(' '); wb.OleObject.document.selection.createRange().exec Command('Paste'); s.Add(wb.OleObject.document.body.innerHTML); s.Add(''); s.SaveToFile(ExtractFilePath(Application.ExeName)+ '1.html');

и delphi выдает ошибку: "неопределенная ошибка" на строке

Цитата: wb.OleObject.document.selection.createRange().exec Command('Paste');

Я не очень понимаю смысл этой строки, может кто-нибудь, пожалуйста, пояснить, что она делает, и в чем причина ошибки?

[hack]

А если так:

if SaveDialog2.Execute then begin
s.Add('');

[Mutabor182]

hack, Мне вобще хочется без SaveDialog2.Execute

[hack]

Попробуй испоьзовать RichView (смотри в компонентах) - он умеет напрямую в html сохранять.

[Mutabor182]

Цитата: ADODataSet1.Edit; ADODataSet1['OpisHtml']:= DBRichView1..... ADODataSet1.Post; ADODataSet1.Next;

Что то не соображу как в поле HTML записать ....