сохранение картинки с сайта [решено]
☑
0
Шахтер_с
29.05.17
✎
10:11
Есть такая проблема. Необходимо сохранять картинки с сайта по ссылке
Код:
АдресСайта = АдресКартинкиСайт;
РезПоиска = Найти(АдресСайта,";);
АдресСайта = Прав(АдресСайта,СтрДлина(АдресСайта)- 10-РезПоиска);
РезПоиска = Найти(АдресСайта,"/");
АдресКартинки = Прав(АдресСайта,СтрДлина(АдресСайта)-РезПоиска);
АдресСайта = Лев(АдресСайта,РезПоиска-1);
Соединение = Новый HTTPСоединение(АдресСайта);
ИмяФайлаСохранения = ПолучитьИмяВременногоФайла("jpg");
Соединение.Получить(АдресКартинки,ИмяФайлаСохранения);
Произвольный адрес картинки:
сохраняет на ура
страничка с нужного мне сайта нет. Сохраняет в файл размером 1 кБ,
без возможности его открыть, не удается прочитать файл, файл не является правильным точечным рисунком.
Хотя если открыть страничку- картинка, и позволяет вручную её сохранить. Как добиться сохранения картинки с моего ресурса
1
Lexey_
29.05.17
✎
10:25
(0) "www" не удаляй из имени сервера
2
Шахтер_с
29.05.17
✎
10:42
Во блин. Спасибо!!!
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс