Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Можно с помощью TWebBrowser сохранить текущую страницу в MHT?   Найти похожие ветки 

 
N.H.   (2004-10-03 03:52) [0]

Здравствуйте. Подскажите, можно ли с помощью компонента TWebBrowser (или какой-нибудь его альтернативы) сохранить текущую страницу в формате MHTML?

Задача:
Пользователь задаёт веб-браузеру адрес страницы. Браузер открывает эту страницу, а потом, когда она полностью загрузится, ему надо будет сохранить эту страницу в формате MHTML.

Если это невозможно, подскажите, альтернативные пути решения задачи. Большое спасибо.


 
Piter ©   (2004-10-03 11:31) [1]

Ну с загрузкой думаю проблем-то никаких... надо просто сделать 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://delphimaster.net/view/6-1087974793/ - не знаю доступна ли она сейчас...


 
Piter ©   (2004-10-03 11:32) [2]

Тем уже удалена - вот ее архив:

http://piter007.newmail.ru/archive/SpecamPoTWebBrowser.html


 
N.H.   (2004-10-05 00:07) [3]


> Piter ©   (03.10.04 11:32) [2]

Да, спасибо, я почитал статью (http://delphi.about.com/library/weekly/aa062904a.htm) Теперь страница у меня сохраняется в MHT,но без картинок :( Хотя я все делаю правильно.



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

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
1-1101599957
Bobby Digital
2004-11-28 02:59
2004.12.12
Install


3-1099469147
Sergy Ivanec
2004-11-03 11:05
2004.12.12
Interbase, проблема с большим числом записей


8-1095352608
UserUserov
2004-09-16 20:36
2004.12.12
Графика на консоли в Delphi


8-1094539043
serg128
2004-09-07 10:37
2004.12.12
Как зацыклить TMediaPlayer?


4-1098992943
Khabibulin
2004-10-28 23:49
2004.12.12
BIOS