Скачать: CL | DM;

Как сохранить содержимое WebBrowser на диск?   Найти похожие ветки 

← →
dvakar   (2006-07-06 17:31) [0]

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

---

← →
PSPF2003 ©   (2006-07-06 18:01) [1]

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

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

---

← →
PSPF2003 ©   (2006-07-06 18:08) [2]

Печать

 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;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c