Webbrowser, как сохранить сразу несколько страниц?

@borockov · Регистрация: 05.11.2012

Студворк — интернет-сервис помощи студентам

Привет всем! Такой вопрос, у меня стоит webbrowser в качестве вкладок прицеплен pagecontrol, к примеру у меня открыто 10 вкладок, как сохранить все страницы нажатием одной кнопки? Спасибо!

@vampire6666 · 23.11.2012, 18:55

borockov, а вы как делаете?попробуйте на первой вкладке создать webbrowser1 потом на другой вкладке webbrowser2 и т д а потом сохраняйте)

@borockov · 23.11.2012, 19:01 **[ТС]**

У меня так уже сделано, т.е стоит pagecontrol с 20 вкладками, на каждой вкладке расположен webbrowser, с этим понятно. Вы предлагаете сохранять примерно так?
http://delphiexpert.ru/view_lesson.php?id=28 только в цикле? Конечно тоже вариант, но хотелось бы как то, что бы процесс сохранения происходил без диалоговых окон, т.е нажал на кнопку, и тут же в заранее заданную директорию, сохраняются страницы.

@vampire6666 · 23.11.2012, 19:25

borockov, а такой код чем не пойдет?

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.btn1Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
begin
 
  HTMLDocument := Wb1.Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('c:\SavedFile.html'), System.True);
end;

Добавлено через 26 секунд
никаких окошек не вылазееет))

Добавлено через 5 минут
кстати там подключить mshtml)

@borockov · 23.11.2012, 19:25 **[ТС]**

Сообщение от vampire6666

borockov, а такой код чем не пойдет?

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.btn1Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
begin
 
  HTMLDocument := Wb1.Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('c:\SavedFile.html'), System.True);
end;

Добавлено через 26 секунд
никаких окошек не вылазееет))

Примерно такой код я и искал, круто)) но тут выдаёт ошибку "[Error] Unit1.pas(1364): Undeclared identifier: 'IHTMLDocument2'" Где надо объявить IHTMLDocument2?

@vampire6666 · 23.11.2012, 19:27

кстати там подключить mshtml)

Добавлено через 26 секунд
в uses ...

@borockov · 23.11.2012, 19:30 **[ТС]**

Аааа всё всё, разобрался=))) спасибо =)) забыл модуль подключить" mshtml"

@vampire6666 · 23.11.2012, 19:31

не за что)

@borockov · 24.11.2012, 15:59 **[ТС]**

Блин, весь вечер не могу сделать так что бы выше приведенный код в цикле сохранял все открытые страницы, кто может помочь?

Добавлено через 17 часов 0 минут
Как я уже говорил, вкладки у меня реализованы таким образом: поставил pagecontrol, создал 20 табов и на каждый ташит прицепил по компоненту webbrowser, в принципе всё работает как надо, но вопрос с сохранением всё же не могу решить=(
Таким образом я могу сохранить текущую страницу.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button14Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
  j:integer;
begin
 
  HTMLDocument :=   Webbrowser1.Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('D:\SavedFile.html'), System.True);
end;
end.

Пытался сохранить все страницы разом как то так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button14Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
  j:integer;
begin
  HTMLDocument :=TWebbrowser(pagecontrol1.pages[j].Controls[0]).Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True);
end;
end;
end;
end.

Но естественно ничего у меня не вышло=( выдаёт что то вроде "list index out of bounds (-куча цифр) " вотъ.
Помогите пожалуйста, сохранить в цикле.

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@borockov 4 / 4 / 3 Регистрация: 05.11.2012 Сообщений: 245

	Webbrowser, как сохранить сразу несколько страниц? 23.11.2012, 18:17. Показов 2893. Ответов 8 Метки нет (Все метки) Привет всем! Такой вопрос, у меня стоит webbrowser в качестве вкладок прицеплен pagecontrol, к примеру у меня открыто 10 вкладок, как сохранить все страницы нажатием одной кнопки? Спасибо! 0

@vampire6666 143 / 143 / 39 Регистрация: 17.08.2012 Сообщений: 411
	23.11.2012, 18:55
	borockov, а вы как делаете?попробуйте на первой вкладке создать webbrowser1 потом на другой вкладке webbrowser2 и т д а потом сохраняйте) 0

@borockov 4 / 4 / 3 Регистрация: 05.11.2012 Сообщений: 245
	23.11.2012, 19:01 [ТС]
	У меня так уже сделано, т.е стоит pagecontrol с 20 вкладками, на каждой вкладке расположен webbrowser, с этим понятно. Вы предлагаете сохранять примерно так? http://delphiexpert.ru/view_lesson.php?id=28 только в цикле? Конечно тоже вариант, но хотелось бы как то, что бы процесс сохранения происходил без диалоговых окон, т.е нажал на кнопку, и тут же в заранее заданную директорию, сохраняются страницы. 0

@vampire6666 143 / 143 / 39 Регистрация: 17.08.2012 Сообщений: 411
	23.11.2012, 19:27
	кстати там подключить mshtml) Добавлено через 26 секунд в uses ... 0

@borockov 4 / 4 / 3 Регистрация: 05.11.2012 Сообщений: 245
	23.11.2012, 19:30 [ТС]
	Аааа всё всё, разобрался=))) спасибо =)) забыл модуль подключить" mshtml" 0

@vampire6666 143 / 143 / 39 Регистрация: 17.08.2012 Сообщений: 411
	23.11.2012, 19:31
	не за что) 0

Опции темы