|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Нужна помощь, интернет
Доброго времени суток!
Такой вопрос: каким образом можно сохранить себе на компьютер WEB-страницу со всем содержимым, т.е. все рисунки, скрипты и тд.? Архив *.mht тоже принимается, но желательно все файлы по отдельности. Google и Yandex не помог. Сохранение исходника страницу через IdHTTP и парсинга кода не предлагать - много работы и проблем, а времени мало. Заранее спасибо! |
#2
|
||||
|
||||
Почему меня игнорируют на этом форуме?
|
#3
|
||||
|
||||
На этом сайте был исходник "скачивателя" сайтов. Поищи лучше.
Помогаю за Спасибо |
#4
|
||||
|
||||
Спасибо, исходник я нашел. Сказать честно, это не то, что я искал. Тем более исходник вылетает с ошибкой Access Violation. Есть еще варианты?
|
#5
|
|||
|
|||
TWebBrowser и у него посмотреть какие методы есть???
Например, здесь: http://delphi.about.com/od/twebbrows...ave-as-mht.htm И вообще, гуглом будем пользоваться перед тем как задавать вопрос? |
#6
|
||||
|
||||
Есть еще варианты?
Последний раз редактировалось GriLab, 27.04.2011 в 08:54. |
#7
|
||||
|
||||
Цитата:
Imikle, на данный момент это единственная страница, на которой есть сохранение в MHT и HTML. Я эту страницу как раз вчера и сохранил себе на компьютер. Есть еще варианты, без использования TWebBrowser? |
#8
|
||||
|
||||
Imikle, я испытал этот исходник. Ожидания не оправдались: сохраняется только текст (изображения, скрипты не сохраняются).
|
#9
|
||||
|
||||
во, картинки вроде сохраняет
Код:
uses CDO_TLB, ADODB_TLB; procedure TForm1.Button1Click(Sender: TObject); var Msg: IMessage; Conf: IConfiguration; Stream: _Stream; URL : widestring; begin URL := 'http://www.delphisources.ru'; Msg := CoMessage.Create; Conf := CoConfiguration.Create; try Msg.Configuration := Conf; Msg.CreateMHTMLBody(URL, 0, '', '') ; Stream := Msg.GetStream; Stream.SaveToFile('C:\delphisources.mht', adSaveCreateOverWrite) ; finally Msg := nil; Conf := nil; Stream := nil; end; end; ЗЫЖ CDO_TLB в windows\system32\cdosys.dll Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#10
|
||||
|
||||
Aristarh Dark, уже этот код предлагали выше (Imikle). Не работает. Сохраняет текст страницы и все...
|
#11
|
||||
|
||||
Я именно на этом коде сохранил и картинки были.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#12
|
||||
|
||||
А у меня ничего не сохраняет, кроме пустых файлов формата JPG и текста страницы.
|