| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сохранить содержимое WebBrowser на диск? [D6, WinXP]

dvakar ©   (2006-07-06 17:31:00) 

Использую WebBrowser, необходимо сохранить страницу на диск, как если бы это сделать из IE - > Файл - > Сохранить как...

---

PSPF2003   (2006-07-06 18:08:00) [1]

Печать

 try
   WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT);
 except
 end;

Предварительный просмотр

 try
   WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT);
 except
 end

Параметры страницы

 try
   WebBrowser1.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT);
 except
 end;

Копировать

 try
   WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT);
 except
 end;

Открытие в блокноте

procedure TForm1.SpeedButton15Click(Sender: TObject);
const
 CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
 CmdTarget : IOleCommandTarget;
 vaIn, vaOut: OleVariant;
 PtrGUID: PGUID;
begin
 New(PtrGUID);
 PtrGUID^ := CGID_WebBrowser;
 if WebBrowser1.Document <> nil then
   try
     WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
     if CmdTarget <> nil then
       try
         CmdTarget.Exec( PtrGUID, HTMLID_VIEWSOURCE, 0, vaIn, vaOut);
       finally
         CmdTarget._Release;
       end;
   except
   end;
 Dispose(PtrGUID);
end;

Остальное сам найдешь

---

PSPF2003   (2006-07-06 18:01:00) [2]

try
   WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT);
 except
 end;

Кажется так проверь

---

Наверх