Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

Можно с помощью 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.054 c
4-1098871748
olevacho
2004-10-27 14:09
2004.12.12
запуск команд под другой учетной записью


4-1099035890
Erik1
2004-10-29 11:44
2004.12.12
Где найти модуль для модальных диалогов?


6-1096874386
vadimlg
2004-10-04 11:19
2004.12.12
Как через ICQClient передать файл?


1-1101533719
Baks
2004-11-27 08:35
2004.12.12
XPManifest


1-1101401049
Руслана
2004-11-25 19:44
2004.12.12
Почему BlockWrite(SaveFile, D, 4) вызывает предупреждение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский