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Запрос ***** " надо вынести вне цикла и менять только текст, по быстрому писал. Но вряд ли дело в этом.
|
|