Главная страница
    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.078 c
8-1095060575
KliffLevy
2004-09-13 11:29
2004.12.12
Вырезать из jpeg в отдельный файл


1-1101383806
Ego
2004-11-25 14:56
2004.12.12
Начало работы приложения.


14-1100871323
antonn
2004-11-19 16:35
2004.12.12
Корпуса...


14-1101197595
RainKM
2004-11-23 11:13
2004.12.12
samsung c-200


6-1095166307
Ryoko
2004-09-14 16:51
2004.12.12
Подключение к IRC через Indy IdIRC





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский