| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Можно с помощью TWebBrowser сохранить текущую страницу в MHT? [D7, WinXP]
N.H. © (2004-10-03 03:52:00)Здравствуйте. Подскажите, можно ли с помощью компонента TWebBrowser (или какой-нибудь его альтернативы) сохранить текущую страницу в формате MHTML?
Задача:
Пользователь задаёт веб-браузеру адрес страницы. Браузер открывает эту страницу, а потом, когда она полностью загрузится, ему надо будет сохранить эту страницу в формате MHTML.
Если это невозможно, подскажите, альтернативные пути решения задачи. Большое спасибо.
N.H. (2004-10-05 00:07:00) [1]
> Piter © (03.10.04 11:32) [2]
Да, спасибо, я почитал статью ( http://delphi.about.com/library/weekly/aa062904a.htm) Теперь страница у меня сохраняется в MHT,но без картинок :( Хотя я все делаю правильно.
Piter (2004-10-03 11:32:00) [2]Тем уже удалена - вот ее архив:
http://piter007.newmail.ru/archive/SpecamPoTWebBrowser.html
Piter (2004-10-03 11:31:00) [3]Ну с загрузкой думаю проблем-то никаких... надо просто сделать Navigate2 браузеру на нужную страницу.
Насчет сохранения странички:
var
vaIn, vaOut: Olevariant;
CmdTarget: IOleCommandTarget;
begin
if WebBrowser1.Document nil then
try
WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
if CmdTarget nil then
try
CmdTarget.Exec(PGUID(nil), OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);
finally
CmdTarget._Release;
end;
except end;
при этом все равно будет выведено окно сохранения, где пользователь должен выбрать имя файла, тип сохранения...
Можно задать файо по умолчанию определив vaIn - но без окошка все равно не обойтись, имхо... не может так WB сделать...
P.S. Была тема - http://www.delphimaster.ru/cgi-bin/forum.pl?id=1087974793&n=4- не знаю доступна ли она сейчас...
| |
