Как сохранить содержимое 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;

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

Печать

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;

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

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