Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ Браузер \ Сохранить страницу в WebBrowser на диск

Сохранить страницу в WebBrowser на диск

uses 
  ActiveX, MSHTML_TLB, SHDocVw_TLB, 
  ComCtrls, OleCtrls; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  HTMLDocument: IHTMLDocument2; 
  PersistFile: IPersistFile; 
begin 
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2; 
  PersistFile  := HTMLDocument as IPersistFile; 
  PersistFile.Save(StringToOleStr('c:SavedFile.html'), System.True); 
end;

Название: Сохранить страницу в WebBrowser на диск
Дата публикации: 2004-09-02 (2864 Прочтено)

 
 

 

Page generation 0.044 seconds