Merge remote-tracking branch 'origin/develop'

Author: pallid

src/ТелеграмАПИ.os

@@ -129,6 +129,14 @@
 
 КонецФункции
 
+Функция УдалитьКлавиатуру(Сообщение) Экспорт
+	
+	Удаление = Новый Структура("remove_keyboard", Истина);
+
+	Сообщение.Вставить("reply_markup", Удаление);
+	
+КонецФункции
+
 Процедура ДобавитьКлавиатуру(Сообщение, Клавиатура) Экспорт
 
 	Сообщение.Вставить("reply_markup", Клавиатура);
@@ -180,6 +188,12 @@
 
 КонецПроцедуры
 
+Процедура ОтветитьНаСообщение(Сообщение, message_id) Экспорт
+
+	Сообщение.Вставить("reply_to_message_id", message_id);
+	
+КонецПроцедуры
+
 Функция НовыйПринудительныйОтвет(Избирательно = Ложь) Экспорт
 
 	СоответствиеВнутреннее  = Новый Соответствие;
@@ -215,25 +229,45 @@
 
 КонецФункции
 
+// Формирует данные для создания удаляемого сообщения 
+// (Метод deleteMessage)
+//
+// Параметры:
+//  ЧатИД        - Число - id чата, где находится сообщение
+//  СообщениеИД  - Число - id удаляемого сообщения
+//
+// Возвращаемое значение:
+//   Структура - для передачи в УдалитьСообщение() в классе ТелеграмБот
+//
+Функция УдаляемоеСообщение(ЧатИД, СообщениеИД) Экспорт
+
+	Структура = Новый Структура;
+	Структура.Вставить("chat_id", ЧатИД);
+	Структура.Вставить("message_id", СообщениеИД);
+
+	Возврат Структура;
+
+КонецФункции
+
 // Создает каркас для нового опроса (не добавляет варианты ответа!)
 // (Метод sendPoll)
 //
 // Параметры:
 //  ПолучательИД  - Число - chat_id получателя
-//  ТекстВопроса  - Строка - Текст вопроса, длинна 1-255 символов
-//  Анонимныей  - Булево - Если Ложь, то показывается какой вариант ответа выбрал участник опроса
+//  ТекстВопроса  - Строка - Текст вопроса, длина 1-255 символов
+//  Анонимный  - Булево - Если Ложь, то показывается какой вариант ответа выбрал участник опроса
 //  ВозможенМножественныйОтвет  - Булево - Если Истина, то участник может проголосовать за несколько вариантов
 //  БезОповещения  - Булево - Если Истина, то сообщение будет переслано без оповещения получателя
 //
 // Возвращаемое значение:
 //   Структура   - Структура, которую дополнительно нужно передать в функцию ДобавитьВариантОтветаНаОпрос()
 //
-Функция НовыйОпрос(ПолучательИД, ТекстВопроса, Анонимныей = Истина, ВозможенМножественныйОтвет = Ложь, БезОповещения = Ложь) Экспорт
+Функция НовыйОпрос(ПолучательИД, ТекстВопроса, Анонимный = Истина, ВозможенМножественныйОтвет = Ложь, БезОповещения = Ложь) Экспорт
 
 	Опрос = Новый Соответствие;
 	Опрос.Вставить("chat_id", ПолучательИД);
 	Опрос.Вставить("question", ТекстВопроса);
-	Опрос.Вставить("is_anonymous", Анонимныей);
+	Опрос.Вставить("is_anonymous", Анонимный);
 	Опрос.Вставить("allows_multiple_answers", ВозможенМножественныйОтвет);
 	Опрос.Вставить("disable_notification", БезОповещения);
 	МассивВариантовОтвета = Новый Массив();
@@ -243,13 +277,37 @@
 
 КонецФункции
 
+// Создает каркас для нового опроса квиз (не добавляет варианты ответа!)
+// (Метод sendPoll)
+//
+// Параметры:
+//  ПолучательИД  - Число - chat_id получателя
+//  ТекстВопроса  - Строка - Текст вопроса, длинна 1-255 символов
+//  Анонимный  - Булево - Если Ложь, то показывается какой вариант ответа выбрал участник опроса
+//  БезОповещения  - Булево - Если Истина, то сообщение будет переслано без оповещения получателя
+//
+// Возвращаемое значение:
+//   Структура   - Структура, которую дополнительно нужно передать в функцию ДобавитьВариантОтветаНаОпрос(),
+//					по умолчанию признак правильного ответа будет являться первый добавленный ответ,
+//					в случае когда требуется явное указание правильного ответа Структуру необходимо передать
+//					дополнительно в функцию ДобавитьПравильныйОтветКвиз()			
+//
+Функция НовыйОпросКвиз(ПолучательИД, ТекстВопроса, Анонимный = Истина, БезОповещения = Ложь) Экспорт
+
+	Опрос = НовыйОпрос(ПолучательИД, ТекстВопроса, Анонимный, , БезОповещения);
+	Опрос.Вставить("type", "quiz");
+
+	Возврат Опрос;
+
+КонецФункции
+
 // Добавляет варианты ответа на опрос 
 // Необходимо поочередно добавить от 2 до 10 вариантов
 // (Метод sendPoll)
 //
 // Параметры:
 //  Опрос  - Структура - То, что вернулось от НовыйОпрос()
-//  ВариантОтвета  - Строка - Текст варианта ответа, длинна 1-100 символов
+//  ВариантОтвета  - Строка - Текст варианта ответа, длина 1-100 символов
 //
 // Возвращаемое значение:
 //   Структура   - Структура, готовая для передачи в ОтправитьОпрос() в классе ТелеграмБот
@@ -260,4 +318,46 @@
 
 	Возврат Опрос;
 
-КонецФункции
+КонецФункции
+
+// Добавляет правильный вариант ответ на опрос 
+// Правильный ответ может быть только один
+// (Метод sendPoll)
+//
+// Параметры:
+//  Опрос  - Структура - То, что вернулось от НовыйОпрос()
+//  ПравильныйОтвет  - Строка - Текст правильного ответа, длина 1-100 символов
+//
+// Возвращаемое значение:
+//   Структура   - Структура, готовая для передачи в ОтправитьОпрос() в классе ТелеграмБот
+//
+Функция ДобавитьПравильныйОтветКвиз(Опрос, ПравильныйОтвет) Экспорт
+
+	МассивВариантовОтвета = Опрос["options"];
+
+	МассивВариантовОтвета.Добавить(ПравильныйОтвет);
+	Опрос.Вставить("correct_option_id", МассивВариантовОтвета.ВГраница());
+
+	Возврат Опрос;
+
+КонецФункции
+
+// Команда бота (BotCommand), элемент массива устанавливаемых команд
+// (Метод setMyCommand)
+//
+// Параметры:
+//  Имя        - Строка - Имя команды, длина 1-32 символа
+//  Описание   - Строка - Описание команды, длина 3-256 символов
+//
+// Возвращаемое значение:
+//   Структура - команда, добавляемая в массив команд
+//
+Функция КомандаБота(Имя, Описание) Экспорт
+	
+	Структура = Новый Структура;
+	Структура.Вставить("command", Имя);
+	Структура.Вставить("description", Описание);
+	
+	Возврат Структура;
+	
+КонецФункции

src/ТелеграмБот.os

@@ -55,14 +55,16 @@
 
 Функция ОтправитьДанные(Сообщение, Команда) Экспорт
 
-	Ресурс = "/bot" + ТокенАвторизации + "/" + Команда; 
-	Запрос = Новый HTTPЗапрос(Ресурс);
+	Ресурс = "/bot{TOKEN}/" + Команда; 
+	Запрос = Новый HTTPЗапрос(ЗаменитьТокен(Ресурс));
 	Запрос.Заголовки = ПолучитьЗаголовки();
 
 	ТекстТелаЗапроса = ПарсерJSON.ЗаписатьJSON(Сообщение);
 	КодированнаяСтрока = РаскодироватьСтроку(ТекстТелаЗапроса, СпособКодированияСтроки.КодировкаURL);
 	Запрос.УстановитьТелоИзСтроки(КодированнаяСтрока);
 
+	Лог.Отладка(КодированнаяСтрока);
+
 	Попытка
 		Ответ = Соединение.ОтправитьДляОбработки(Запрос);
 	Исключение
@@ -109,13 +111,72 @@
 
 КонецФункции
 
+Функция СкопироватьСообщение(Сообщение) Экспорт
+
+	Команда = "copyMessage";
+	Возврат ОтправитьДанные(Сообщение, Команда);
+
+КонецФункции
+
+Функция УдалитьСообщение(Сообщение) Экспорт
+
+	Команда = "deleteMessage";
+	Возврат ОтправитьДанные(Сообщение, Команда);
+
+КонецФункции
+
 Функция ОтправитьОпрос(Сообщение) Экспорт
 
 	Команда = "sendPoll";
 	Возврат ОтправитьДанные(Сообщение, Команда);
 
 КонецФункции
 
+Функция УстановитьКоманды(МассивКомандБота) Экспорт
+
+	Параметры = Новый Структура("commands", МассивКомандБота);
+	
+	Команда = "setMyCommands";
+
+	Возврат ОтправитьДанные(Параметры, Команда);
+	
+КонецФункции
+
+Функция ЗакрепитьСообщение(ЧатИД, СообщениеИД, ОтключитьОповещение=Ложь) Экспорт
+
+	Сообщение = Новый Структура();
+	Сообщение.Вставить("chat_id", ЧатИД);
+	Сообщение.Вставить("message_id", СообщениеИД);
+	Сообщение.Вставить("disable_notification", ОтключитьОповещение);
+
+	Команда = "pinChatMessage";
+	Возврат ОтправитьДанные(Сообщение, Команда);
+
+КонецФункции
+
+Функция ОткрепитьСообщение(ЧатИД, СообщениеИД=Неопределено) Экспорт
+
+	Сообщение = Новый Структура("chat_id", ЧатИД);
+	Если СообщениеИД <> Неопределено Тогда
+		Сообщение.Вставить("message_id", СообщениеИД);
+	КонецЕсли;
+	
+	Команда = "unpinChatMessage";
+
+	Возврат ОтправитьДанные(Сообщение, Команда);
+
+КонецФункции
+
+Функция ОткрепитьВсеСообщения(ЧатИД) Экспорт
+
+	Сообщение = Новый Структура("chat_id", ЧатИД);
+
+	Команда = "unpinAllChatMessages";
+	
+	Возврат ОтправитьДанные(Сообщение, Команда);
+
+КонецФункции
+
 #КонецОбласти
 
 #Область СлужебныеПроцедурыИФункции
@@ -127,15 +188,20 @@
 		ТелоОтвета = "";
 	КонецЕсли;
 
-	Лог.Отладка("Код состояния: %1", Ответ.КодСостояния);
-	Лог.Отладка("Тело ответа: 
-		|%1", ТелоОтвета);
-
 	Результат = Неопределено;
 	Если ЗначениеЗаполнено(ТелоОтвета) Тогда
 		Результат = ПарсерJSON.ПрочитатьJSON(ТелоОтвета);
 	КонецЕсли;
 
+	Если Результат["ok"] Тогда
+		Лог.Отладка("Код состояния: %1", Ответ.КодСостояния);
+		Лог.Отладка("Тело ответа: 
+			|%1", ТелоОтвета);
+	Иначе
+		Лог.Ошибка("Код состояния: %1", Ответ.КодСостояния);
+		Лог.Ошибка("Описание: %1", Результат["description"]);
+	КонецЕсли;
+
 	Возврат Результат;
 
 КонецФункции
@@ -152,8 +218,8 @@
 Функция СделатьХук(Суффикс)
 
 	Команда = "setWebhook";
-	Ресурс = "/bot" + ТокенАвторизации + "/" + Команда + "?url=" + Суффикс; 
-	Запрос = Новый HTTPЗапрос(Ресурс);
+	Ресурс = "/bot{TOKEN}/" + Команда + "?url=" + Суффикс; 
+	Запрос = Новый HTTPЗапрос(ЗаменитьТокен(Ресурс));
 
 	Попытка
 		Ответ = Соединение.Получить(Запрос);
@@ -166,6 +232,52 @@
 
 КонецФункции
 
+Функция ОБоте() Экспорт
+	
+	Команда = "getMe";
+
+	Возврат ОтправитьДанные(Неопределено, Команда);
+	
+КонецФункции
+
+Функция ПолучитьОписаниеФайла(file_id) Экспорт
+	
+	Команда = "getFile";
+	Параметры = Новый Структура("file_id", file_id);
+
+	Возврат ОтправитьДанные(Параметры, Команда);
+	
+КонецФункции
+
+// Передавать или ID, или готовый путь
+Функция ПолучитьФайл(file_id="",file_path="") Экспорт
+	
+	Если НЕ ЗначениеЗаполнено(file_path) Тогда
+		ОписаниеФайла = ПолучитьОписаниеФайла(file_id);
+		file_path = ОписаниеФайла["result"]["file_path"];
+	КонецЕсли;
+
+	// https://api.telegram.org/file/bot<token>/<file_path>
+	Ресурс = "/file/bot{TOKEN}/" + file_path;
+
+	Запрос = Новый HTTPЗапрос(ЗаменитьТокен(Ресурс));
+
+	Попытка
+		Ответ = Соединение.Получить(Запрос);
+	Исключение
+		Лог.Ошибка("Не удалось выполнить запрос" + Ресурс);
+		Возврат Неопределено;
+	КонецПопытки;	
+	
+	Возврат Ответ.ПолучитьТелоКакДвоичныеДанные();
+	
+КонецФункции
+
+Функция ЗаменитьТокен(Шаблон)
+	Результат = СтрЗаменить(Шаблон, "{TOKEN}", ТокенАвторизации);
+	Возврат Результат;
+КонецФункции
+
 #КонецОбласти
 
 ///////////////////////////////////////////////////////////////////////////////