Скачивание картинок по указанному адресу

@vasilisaegorovn · Регистрация: 26.11.2016

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

Доброго времени суток.
Столкнулась с такой проблемой:
Используя API функцию URLDownloadToFile макрос проходится по колонке с адресами и скачивает картинки в папку.
На момент написания всё было прекрасно. Более 600 картинок успешно скачались и открывались. Но на след день при запуске этого же макроса из той же самой таблицы картинки скачались, но не открылись. Пишет: "Средству просмотра не удалось открыть, поскольку файл повреждён или слишком велик" При этом если раньше картинка весила 2740кб, то сегодня она скачивается и весит 143кб, ну и не открывается в добавок.
Перекидываю на другой компьютер. Запускаю. И на другом компьютере всё снова отлично скачивается и открывается. Радуюсь. Грешу на старый ноут. На след день и со вторым компьютером происходит тоже самое и картинки снова не открываются.

Возможно кто-то сталкивался и сможет разъяснить в чём может быть дело...

Добавлено через 7 минут
Более того, если руками открыть любую из ссылок и сохранить картинку, т.е. руками сделать то, что делает API функция - результат будет тот же. Картинка скачается, но не откроется.
https://www.fedomo.ru/media/ca... a7c2c.jpeg

I can · 28.04.2022, 22:14

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

кто-то сталкивался

Может перед загрузкой файла очищать кэш?

Добавлено через 2 минуты
Объявление АПИ функции

Visual Basic
1
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

В качестве параметра передаётся соответствующий урл.

@vasilisaegorovn · 28.04.2022, 23:04 **[ТС]**

Благодарю за отклик.
Попробовала. Не помогло(

I can · 29.04.2022, 08:19

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

Попробовала. Не помогло(

Не верю(с)

Тогда нужен файл.

Добавлено через 5 часов 44 минуты
Я вчера и сегодня проверял, всё чётко отрабатывает, всё открывается.

Но, не видя Ваш код, трудно сказать что-то конкретное.

Добавлено через 9 минут
Мой код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
 
Private Sub TryDownloadFile()
    Dim fn As String, url As String, fName As String
    
    url = "https://www.fedomo.ru/media/cache/sylius_shop_product_original/68/bc/6c19c26acdfe6f532227402a7c2c.jpeg"
    
    fName = "myPicture"
    
    fn = ThisWorkbook.Path & "\" & fName & Mid(url, InStrRev(url, "."))
    On Error Resume Next: Kill fn
    Call DeleteUrlCacheEntry(url)
    Call URLDownloadToFile(0&, url, fn, 16, 0&)
    If Dir(fn) <> "" Then MsgBox "OK" Else MsgBox "Error"
End Sub

Добавлено через 3 минуты

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

Средству просмотра

Возможно в вашем "средстве просмотра" и проблема. Попробуйте открыть другим приложением.

@vasilisaegorovn · 29.04.2022, 09:34 **[ТС]**

Прикрепляю файл.

I can · 29.04.2022, 09:56

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

Прикрепляю файл.

Три раза скачал, пока нормально всё скачивается и открывается.

Кстати, если открыть любой из файлов блокнотом, то в заголовке увидим что-то подобное - RIFF ..WEBPVP8 - то есть, это файлы в формате Webp, а его не каждое древнее "Средство просмотра" прожуёт. Дописывание расширения в виде .jpeg - это так себе костыли.

I can · 29.04.2022, 10:06

При ручном сохранении эти файлы также распознаются браузером как webp

@vasilisaegorovn · 29.04.2022, 12:47 **[ТС]**

Сообщение от I can

Три раза скачал, пока нормально всё скачивается и открывается.

Как бы это глупо не звучало, но попробуйте, пожалуйста, запустить завтра)
У меня тоже в первый день всё было отлично. И у коллеги тоже, а потом вот это вот всё....

Добавлено через 1 минуту

Сообщение от I can

Кстати, если открыть любой из файлов блокнотом, то в заголовке увидим что-то подобное - RIFF ..WEBPVP8 - то есть, это файлы в формате Webp, а его не каждое древнее "Средство просмотра" прожуёт.

А такое может быть, что один день оно его "прожевало", а на второй "подавилось"?

Добавлено через 48 секунд

Сообщение от I can

Дописывание расширения в виде .jpeg - это так себе

Учла.
Переписала, как у вас.
Благодарю

Добавлено через 4 минуты
I can, и всё таки, мне кажется, тут дело не в открытии... а в скачивании.
На сайте ничего не меняли. А в первый день, когда картинки качались, они весили раза в 3 больше, чем сейчас.
Вот сколько у вас весит скачанная картинка с именем "2.jpeg"?

I can · 29.04.2022, 13:55

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

попробуйте, пожалуйста, запустить завтра)

Завтра попробую.

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

Вот сколько у вас весит скачанная картинка с именем "2.jpeg"?

Вот все размеры

Скачивание картинок по указанному адресу

I can · 30.04.2022, 06:56

Сообщение от I can

Завтра попробую.

Сегодня

@vasilisaegorovn · 30.04.2022, 13:54 **[ТС]**

Спасибо)
А чем вы открываете файлы?

I can · 30.04.2022, 14:06

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

А чем вы открываете файлы?

Расширение jpeg у меня ассоциировано с приложением Фотографии(стандартное в Вин10)

I can · 30.04.2022, 14:32

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

они весили раза в 3 больше, чем сейчас.

Мне попадалось такое приложение (если не ошибаюсь ACDSee ), которое пережимает картинки без спроса, достаточно один раз открыть картинку в приложении и закрыть. Вот такие чудеса.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@vasilisaegorovn 2 / 2 / 0 Регистрация: 26.11.2016 Сообщений: 90

	Скачивание картинок по указанному адресу 28.04.2022, 17:14. Показов 850. Ответов 12 Метки нет (Все метки) Доброго времени суток. Столкнулась с такой проблемой: Используя API функцию URLDownloadToFile макрос проходится по колонке с адресами и скачивает картинки в папку. На момент написания всё было прекрасно. Более 600 картинок успешно скачались и открывались. Но на след день при запуске этого же макроса из той же самой таблицы картинки скачались, но не открылись. Пишет: "Средству просмотра не удалось открыть, поскольку файл повреждён или слишком велик" При этом если раньше картинка весила 2740кб, то сегодня она скачивается и весит 143кб, ну и не открывается в добавок. Перекидываю на другой компьютер. Запускаю. И на другом компьютере всё снова отлично скачивается и открывается. Радуюсь. Грешу на старый ноут. На след день и со вторым компьютером происходит тоже самое и картинки снова не открываются. Возможно кто-то сталкивался и сможет разъяснить в чём может быть дело... Добавлено через 7 минут Более того, если руками открыть любую из ссылок и сохранить картинку, т.е. руками сделать то, что делает API функция - результат будет тот же. Картинка скачается, но не откроется. https://www.fedomo.ru/media/ca... a7c2c.jpeg 0

@vasilisaegorovn 2 / 2 / 0 Регистрация: 26.11.2016 Сообщений: 90
	28.04.2022, 23:04 [ТС]
	Благодарю за отклик. Попробовала. Не помогло( 0

I can sleep 4930 / 4590 / 840 Регистрация: 13.04.2015 Сообщений: 9,740
	29.04.2022, 10:06
	При ручном сохранении эти файлы также распознаются браузером как webp Миниатюры 1

@vasilisaegorovn 2 / 2 / 0 Регистрация: 26.11.2016 Сообщений: 90
	30.04.2022, 13:54 [ТС]
	Спасибо) А чем вы открываете файлы? 0