Главная страница
    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.46 MB
Время: 0.041 c
1-1101515434
Sirakuz
2004-11-27 03:30
2004.12.12
Delphi 8: TBytes ??


1-1101642989
Frozzen
2004-11-28 14:56
2004.12.12
Копирование свойств объекта


3-1100521163
Sir John
2004-11-15 15:19
2004.12.12
экспорт из SyBase


14-1101020589
Sour
2004-11-21 10:03
2004.12.12
SMTP и POP3 серверы


1-1101810588
aleksey
2004-11-30 13:29
2004.12.12
Как печатать текст в ячейках StringGrid заглавными буквами ?





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