Страница: 1 |
Ставишь курсор на картинку, нажимаешь правую кнолпку мыши и выбираешь пункт Save Picture as... Тогда напиши более подробно, по каким параметрам ты хочеш сохранять картинки? WebBrwser открывает ссылку вида http:\\www.site.ru\foto\0001.jpg, http:\\www.site.ru\foto\0002.jpg,http:\\www.site.ru\foto\0003.jpg и т.д. Надо эти картинки сохранить.... Могу предложить вызов окошка "Save as..." по нажатию кнопки. Если у тебя загружена страничка (хтмл), он автоматом предлагает расширение .хтмл, а если загружен рисунок (см. твой последний ответ), то расширение зависит от формата рисунка (jpg, bmp и т.д.). On Error Resume Next Если же тебе не хочется делать так много движений, тогда можешь использовать API функцию URLDownloadToFile. Ее я, правда, не использовал, но, я думаю, в инете можно найти ее описание и применение. Удачи. Страница: 1 |
Вопрос: web+pictures
Добавлено: 22.07.03 20:17
Автор вопроса: Matrix | Web-сайт:
Как сохранить картинку из интернет? Программа использует WebBrowser
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа:
sArutiun
ICQ: 153685354
Вопросов: 11
Ответов: 42
Профиль | | #1
Добавлено: 23.07.03 08:42
Номер ответа: 2
Автор ответа:
Calhoon
ICQ: 789764
Вопросов: 90
Ответов: 230
Web-сайт:
Профиль | | #2
Добавлено: 23.07.03 14:00
Сохранить как... Есть такая менюшка в контекстном меню...
Номер ответа: 3
Автор ответа:
Matrix
Вопросов: 34
Ответов: 62
Web-сайт:
Профиль | | #3
Добавлено: 23.07.03 14:24
Нет... Я имею ввиду програмно..
Номер ответа: 4
Автор ответа:
sArutiun
ICQ: 153685354
Вопросов: 11
Ответов: 42
Профиль | | #4
Добавлено: 23.07.03 16:25
Номер ответа: 5
Автор ответа:
Matrix
Вопросов: 34
Ответов: 62
Web-сайт:
Профиль | | #5
Добавлено: 23.07.03 18:26
Номер ответа: 6
Автор ответа:
sArutiun
ICQ: 153685354
Вопросов: 11
Ответов: 42
Профиль | | #6
Добавлено: 24.07.03 10:26
Dim eQuery As OLECMDF
eQuery = WebBrowser1.QueryStatusWB(OLECMDID_SAVEAS)
If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER, "", ""
Else
MsgBox "You must load page or picture before saving", vbCritical, "Error message"
End If
End If
Тут же ты можешь выбрать и каталог, куда сохранять.