Save HTML

[Claster]

procedure TMainForm.SaveHTMLClick(Sender: TObject);
var
  s: TStringList;
  wb: TWebbrowser;
begin
  s := TStringList.Create;
  wb := TWebbrowser.Create(self);
  try
    wb.Navigate('about:blank');
    if RichEdit1.SelLength = 0 then
      RichEdit1.SelectAll;
    RichEdit1.CopyToClipboard;
    RichEdit1.SelLength := 0;
    SaveDialog2.FileName := pnlHeadler.Caption;
    if SaveDialog2.Execute then begin
      s.Add(' ');
      wb.OleObject.document.selection.createRange().execCommand('Paste');
      s.Add(wb.OleObject.document.body.innerHTML);
      s.Add('');
      s.SaveToFile(SaveDialog2.FileName);
    end;
  finally
    s.Free;
    wb.Free;
  end;
end;

Ошибка в SaveDialog2.FileName := pnlHeadler.Caption;

pnlHeadler-неизвестный идентификатор

[Alter]

И что же это такое pnlHeadler? Где он используется?

[zetrix]

Откуда копипастили?
Вот лично мне, по этому коду, тоже не понятно что же это за pnlHeadler

[Claster]

Взял с Интернета

http://articles.org.ru/cn/showdetail.php?cid=7092

Ну я ту ошибку закоментил оно и так работает просто решил узнать за чтота строка отвечает! ))

И ещё вопрос, как сделатьчто бы при сохранении в HTML документ, сохранялся не только текст но и вставленный картинка в RichEdit?? процедур для вставки у мня есть всё вставляет!