Merge pull request #6 from 240596448/develop

Добавлены копирование, удаление сообщений; установка команд

Author: pallid

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

@@ -229,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", БезОповещения);
 	МассивВариантовОтвета = Новый Массив();
@@ -263,7 +283,7 @@
 //
 // Параметры:
 //  Опрос  - Структура - То, что вернулось от НовыйОпрос()
-//  ВариантОтвета  - Строка - Текст варианта ответа, длинна 1-100 символов
+//  ВариантОтвета  - Строка - Текст варианта ответа, длина 1-100 символов
 //
 // Возвращаемое значение:
 //   Структура   - Структура, готовая для передачи в ОтправитьОпрос() в классе ТелеграмБот
@@ -274,4 +294,24 @@
 
 	Возврат Опрос;
 
+КонецФункции
+
+// Команда бота (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";
+	
+	Возврат ОтправитьДанные(Сообщение, Команда);
+
+КонецФункции
+
 #КонецОбласти
 
 #Область СлужебныеПроцедурыИФункции
@@ -157,8 +218,8 @@
 Функция СделатьХук(Суффикс)
 
 	Команда = "setWebhook";
-	Ресурс = "/bot" + ТокенАвторизации + "/" + Команда + "?url=" + Суффикс; 
-	Запрос = Новый HTTPЗапрос(Ресурс);
+	Ресурс = "/bot{TOKEN}/" + Команда + "?url=" + Суффикс; 
+	Запрос = Новый HTTPЗапрос(ЗаменитьТокен(Ресурс));
 
 	Попытка
 		Ответ = Соединение.Получить(Запрос);