Обработка скачивает фото по введённой публичной ссылке, в выбранный каталог. Называет его "ФайлСОблака.jpg".
Не является чем то оригинальным!
Не является единственно-верным и доступным способом!
Работает по принципу парсинга страницы.
Ничего более адекватного нагуглить/придумать не удалось, если есть другие методы, например как скачивание с ЯД буду рад с ними ознакомится и выкинуть этот метод в помойку)))))
А пока пусть будет. Может кому поможет)))))
ОСНОВНАЯ ПРОЦЕДУРА
Процедура СкачатьФайлСОблакаНаДиск(СоединениеHTTP,СсылкаНаФото,ПутьКартинки,Статус="")
МайлРу = "cloud.mail.ru";
если найти(нрег(СсылкаНаФото),МайлРу)>0 тогда // майл ру
Запрос = сред(СсылкаНаФото,найти(нрег(СсылкаНаФото),МайлРу)+СтрДлина(МайлРу));
ВебЗапрос = Новый HTTPЗапрос(Запрос);
Попытка
Результат = СоединениеHTTP.Получить(ВебЗапрос);
Исключение
Сообщить("Ошибка соединения");
ВызватьИсключение;
КонецПопытки;
Ответ = Результат.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8);
Чтение = Новый ЧтениеHTML;
Чтение.УстановитьСтроку(Ответ);
ОбъектыDOM = Новый ПостроительDOM;
Страница = ОбъектыDOM.Прочитать(Чтение);
Гиперссылка = "";
Узлы = Страница.ПолучитьЭлементыПоИмени("link");
для каждого СтрУзлы из Узлы цикл
если СтрУзлы.отношение = "image_src" тогда
Гиперссылка = СтрУзлы.Гиперссылка;
Прервать;
Конецесли;
КонецЦикла;
//Когда нет фото по ссылке там картинка майл.ру
Если Гиперссылка = "https://img.imgsmail.ru/cloud/img/share.jpg" Тогда
Гиперссылка ="";
КонецЕсли;
//копируем
если Гиперссылка <> "" тогда
КопироватьФайл(Гиперссылка,ПутьКартинки);
Иначе
Статус = "не нашли фото по ссылке: "+СсылкаНаФото;
Сообщить(Статус);
Конецесли;
Иначе
Статус = "некорректная ссылка на фото: "+СсылкаНаФото;
Сообщить(Статус);
КонецЕсли;
КонецПроцедуры;
В качестве соединения передаем
ssl = Новый ЗащищенноеСоединениеOpenSSL(Новый СертификатКлиентаWindows(СпособВыбораСертификатаWindows.Выбирать),Новый СертификатыУдостоверяющихЦентровWindows());
СоединениеHTTP = Новый HTTPСоединение(
"cloud.mail.ru",,,,,
5, // таймаут в секундах
ssl // защищенное HTTPS соединение
);
Пример обработки прикрепил)
Тестировал на платформе 8.3.13,1865.
Вступайте в нашу телеграмм-группу Инфостарт
