Страница: 1 |
Нужно сохранять html страницы из интернета на диск вместе с картинками. На этом сайте есть пример кода (см. ниже) Он хорошо работает, но картинок конечно не сохраняет. Мне нужно самому искать в сохраненном html теги указывающие на картинки и скачивать картинки отдельно в созданную директорию с таким же названием? Скажите пожалуйста, я прав? или можно как-то чуть проще это сделать? Спасибо. Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function Private Sub Command1_Click() DownloadFile "http://sharig.webzone.ru", "c:\sharig_webzone_ru.htm" End Sub
Да, мне пришла в голову такая же идея. Др. способов вроде не могу с ходу назвать. Страница: 1 |
Вопрос: сохранить html страницу с картинками
Добавлено: 14.10.03 13:21
Автор вопроса: mosh
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
Morpheus
Вопросов: 224
Ответов: 3777
Web-сайт:
Профиль | | #1
Добавлено: 14.10.03 14:57
Номер ответа: 2
Автор ответа:
Gogic
Вопросов: 38
Ответов: 121
Профиль | | #2
Добавлено: 14.10.03 15:01
По другому нельзя, потому что картинки - это отдельные файлы.
Номер ответа: 3
Автор ответа:
AlexBor
Вопросов: 1
Ответов: 1
Web-сайт:
Профиль | | #3
Добавлено: 16.10.03 22:18
У меня была проблема частично прекликающаяся с Вашей. Я сохранял HTML -ный текст в БД. Проблема была как раз с картинками. Чтобы не таскать каталоги за программой я их тоже записывал в БД, но возникала проблема их отображения, т.к. в тексте HTML вместо тэга IMG нужно было дать ссылку на картинку из БД. Но как это сделать мне никто подсказать не смог ни на одном форуме. Тогда я при выборе определенного HTML файла считывал его и искал тэги IMG. Потом из базы клал картинки во временный каталог и подставлял в src путь где находится приложение. Процедуры поиска и замены у меня сохранились. Если есть надобность могу поделиться.