Имя: Пароль:
1C
 
Управляемое приложение, код выполняется, но форма виснет
0 GreatOne
 
08.01.16
15:13
Сделал пустую базу в 8.3.6.2449, создал одну обработку, есть код:


Сообщение = Новый СообщениеПользователю();

    Для каждого Пользователь Из СписокЗаявок Цикл
        ОбработкаПрерыванияПользователя();
        HTTPЗапрос = Новый HTTPЗапрос("/method/friends.delete?user_id=" + Пользователь + "&v=5.42&access_token=" + Токен);
        HTTPСоединение = Новый HTTPСоединение("api.vk.com",,,,,, Новый ЗащищенноеСоединениеOpenSSL);
        HTTPОтвет = HTTPСоединение.Получить(HTTPЗапрос);
        Ответ = HTTPОтвет.ПолучитьТелоКакСтроку();
        Если СтрНайти(Ответ, "out_request_deleted") > 0 Тогда
            СтруктураИмяФамилия = ПолучитьИнформациюОПользователе(Пользователь);
            Сообщение.Текст = "Исходящая заявка для " + """" + СтруктураИмяФамилия.Имя + " " + СтруктураИмяФамилия.Фамилия + """" + " удалена.";
            Сообщение.Сообщить();
        ИначеЕсли СтрНайти(Ответ, "in_request_deleted") > 0 Тогда            
            СтруктураИмяФамилия = ПолучитьИнформациюОПользователе(Пользователь);
            Сообщение.Текст = "Всходящая заявка " + """" + СтруктураИмяФамилия.Имя + " " + СтруктураИмяФамилия.Фамилия + """" + " удалена.";
            Сообщение.Сообщить();    
        Иначе        
            СтруктураИмяФамилия = ПолучитьИнформациюОПользователе(Пользователь);
            Сообщение.Текст = "Для " + """" + СтруктураИмяФамилия.Имя + " " + СтруктураИмяФамилия.Фамилия + """" + "что-то пошло не так.
            |    Код ответа: " + Ответ;
            Сообщение.Сообщить();    
        КонецЕсли;
        
    КонецЦикла;



Код работает, видно в отладчике, но при нажатии на кнопку форма приложения виснет. Элементарно ведь должно быть. Что не так?

Да, "HTTPЗапрос = Новый HTTPЗапрос ***** " надо вынести вне цикла и менять только текст, по быстрому писал. Но вряд ли дело в этом.
1 GreatOne
 
08.01.16
15:14
Обработка прерывания тоже не работает
2 GreatOne
 
08.01.16
15:17
Или это на сервере надо выполнять?
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.