Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtForms\v7plus.dll")=0 Тогда Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда //глКомментарий("Не удалось обнаружить компоненту V7Plus.dll!",0,,"!"); СтатусВозврата(0); КонецЕсли; КонецЕсли; Попытка Соединение = СоздатьОбъект("Addin.V7HttpReader") ; Исключение //глКомментарий("Не удалось создать объект Addin.V7HttpReader!",0,,"!"); СтатусВозврата(0); КонецПопытки; Стр=""; Попытка Соединение.ПолучитьКакСтроку("http://1cua.ucoz.ru/1c/url.my", Стр); Исключение КонецПопытки; Список = СоздатьОбъект("СписокЗначений"); Список.ИзСтрокиСРазделителями(Стр);
|