Есть картинка:
http://2010.mir-otkrytok.com/new/images/0-02-110%20A.jpg
Нужно ее себе сохранить.

Пишу:
ipадрес = "2010.mir-otkrytok.com";
мСоединение = Новый HTTPСоединение(ipадрес);
Попытка
мСоединение.Получить("new/images/0-02-110%20A.jpg","C:\111.jpg");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

хвастаешь?

(1) Прошу прощения, кусов не вставил. Не получается так. Не знаю почему не работает.
Подскажите что не так делаю?

(0) вот так делал я. обработка ЗагрузкаКартинкиПоСсылке

Процедура КнопкаВыполнитьНажатие(Кнопка)
   мАдрес=СтрЗаменить(Адрес, "http://", "");
   поз=0;
   Для й=0 По СтрДлина(мАдрес) Цикл
       Если Сред(мАдрес, й, 1)="/" Тогда
           поз=й;
       КонецЕсли;
   КонецЦикла;
   
   ИмяФайлаТам=Сред(мАдрес, поз+1);
   Ресурс=Лев(мАдрес, Найти(мАдрес, "/")-1);
   мАдрес=Сред(мАдрес, Найти(мАдрес, "/")+1);
   Попытка
       Если Константы.ИспользоватьПрокси.Получить() Тогда
           Прокси=Новый ИнтернетПрокси;
           Прокси.Пользователь=Константы.ЛогинПрокси.Получить();
           Прокси.Пароль=Константы.ПарольПрокси.Получить();
           http=Новый HTTPСоединение(Ресурс, , , , Прокси);
       Иначе
           http=Новый HTTPСоединение(Ресурс);
       КонецЕсли;
   Исключение
       Предупреждение("Ошибка соединения"+Символы.ПС+ОписаниеОшибки());
       Возврат;
   КонецПопытки;
   
   ИмяФайлаТут=ПолучитьИмяВременногоФайла("jpg");
   Попытка
       http.Получить(мАдрес, ИмяФайлаТут);
   Исключение
       Предупреждение("Ошибка получения файла"+Символы.ПС+ОписаниеОшибки());
   КонецПопытки;
   
   ф=Новый Файл(ИмяФайлаТут);
   ВыбраннаяКартинка=Новый Картинка(ИмяФайлаТут);        
   спр=Справочники.Картинки.СоздатьЭлемент();
   спр.Наименование=ПолучитьУникальноеНаименование(Лев(ИмяФайлаТам, СтрДлина(ИмяФайлаТам)-4));
   спр.Родитель=Справочники.Картинки.ИзИнтернета;
   спр.Комментарий=Адрес;
   спр.Картинка=Новый ХранилищеЗначения(ВыбраннаяКартинка);
   спр.Записать();
КонецПроцедуры

(2) Нахрен ты в обработке написал Сообщить(ОписаниеОшибки()); ?

(4) чо? всю жизнь так делал, что я пропустил?

(3) Спасибо подставил в процедуру свой значения, заработало.

(6) на здоровье. вспомнил по ходу, что в этом месте получилось создать пустой функциональный цикл в 1С

Функция ПолучитьУникальноеНаименование(Наим)
   спр=Справочники.Картинки.НайтиПоНаименованию(Наим);
   Если спр.Пустая() Тогда
       Возврат Наим;
   КонецЕсли;
   ПолучитьНовоеНаименование(Наим);
   Пока НЕ Справочники.Картинки.НайтиПоНаименованию(ПолучитьНовоеНаименование(Наим)).Пустая() Цикл
   КонецЦикла;
   Возврат НовоеНаименование;
КонецФункции

(6) Теперь и мой код заработал, че за глюк был я не понял.
Всем спасибо, тему можно закрывать.

(7) Спасибо.

(8) мСоединение = Новый HTTPСоединение(ipадрес); у тебя без проверки был как минимум

(5) Это, я к тому, что 1С ведь ему не написала в сообщении "Не знаю почему не работает."
Если сообщение об ошибке есть, то мог бы и сюда его написать.

(11) ну это же миста - форум телепатов ;)

(11) Поправлю.

Картинки-картинками, но нужно не забывать про поле Referrer - некоторые сервера без этого поля вместо картинки выдают html-страницу, со вставленной в неё картинкой.
Так что надо проверять в ответе тип содержимого в заголовке.
Кроме того, один раз загрузив картинку мы инициализируем cache, а в следующий раз картинка уже грузится из него, и никто referrer не проверяет.