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