mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2025-04-15 11:56:36 +02:00
Форматирование и деффекты SC
This commit is contained in:
Anton
parent
32196e8ed9
commit
9fcf1a71bc
@ -1,28 +1,28 @@
|
||||
//MIT License
|
||||
// MIT License
|
||||
|
||||
//Copyright (c) 2023 Anton Tsitavets
|
||||
// Copyright (c) 2023 Anton Tsitavets
|
||||
|
||||
//Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
//of this software and associated documentation files (the "Software"), to deal
|
||||
//in the Software without restriction, including without limitation the rights
|
||||
//to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
//copies of the Software, and to permit persons to whom the Software is
|
||||
//furnished to do so, subject to the following conditions:
|
||||
// Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
// of this software and associated documentation files (the "Software"), to deal
|
||||
// in the Software without restriction, including without limitation the rights
|
||||
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
// copies of the Software, and to permit persons to whom the Software is
|
||||
// furnished to do so, subject to the following conditions:
|
||||
|
||||
//The above copyright notice and this permission notice shall be included in all
|
||||
//copies or substantial portions of the Software.
|
||||
// The above copyright notice and this permission notice shall be included in all
|
||||
// copies or substantial portions of the Software.
|
||||
|
||||
//THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
//IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
//FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
//AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
//LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
//OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
//SOFTWARE.
|
||||
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
// SOFTWARE.
|
||||
|
||||
//https://github.com/Bayselonarrend/OpenIntegrations
|
||||
//Если в не знаете с чего начать, то стоит найти метод ПолучитьСтандартныеПараметры()
|
||||
//и почитать комментарии
|
||||
// https://github.com/Bayselonarrend/OpenIntegrations
|
||||
// Если в не знаете с чего начать, то стоит найти метод ПолучитьСтандартныеПараметры()
|
||||
// и почитать комментарии
|
||||
|
||||
#Область ПрограммныйИнтерфейс
|
||||
|
||||
@ -92,10 +92,11 @@
|
||||
Функция ОбновитьТокен(Знач Параметры = "") Экспорт
|
||||
|
||||
Параметры_ = ПолучитьСтандартныеПараметры(Параметры);
|
||||
Refresh = "refresh_token";
|
||||
|
||||
ПараметрыЗапроса = Новый Структура;
|
||||
ПараметрыЗапроса.Вставить("refresh_token", Параметры_["refresh_token"]);
|
||||
ПараметрыЗапроса.Вставить("grant_type" , "refresh_token");
|
||||
ПараметрыЗапроса.Вставить(Refresh , Параметры_[Refresh]);
|
||||
ПараметрыЗапроса.Вставить("grant_type" , Refresh);
|
||||
ПараметрыЗапроса.Вставить("client_id" , Параметры_["client_id"]);
|
||||
|
||||
Ответ = OPI_Инструменты.Post("https://api.twitter.com/2/oauth2/token"
|
||||
@ -119,9 +120,9 @@
|
||||
Код = Запрос.ПараметрыЗапроса["code"];
|
||||
ОтветТокен = ПолучитьТокен(Код);
|
||||
|
||||
//Предпочтительное хранение токенов
|
||||
//Константы.TwitterRefresh.Установить(ОтветТокен["refresh_token"]);
|
||||
//Константы.TwitterToken.Установить(ОтветТокен["access_token"]);
|
||||
// Предпочтительное хранение токенов
|
||||
// Константы.TwitterRefresh.Установить(ОтветТокен["refresh_token"]);
|
||||
// Константы.TwitterToken.Установить(ОтветТокен["access_token"]);
|
||||
|
||||
Возврат ОтветТокен;
|
||||
|
||||
@ -143,6 +144,7 @@
|
||||
// Возвращаемое значение:
|
||||
// Строка, Произвольный, Неопределено, ДвоичныеДанные, HTTPОтвет - Создать произвольный твит
|
||||
//@skip-check method-too-many-params
|
||||
// BSLLS:NumberOfOptionalParams-off
|
||||
Функция СоздатьПроизвольныйТвит(Знач Текст = ""
|
||||
, Знач МассивМедиа = ""
|
||||
, Знач МассивВариантовОпроса = ""
|
||||
@ -151,8 +153,9 @@
|
||||
|
||||
Параметры_ = ПолучитьСтандартныеПараметры(Параметры);
|
||||
URL = "https://api.twitter.com/2/tweets";
|
||||
Массив = "Массив";
|
||||
|
||||
Если Не ТипЗнч(МассивМедиа) = Тип("Массив") Тогда
|
||||
Если Не ТипЗнч(МассивМедиа) = Тип(Массив) Тогда
|
||||
МассивМедиа_ = Новый Массив;
|
||||
|
||||
Если ЗначениеЗаполнено(МассивМедиа) Тогда
|
||||
@ -168,17 +171,17 @@
|
||||
Поля.Вставить("text", Текст);
|
||||
КонецЕсли;
|
||||
|
||||
Если ТипЗнч(МассивВариантовОпроса) = Тип("Массив") И ЗначениеЗаполнено(ДлительностьОпроса) Тогда
|
||||
Если ТипЗнч(МассивВариантовОпроса) = Тип(Массив) И ЗначениеЗаполнено(ДлительностьОпроса) Тогда
|
||||
|
||||
ДлительностьОпроса = Число(ДлительностьОпроса);
|
||||
|
||||
Если МассивВариантовОпроса.Количество()> 0 Тогда
|
||||
Если МассивВариантовОпроса.Количество() > 0 Тогда
|
||||
Поля.Вставить("poll"
|
||||
, Новый Структура("options,duration_minutes", МассивВариантовОпроса, ДлительностьОпроса));
|
||||
КонецЕсли;
|
||||
КонецЕсли;
|
||||
|
||||
Если ТипЗнч(МассивМедиа) = Тип("Массив") Тогда
|
||||
Если ТипЗнч(МассивМедиа) = Тип(Массив) Тогда
|
||||
Если МассивМедиа.Количество() > 0 Тогда
|
||||
Поля.Вставить("media", Новый Структура("media_ids", МассивМедиа));
|
||||
КонецЕсли;
|
||||
@ -190,6 +193,7 @@
|
||||
Возврат Ответ;
|
||||
|
||||
КонецФункции
|
||||
// BSLLS:NumberOfOptionalParams-on
|
||||
|
||||
// Создать текстовый твит.
|
||||
//
|
||||
@ -287,7 +291,6 @@
|
||||
МассивФайлов = МассивФайлов_;
|
||||
КонецЕсли;
|
||||
|
||||
|
||||
Для Каждого ФайлОтправки Из МассивФайлов Цикл
|
||||
|
||||
Если Не ТипЗнч(ФайлОтправки) = Тип("ДвоичныеДанные") Тогда
|
||||
@ -313,6 +316,11 @@
|
||||
|
||||
Функция ЗагрузитьМедиафайл(Знач Файл, Знач Тип, Знач Параметры)
|
||||
|
||||
Command = "command";
|
||||
ВидЗапроса = "POST";
|
||||
Единица = 1024;
|
||||
Количество = 4;
|
||||
|
||||
СоответствиеMIME = Новый Соответствие;
|
||||
СоответствиеMIME.Вставить("tweet_image", "image/jpeg");
|
||||
СоответствиеMIME.Вставить("tweet_video", "video/mp4");
|
||||
@ -332,22 +340,22 @@
|
||||
Поля.Вставить("media_data" , Base64Строка(Файл));
|
||||
Поля.Вставить("media_category", Тип);
|
||||
|
||||
Авторизация = СоздатьЗаголовокАвторизацииV1(Параметры_, Поля, "POST", URL);
|
||||
Авторизация = СоздатьЗаголовокАвторизацииV1(Параметры_, Поля, ВидЗапроса, URL);
|
||||
|
||||
Ответ = OPI_Инструменты.Post(URL, Поля, Авторизация, Ложь);
|
||||
|
||||
Иначе
|
||||
|
||||
ЧтениеДанных = Новый ЧтениеДанных(Файл);
|
||||
МассивЧтения = ЧтениеДанных.РазделитьНаЧастиПо(4*1024*1024);
|
||||
МассивЧтения = ЧтениеДанных.РазделитьНаЧастиПо(Количество * Единица * Единица);
|
||||
|
||||
Поля = Новый Структура;
|
||||
Поля.Вставить("command" , "INIT");
|
||||
Поля.Вставить(Command , "INIT");
|
||||
Поля.Вставить("total_bytes" , OPI_Инструменты.ЧислоВСтроку(Размер));
|
||||
Поля.Вставить("media_type" , СоответствиеMIME.Получить(Тип));
|
||||
Поля.Вставить("media_category" , Тип);
|
||||
|
||||
Авторизация = СоздатьЗаголовокАвторизацииV1(Параметры_, Поля, "POST", URL);
|
||||
Авторизация = СоздатьЗаголовокАвторизацииV1(Параметры_, Поля, ВидЗапроса, URL);
|
||||
|
||||
ОтветИнициализации = OPI_Инструменты.Post(URL, Поля, Авторизация, Ложь);
|
||||
KeyИнициализации = ОтветИнициализации["media_key"];
|
||||
@ -359,12 +367,12 @@
|
||||
ДвоичныеЧасти = Часть.ПолучитьДвоичныеДанные();
|
||||
|
||||
Поля = Новый Структура;
|
||||
Поля.Вставить("command" , "APPEND");
|
||||
Поля.Вставить(Command , "APPEND");
|
||||
Поля.Вставить("media_key" , KeyИнициализации);
|
||||
Поля.Вставить("segment_index" , OPI_Инструменты.ЧислоВСтроку(Счетчик));
|
||||
Поля.Вставить("media" , ДвоичныеЧасти);
|
||||
|
||||
Авторизация = СоздатьЗаголовокАвторизацииV1(Параметры_, Новый Структура, "POST", URL);
|
||||
Авторизация = СоздатьЗаголовокАвторизацииV1(Параметры_, Новый Структура, ВидЗапроса, URL);
|
||||
|
||||
OPI_Инструменты.PostMultipart(URL, Поля, , , Авторизация);
|
||||
|
||||
@ -372,17 +380,17 @@
|
||||
КонецЦикла;
|
||||
|
||||
Поля = Новый Структура;
|
||||
Поля.Вставить("command" , "FINALIZE");
|
||||
Поля.Вставить("media_id" , IDИнициализации);
|
||||
Поля.Вставить(Command , "FINALIZE");
|
||||
Поля.Вставить("media_id", IDИнициализации);
|
||||
|
||||
Авторизация = СоздатьЗаголовокАвторизацииV1(Параметры_, Поля, "POST", URL);
|
||||
Авторизация = СоздатьЗаголовокАвторизацииV1(Параметры_, Поля, ВидЗапроса, URL);
|
||||
|
||||
Ответ = OPI_Инструменты.Post(URL, Поля, Авторизация, Ложь);
|
||||
СтатусОбработки = Ответ["processing_info"]["state"];
|
||||
Поля = Новый Структура;
|
||||
|
||||
Поля.Вставить("command" , "STATUS");
|
||||
Поля.Вставить("media_id" , IDИнициализации);
|
||||
Поля.Вставить(Command , "STATUS");
|
||||
Поля.Вставить("media_id", IDИнициализации);
|
||||
|
||||
Пока Строка(СтатусОбработки) = "pending" Или Строка(СтатусОбработки) = "in_progress" Цикл
|
||||
|
||||
@ -404,59 +412,57 @@
|
||||
|
||||
Функция ПолучитьСтандартныеПараметры(Знач Параметры = "")
|
||||
|
||||
//Здесь собрано определение данных, необходимых для работы.
|
||||
//Для Twitter это довольно значительный набор, что обсуловлено наличием сразу 2-х API,
|
||||
//которые, при этом, созданы не для разныз задач, но просто являются версиями друг друга.
|
||||
//Актуальной версией API является v2 и она требует получения временных токенов. Несмотря на то,
|
||||
//что Twitter настаивает на использовании этой актуальной версии, они как-то умудрились не перенести
|
||||
//механизм загрузки файлов и некоторые другие из старой версии - v1.1. Поэтому что-то нужно делать
|
||||
//на версии 1.1, а что-то на 2: вплоть до того что они убрали возможность постить твиты из v1.1,
|
||||
//но только через нее в твит можно добавить картинку. При этом способы авторизации и токены у них разные
|
||||
// Здесь собрано определение данных, необходимых для работы.
|
||||
// Для Twitter это довольно значительный набор, что обсуловлено наличием сразу 2-х API,
|
||||
// которые, при этом, созданы не для разныз задач, но просто являются версиями друг друга.
|
||||
// Актуальной версией API является v2 и она требует получения временных токенов. Несмотря на то,
|
||||
// что Twitter настаивает на использовании этой актуальной версии, они как-то умудрились не перенести
|
||||
// механизм загрузки файлов и некоторые другие из старой версии - v1.1. Поэтому что-то нужно делать
|
||||
// на версии 1.1, а что-то на 2: вплоть до того что они убрали возможность постить твиты из v1.1,
|
||||
// но только через нее в твит можно добавить картинку. При этом способы авторизации и токены у них разные
|
||||
|
||||
//Мировая гигокорпорация Илона Маска, кстати, напоминаю ;)
|
||||
// Мировая гигокорпорация Илона Маска, кстати, напоминаю ;)
|
||||
|
||||
//P.S Далее часто упоминается "страница настроек Twitter Developer" - это
|
||||
//https://developer.twitter.com/en/portal/dashboard и выбор конкретного проекта из списка (значек c ключем)
|
||||
// P.S Далее часто упоминается "страница настроек Twitter Developer" - это
|
||||
// https://developer.twitter.com/en/portal/dashboard и выбор конкретного проекта из списка (значек c ключем)
|
||||
|
||||
Параметры_ = Новый Соответствие;
|
||||
|
||||
Разрешения = "tweet.read tweet.write tweet.moderate.write users.read "
|
||||
+ "follows.read follows.write offline.access space.read mute.read "
|
||||
+ "mute.write like.read like.write list.read list.write block.read "
|
||||
+ "block.write bookmark.read bookmark.write";
|
||||
|
||||
// Данные для API v2
|
||||
|
||||
//Данные для API v2
|
||||
|
||||
//redirect_uri - URL вашего http-сервиса (или другого обработчика запросов) для авторизации
|
||||
//scope - набор разрешений для получаемого ключа. Может быть любой, но offline.access обязателен
|
||||
//client_id - Из OAuth 2.0 Client ID and Client Secret страницы настроек Twitter Developer
|
||||
//client_secret - Из OAuth 2.0 Client ID and Client Secret страницы настроек Twitter Developer
|
||||
//access_token - ПолучитьСсылкуАвторизации() -> Браузер -> http-запрос с code придет на адрес redirect_uri -> ПолучитьТокен(code)
|
||||
//refresh_token - Приходит вместе с access_token и используется для его обновления (время жизни access_token - 2 часа).
|
||||
// Обновление происходит методом ОбновитьТокен с новыми access_token и refresh_token. При следующем обновлении
|
||||
// нужно использовать уже новый refresh_token, так что захардкодить не получится (access_token тоже не получится)
|
||||
// redirect_uri - URL вашего http-сервиса (или другого обработчика запросов) для авторизации
|
||||
// scope - набор разрешений для получаемого ключа. Может быть любой, но offline.access обязателен
|
||||
// client_id - Из OAuth 2.0 Client ID and Client Secret страницы настроек Twitter Developer
|
||||
// client_secret - Из OAuth 2.0 Client ID and Client Secret страницы настроек Twitter Developer
|
||||
// access_token - ПолучитьСсылкуАвторизации() -> Браузер -> code придет на redirect_uri -> ПолучитьТокен(code)
|
||||
// refresh_token - Приходит вместе с access_token и используется для его обновления (время жизни access_token - 2 ч)
|
||||
// Обновление происходит методом ОбновитьТокен с новыми access_token и refresh_token.
|
||||
// При следующем обновлении нужно использовать уже новый refresh_token, так что захардкодить
|
||||
// не получится (access_token тоже не получится)
|
||||
|
||||
// |--> ОбновитьТокен() ->|access_token --> Используется в т-нии 2-х часов для запросов
|
||||
// | |refresh_token --|
|
||||
// |--------[через 2 ч.]-------------------|
|
||||
|
||||
// Данные для API v1.1
|
||||
|
||||
//Данные для API v1.1
|
||||
// oauth_token - из Authentication Tokens -> Access Token and Secret страницы настроек Twitter Developer
|
||||
// oauth_token_secret - из Authentication Tokens -> Access Token and Secret страницы настроек Twitter Developer
|
||||
// oauth_consumer_key - из Consumer Keys -> Access Token and Secret страницы настроек Twitter Developer
|
||||
// oauth_consumer_secret - из Consumer Keys -> Access Token and Secret страницы настроек Twitter Developer
|
||||
|
||||
//oauth_token - из Authentication Tokens -> Access Token and Secret страницы настроек Twitter Developer
|
||||
//oauth_token_secret - из Authentication Tokens -> Access Token and Secret страницы настроек Twitter Developer
|
||||
//oauth_consumer_key - из Consumer Keys -> Access Token and Secret страницы настроек Twitter Developer
|
||||
//oauth_consumer_secret - из Consumer Keys -> Access Token and Secret страницы настроек Twitter Developer
|
||||
|
||||
//Эти токены обновлять не надо
|
||||
// Эти токены обновлять не надо
|
||||
|
||||
Параметры_.Вставить("redirect_uri" , "");
|
||||
Параметры_.Вставить("scope" , Разрешения);
|
||||
Параметры_.Вставить("client_id" , "");
|
||||
Параметры_.Вставить("client_secret" , "");
|
||||
Параметры_.Вставить("access_token" , ""); //Должно быть нечто вроде Константы.TwitterToken.Получить()
|
||||
Параметры_.Вставить("refresh_token" , ""); //Должно быть нечто вроде Константы.TwitterRefresh.Получить()
|
||||
Параметры_.Вставить("access_token" , ""); // Должно быть нечто вроде Константы.TwitterToken.Получить()
|
||||
Параметры_.Вставить("refresh_token" , ""); // Должно быть нечто вроде Константы.TwitterRefresh.Получить()
|
||||
Параметры_.Вставить("oauth_token" , "");
|
||||
Параметры_.Вставить("oauth_token_secret" , "");
|
||||
Параметры_.Вставить("oauth_consumer_key" , "");
|
||||
@ -479,6 +485,8 @@
|
||||
ВерсияАпи = "1.0";
|
||||
СтрокаСигнатуры = "";
|
||||
Подпись = "";
|
||||
OCK = "oauth_consumer_key";
|
||||
OTK = "oauth_token";
|
||||
ТекущаяДатаUNIX = OPI_Инструменты.UNIXTime(ТекущаяДатаСеанса());
|
||||
ТекущаяДатаUNIX = OPI_Инструменты.ЧислоВСтроку(ТекущаяДатаUNIX);
|
||||
ТаблицаПараметров = Новый ТаблицаЗначений;
|
||||
@ -494,12 +502,12 @@
|
||||
КонецЦикла;
|
||||
|
||||
НоваяСтрока = ТаблицаПараметров.Добавить();
|
||||
НоваяСтрока.Ключ = "oauth_consumer_key";
|
||||
НоваяСтрока.Значение = Параметры["oauth_consumer_key"];
|
||||
НоваяСтрока.Ключ = OCK;
|
||||
НоваяСтрока.Значение = Параметры[OCK];
|
||||
|
||||
НоваяСтрока = ТаблицаПараметров.Добавить();
|
||||
НоваяСтрока.Ключ = "oauth_token";
|
||||
НоваяСтрока.Значение = Параметры["oauth_token"];
|
||||
НоваяСтрока.Ключ = OTK;
|
||||
НоваяСтрока.Значение = Параметры[OTK];
|
||||
|
||||
НоваяСтрока = ТаблицаПараметров.Добавить();
|
||||
НоваяСтрока.Ключ = "oauth_version";
|
||||
@ -547,7 +555,6 @@
|
||||
+ "&"
|
||||
+ КодироватьСтроку(Параметры["oauth_token_secret"], СпособКодированияСтроки.КодировкаURL);
|
||||
|
||||
|
||||
Сигнатура = OPI_Криптография.HMAC(ПолучитьДвоичныеДанныеИзСтроки(Подпись)
|
||||
, ПолучитьДвоичныеДанныеИзСтроки(СтрокаСигнатуры)
|
||||
, ХешФункция.SHA1
|
||||
@ -555,14 +562,15 @@
|
||||
|
||||
Сигнатура = КодироватьСтроку(Base64Строка(Сигнатура), СпособКодированияСтроки.КодировкаURL);
|
||||
|
||||
Разделитель = """,";
|
||||
ЗаголовокАвторизации = ЗаголовокАвторизации
|
||||
+ "OAuth "
|
||||
+ "oauth_consumer_key=""" + Параметры["oauth_consumer_key"] + ""","
|
||||
+ "oauth_token=""" + Параметры["oauth_token"] + ""","
|
||||
+ "oauth_signature_method=""" + МетодХэширования + ""","
|
||||
+ "oauth_timestamp=""" + ТекущаяДатаUNIX + ""","
|
||||
+ "oauth_nonce=""" + ТекущаяДатаUNIX + ""","
|
||||
+ "oauth_version=""" + ВерсияАпи + ""","
|
||||
+ "oauth_consumer_key=""" + Параметры[OCK] + Разделитель
|
||||
+ "oauth_token=""" + Параметры[OTK] + Разделитель
|
||||
+ "oauth_signature_method=""" + МетодХэширования + Разделитель
|
||||
+ "oauth_timestamp=""" + ТекущаяДатаUNIX + Разделитель
|
||||
+ "oauth_nonce=""" + ТекущаяДатаUNIX + Разделитель
|
||||
+ "oauth_version=""" + ВерсияАпи + Разделитель
|
||||
+ "oauth_signature=""" + Сигнатура;
|
||||
|
||||
СоответствиеЗаголовка = Новый Соответствие;
|
||||
@ -572,6 +580,7 @@
|
||||
|
||||
КонецФункции
|
||||
|
||||
// BSLLS:LatinAndCyrillicSymbolInWord-off
|
||||
Функция СоздатьЗаголовокАвторизацииV2(Знач Параметры)
|
||||
|
||||
СоответствиеВозврата = Новый Соответствие;
|
||||
@ -580,5 +589,6 @@
|
||||
Возврат СоответствиеВозврата;
|
||||
|
||||
КонецФункции
|
||||
// BSLLS:LatinAndCyrillicSymbolInWord-on
|
||||
|
||||
#КонецОбласти
|
||||
@ -1,24 +1,24 @@
|
||||
//MIT License
|
||||
// MIT License
|
||||
|
||||
//Copyright (c) 2023 Anton Tsitavets
|
||||
// Copyright (c) 2023 Anton Tsitavets
|
||||
|
||||
//Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
//of this software and associated documentation files (the "Software"), to deal
|
||||
//in the Software without restriction, including without limitation the rights
|
||||
//to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
//copies of the Software, and to permit persons to whom the Software is
|
||||
//furnished to do so, subject to the following conditions:
|
||||
// Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
// of this software and associated documentation files (the "Software"), to deal
|
||||
// in the Software without restriction, including without limitation the rights
|
||||
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
// copies of the Software, and to permit persons to whom the Software is
|
||||
// furnished to do so, subject to the following conditions:
|
||||
|
||||
//The above copyright notice and this permission notice shall be included in all
|
||||
//copies or substantial portions of the Software.
|
||||
// The above copyright notice and this permission notice shall be included in all
|
||||
// copies or substantial portions of the Software.
|
||||
|
||||
//THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
//IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
//FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
//AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
//LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
//OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
//SOFTWARE.
|
||||
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
// SOFTWARE.
|
||||
|
||||
//https://github.com/Bayselonarrend/OpenIntegrations
|
||||
//Если в не знаете с чего начать, то стоит найти метод ПолучитьСтандартныеПараметры()
|
||||
@ -38,7 +38,7 @@
|
||||
// Строка - URL, по которому необходимо перейти в браузере
|
||||
Функция СоздатьСсылкуПолученияТокена(Знач App_id) Экспорт
|
||||
|
||||
//access_token нужно будет забрать из параметра в строке адреса браузера
|
||||
// access_token нужно будет забрать из параметра в строке адреса браузера
|
||||
Возврат "https://oauth.vk.com/authorize?client_id=" + OPI_Инструменты.ЧислоВСтроку(App_id)
|
||||
+ "&scope=offline,wall,groups,photos,stats,stories,ads"
|
||||
+ "&v=5.131&response_type=token&redirect_uri=https://api.vk.com/blank.html";
|
||||
@ -68,6 +68,9 @@
|
||||
|
||||
Параметры_ = ПолучитьСтандартныеПараметры(Параметры);
|
||||
СтрокаВложений = "";
|
||||
Hash = "hash";
|
||||
Photo = "photo";
|
||||
Serv = "server";
|
||||
|
||||
Для Каждого КартинкаПоста Из МассивКартинок Цикл
|
||||
|
||||
@ -83,7 +86,6 @@
|
||||
ЗначениеКартинка = КартинкаПоста;
|
||||
КонецЕсли;
|
||||
|
||||
|
||||
Файлы.Вставить(КлючКартинка, ЗначениеКартинка);
|
||||
|
||||
Ответ = OPI_Инструменты.Get("api.vk.com/method/photos.getWallUploadServer", Параметры_);
|
||||
@ -92,20 +94,20 @@
|
||||
Параметры_.Вставить("upload_url", URL);
|
||||
|
||||
Ответ = OPI_Инструменты.PostMultipart(URL, Параметры_, Файлы);
|
||||
СерверФото = OPI_Инструменты.ЧислоВСтроку(Ответ["server"]);
|
||||
СерверФото = OPI_Инструменты.ЧислоВСтроку(Ответ[Serv]);
|
||||
|
||||
Параметры_.Вставить("hash" , Ответ["hash"]);
|
||||
Параметры_.Вставить("photo" , Ответ["photo"]);
|
||||
Параметры_.Вставить("server" , СерверФото);
|
||||
Параметры_.Вставить(Hash , Ответ[Hash]);
|
||||
Параметры_.Вставить(Photo , Ответ[Photo]);
|
||||
Параметры_.Вставить(Serv , СерверФото);
|
||||
|
||||
Ответ = OPI_Инструменты.Get("api.vk.com/method/photos.saveWallPhoto", Параметры_);
|
||||
ОтветСоответствие = Ответ.Получить("response")[0];
|
||||
|
||||
Параметры_.Удалить("hash");
|
||||
Параметры_.Удалить("photo");
|
||||
Параметры_.Удалить("server");
|
||||
Параметры_.Удалить(Hash);
|
||||
Параметры_.Удалить(Photo);
|
||||
Параметры_.Удалить(Serv);
|
||||
|
||||
ФотоID = "photo"
|
||||
ФотоID = Photo
|
||||
+ OPI_Инструменты.ЧислоВСтроку(ОтветСоответствие.Получить("owner_id"))
|
||||
+ "_"
|
||||
+ OPI_Инструменты.ЧислоВСтроку(ОтветСоответствие.Получить("id"));
|
||||
@ -160,7 +162,8 @@
|
||||
|
||||
Параметры_ = ПолучитьСтандартныеПараметры(Параметры);
|
||||
Ответ = OPI_Инструменты.Get("api.vk.com/method/polls.getPhotoUploadServer", Параметры_);
|
||||
URL = Ответ["response"]["upload_url"];
|
||||
Response = "response";
|
||||
URL = Ответ[Response]["upload_url"];
|
||||
IDФото = "";
|
||||
|
||||
Параметры_.Вставить("upload_url", URL);
|
||||
@ -185,7 +188,7 @@
|
||||
Параметры_.Вставить("photo" , Ответ["photo"]);
|
||||
|
||||
Ответ = OPI_Инструменты.Get("api.vk.com/method/polls.savePhoto", Параметры_);
|
||||
IDФото = Ответ.Получить("response")["id"];
|
||||
IDФото = Ответ.Получить(Response)["id"];
|
||||
|
||||
КонецЕсли;
|
||||
|
||||
@ -198,12 +201,12 @@
|
||||
Для Каждого Ответ Из МассивОтветов Цикл
|
||||
|
||||
Если Первый Тогда
|
||||
Первый = Ложь
|
||||
Первый = Ложь;
|
||||
Иначе
|
||||
Ответы = Ответы + ", ";
|
||||
КонецЕсли;
|
||||
|
||||
Ответы = Ответы + """"+ Ответ + """";
|
||||
Ответы = Ответы + """" + Ответ + """";
|
||||
|
||||
КонецЦикла;
|
||||
|
||||
@ -214,14 +217,13 @@
|
||||
Параметры_.Вставить("question" , Вопрос);
|
||||
|
||||
Опрос = OPI_Инструменты.Get("api.vk.com/method/polls.create", Параметры_);
|
||||
ОпросСоответствие = Опрос.Получить("response");
|
||||
ОпросСоответствие = Опрос.Получить(Response);
|
||||
|
||||
ОпросID = "poll"
|
||||
+ OPI_Инструменты.ЧислоВСтроку(ОпросСоответствие.Получить("owner_id"))
|
||||
+ "_"
|
||||
+ OPI_Инструменты.ЧислоВСтроку(ОпросСоответствие.Получить("id"));
|
||||
|
||||
|
||||
Параметры_.Вставить("attachments", ОпросID);
|
||||
|
||||
Ответ = OPI_Инструменты.Get("api.vk.com/method/wall.post", Параметры_);
|
||||
@ -283,7 +285,6 @@
|
||||
Путь = ПолучитьИмяВременногоФайла("jpeg");
|
||||
КонецЕсли;
|
||||
|
||||
|
||||
Файлы = Новый Соответствие;
|
||||
Файлы.Вставить(Путь, Картинка);
|
||||
|
||||
@ -325,7 +326,6 @@
|
||||
Путь = ПолучитьИмяВременногоФайла("jpeg");
|
||||
КонецЕсли;
|
||||
|
||||
|
||||
Файлы = Новый Соответствие;
|
||||
Файлы.Вставить(Путь, Картинка);
|
||||
|
||||
@ -464,9 +464,10 @@
|
||||
|
||||
Параметры_ = ПолучитьСтандартныеПараметры(Параметры);
|
||||
IDСтены = ?(ЗначениеЗаполнено(IDСтены), IDСтены, Параметры_["owner_id"]);
|
||||
ОбъектВК = "wall" + OPI_Инструменты.ЧислоВСтроку(IDСтены) + "_" + OPI_Инструменты.ЧислоВСтроку(IDПоста);
|
||||
|
||||
Параметры_.Вставить("type" , "post");
|
||||
Параметры_.Вставить("object" , "wall" + OPI_Инструменты.ЧислоВСтроку(IDСтены) + "_" + OPI_Инструменты.ЧислоВСтроку(IDПоста));
|
||||
Параметры_.Вставить("object" , ОбъектВК);
|
||||
Параметры_.Вставить("item_id" , OPI_Инструменты.ЧислоВСтроку(IDПоста));
|
||||
Параметры_.Вставить("owner_id" , OPI_Инструменты.ЧислоВСтроку(IDСтены));
|
||||
Параметры_.Вставить("from_group" , 0);
|
||||
@ -489,6 +490,7 @@
|
||||
// Возвращаемое значение:
|
||||
// ДвоичныеДанные, Неопределено, Произвольный - Ответ сервера ВК
|
||||
//@skip-check method-too-many-params
|
||||
// BSLLS:NumberOfOptionalParams-off
|
||||
Функция СделатьРепост(Знач IDПоста
|
||||
, Знач IDСтены = ""
|
||||
, Знач ЦелеваяСтена = ""
|
||||
@ -514,6 +516,7 @@
|
||||
Возврат Ответ;
|
||||
|
||||
КонецФункции
|
||||
// BSLLS:NumberOfOptionalParams-on
|
||||
|
||||
// Написать сообщение.
|
||||
//
|
||||
@ -565,7 +568,7 @@
|
||||
|
||||
Параметры_ = ПолучитьСтандартныеПараметры(Параметры);
|
||||
|
||||
Параметры_.Вставить("owner_id", OPI_Инструменты.ЧислоВСтроку(IDСтены));
|
||||
Параметры_.Вставить("owner_id" , OPI_Инструменты.ЧислоВСтроку(IDСтены));
|
||||
Параметры_.Вставить("from_group" , OPI_Инструменты.ЧислоВСтроку(Параметры_["group_id"]));
|
||||
Параметры_.Вставить("post_id" , OPI_Инструменты.ЧислоВСтроку(IDПоста));
|
||||
Параметры_.Вставить("message" , Текст);
|
||||
@ -615,8 +618,8 @@
|
||||
|
||||
Параметры_ = ПолучитьСтандартныеПараметры(Параметры);
|
||||
|
||||
ДатаНачала = Формат(ДатаНачала - Дата(1970,1,1,1,0,0), "ЧГ=0");
|
||||
ДатаОкончания = Формат(ДатаОкончания - дата(1970,1,1,1,0,0), "ЧГ=0");
|
||||
ДатаНачала = Формат(ДатаНачала - Дата(1970, 1, 1, 1, 0, 0), "ЧГ=0");
|
||||
ДатаОкончания = Формат(ДатаОкончания - дата(1970, 1, 1, 1, 0, 0), "ЧГ=0");
|
||||
|
||||
Параметры_.Вставить("timestamp_from" , ДатаНачала);
|
||||
Параметры_.Вставить("timestamp_to" , ДатаОкончания);
|
||||
@ -631,22 +634,23 @@
|
||||
// Получить статистику постов.
|
||||
//
|
||||
// Параметры:
|
||||
// МассивIDПостов - Массив из Строка,Число - Массив ID постов
|
||||
// МассивИДПостов - Массив из Строка,Число - Массив ID постов
|
||||
// Параметры - Структура из Строка - См.ПолучитьСтандартныеПараметры
|
||||
//
|
||||
// Возвращаемое значение:
|
||||
// Массив из Произвольный - Массив данных статистики по постам
|
||||
Функция ПолучитьСтатистикуПостов(Знач МассивIDПостов, Знач Параметры = "") Экспорт
|
||||
Функция ПолучитьСтатистикуПостов(Знач МассивИДПостов, Знач Параметры = "") Экспорт
|
||||
|
||||
Параметры_ = ПолучитьСтандартныеПараметры(Параметры);
|
||||
МассивОтветов = Новый Массив;
|
||||
МассивНабора = Новый Массив;
|
||||
МаксимумПостов = 30;
|
||||
|
||||
Для Каждого Пост Из МассивIDПостов Цикл
|
||||
Для Каждого Пост Из МассивИДПостов Цикл
|
||||
|
||||
МассивНабора.Добавить(OPI_Инструменты.ЧислоВСтроку(Пост));
|
||||
|
||||
Если МассивНабора.Количество() = 30 Тогда
|
||||
Если МассивНабора.Количество() = МаксимумПостов Тогда
|
||||
|
||||
СтрокаНомеров = СтрСоединить(МассивНабора, ",");
|
||||
Параметры_.Вставить("post_ids", СтрокаНомеров);
|
||||
@ -658,7 +662,8 @@
|
||||
МассивОтветов.Добавить(ЭлементСтатистики);
|
||||
КонецЦикла;
|
||||
|
||||
МассивНабора = Новый Массив
|
||||
МассивНабора = Новый Массив;
|
||||
|
||||
КонецЕсли;
|
||||
|
||||
КонецЦикла;
|
||||
@ -696,14 +701,16 @@
|
||||
Параметры_.Вставить("account_id", OPI_Инструменты.ЧислоВСтроку(IDКабинета));
|
||||
|
||||
МассивСтруктур = Новый Массив;
|
||||
ДатаСтарт = Формат(ТекущаяДатаСеанса() - Дата(1970, 1, 1, 1, 0, 0), "ЧГ=0");
|
||||
ДатаСтоп = Формат(ДобавитьМесяц(ТекущаяДатаСеанса(), 24) - Дата(1970, 1, 1, 1, 0, 0), "ЧГ=0");
|
||||
|
||||
СтруктураКампании = Новый Структура;
|
||||
СтруктураКампании.Вставить("type" , "promoted_posts");
|
||||
СтруктураКампании.Вставить("name" , Наименование);
|
||||
СтруктураКампании.Вставить("day_limit" , 0);
|
||||
СтруктураКампании.Вставить("all_limit" , 0);
|
||||
СтруктураКампании.Вставить("start_time" , Формат(ТекущаяДатаСеанса() - Дата(1970,1,1,1,0,0), "ЧГ=0"));
|
||||
СтруктураКампании.Вставить("stop_time" , Формат(ДобавитьМесяц(ТекущаяДатаСеанса(), 24) - Дата(1970,1,1,1,0,0), "ЧГ=0"));
|
||||
СтруктураКампании.Вставить("start_time" , ДатаСтарт);
|
||||
СтруктураКампании.Вставить("stop_time" , ДатаСтоп);
|
||||
СтруктураКампании.Вставить("status" , 1);
|
||||
|
||||
МассивСтруктур.Добавить(СтруктураКампании);
|
||||
@ -870,18 +877,18 @@
|
||||
|
||||
Функция ПолучитьСтандартныеПараметры(Знач Параметры = "")
|
||||
|
||||
//Здесь собрано определение данных для работы с VK API
|
||||
//Вы можете переопределять их, передавая в качестве параметра
|
||||
//Совпадающие поля будут перезаписаны с приоритетом параметра функции
|
||||
// Здесь собрано определение данных для работы с VK API
|
||||
// Вы можете переопределять их, передавая в качестве параметра
|
||||
// Совпадающие поля будут перезаписаны с приоритетом параметра функции
|
||||
|
||||
Параметры_ = Новый Структура;
|
||||
|
||||
//access_token - можно получить в браузере по URL из функции СоздатьСсылкуПолученияТокена()
|
||||
//from_group - действия будут выполняться от лица группы
|
||||
//owner_id - id группы с "-" в начале. Можно найти в настройках группы ВК или в ее URL, если не был
|
||||
// access_token - можно получить в браузере по URL из функции СоздатьСсылкуПолученияТокена()
|
||||
// from_group - действия будут выполняться от лица группы
|
||||
// owner_id - id группы с "-" в начале. Можно найти в настройках группы ВК или в ее URL, если не был
|
||||
// установлен свой
|
||||
//app_id - id приложения, которое необходимо создать в профиле на странице для разработчиков
|
||||
//group_id - owner_id, но без "-"
|
||||
// app_id - id приложения, которое необходимо создать в профиле на странице для разработчиков
|
||||
// group_id - owner_id, но без "-"
|
||||
|
||||
Параметры_.Вставить("access_token" , "");
|
||||
Параметры_.Вставить("from_group" , "1");
|
||||
|
||||
@ -1,26 +1,27 @@
|
||||
//MIT License
|
||||
// MIT License
|
||||
|
||||
//Copyright (c) 2023 Anton Tsitavets
|
||||
// Copyright (c) 2023 Anton Tsitavets
|
||||
|
||||
//Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
//of this software and associated documentation files (the "Software"), to deal
|
||||
//in the Software without restriction, including without limitation the rights
|
||||
//to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
//copies of the Software, and to permit persons to whom the Software is
|
||||
//furnished to do so, subject to the following conditions:
|
||||
// Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
// of this software and associated documentation files (the "Software"), to deal
|
||||
// in the Software without restriction, including without limitation the rights
|
||||
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
// copies of the Software, and to permit persons to whom the Software is
|
||||
// furnished to do so, subject to the following conditions:
|
||||
|
||||
//The above copyright notice and this permission notice shall be included in all
|
||||
//copies or substantial portions of the Software.
|
||||
// The above copyright notice and this permission notice shall be included in all
|
||||
// copies or substantial portions of the Software.
|
||||
|
||||
//THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
//IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
//FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
//AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
//LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
//OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
//SOFTWARE.
|
||||
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
// SOFTWARE.
|
||||
|
||||
// https://github.com/Bayselonarrend/OpenIntegrations
|
||||
|
||||
//https://github.com/Bayselonarrend/OpenIntegrations
|
||||
#Область ПрограммныйИнтерфейс
|
||||
|
||||
#Область НастройкиИИнформация
|
||||
@ -136,7 +137,11 @@
|
||||
//
|
||||
// Возвращаемое значение:
|
||||
// Произвольный, HTTPОтвет - Ответ сервера Viber
|
||||
Функция ОтправитьТекстовоеСообщение(Знач Токен, Знач Текст, Знач IDПользователя, Знач ОтправкаВКанал, Знач Клавиатура = "") Экспорт
|
||||
Функция ОтправитьТекстовоеСообщение(Знач Токен
|
||||
, Знач Текст
|
||||
, Знач IDПользователя
|
||||
, Знач ОтправкаВКанал
|
||||
, Знач Клавиатура = "") Экспорт
|
||||
|
||||
Возврат ОтправитьСообщение(Токен, "text", IDПользователя, ОтправкаВКанал, , Текст, Клавиатура);
|
||||
|
||||
@ -171,7 +176,12 @@
|
||||
//
|
||||
// Возвращаемое значение:
|
||||
// Произвольный, HTTPОтвет - Ответ сервера Viber
|
||||
Функция ОтправитьФайл(Знач Токен, Знач URL, Знач IDПользователя, Знач ОтправкаВКанал, Знач Расширение, Знач Размер = "") Экспорт
|
||||
Функция ОтправитьФайл(Знач Токен
|
||||
, Знач URL
|
||||
, Знач IDПользователя
|
||||
, Знач ОтправкаВКанал
|
||||
, Знач Расширение
|
||||
, Знач Размер = "") Экспорт
|
||||
|
||||
Если Не ЗначениеЗаполнено(Размер) Тогда
|
||||
|
||||
@ -207,7 +217,11 @@
|
||||
//
|
||||
// Возвращаемое значение:
|
||||
// Произвольный, HTTPОтвет - Ответ сервера Viber
|
||||
Функция ОтправитьКонтакт(Знач Токен, Знач ИмяКонтакта, Знач НомерТелефона, Знач IDПользователя, Знач ОтправкаВКанал) Экспорт
|
||||
Функция ОтправитьКонтакт(Знач Токен
|
||||
, Знач ИмяКонтакта
|
||||
, Знач НомерТелефона
|
||||
, Знач IDПользователя
|
||||
, Знач ОтправкаВКанал) Экспорт
|
||||
|
||||
СтруктураКонтакта = Новый Структура;
|
||||
СтруктураКонтакта.Вставить("name", ИмяКонтакта);
|
||||
|
||||
@ -1,25 +1,26 @@
|
||||
//MIT License
|
||||
// MIT License
|
||||
|
||||
//Copyright (c) 2023 Anton Tsitavets
|
||||
// Copyright (c) 2023 Anton Tsitavets
|
||||
|
||||
//Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
//of this software and associated documentation files (the "Software"), to deal
|
||||
//in the Software without restriction, including without limitation the rights
|
||||
//to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
//copies of the Software, and to permit persons to whom the Software is
|
||||
//furnished to do so, subject to the following conditions:
|
||||
// Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
// of this software and associated documentation files (the "Software"), to deal
|
||||
// in the Software without restriction, including without limitation the rights
|
||||
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
// copies of the Software, and to permit persons to whom the Software is
|
||||
// furnished to do so, subject to the following conditions:
|
||||
|
||||
//The above copyright notice and this permission notice shall be included in all
|
||||
//copies or substantial portions of the Software.
|
||||
// The above copyright notice and this permission notice shall be included in all
|
||||
// copies or substantial portions of the Software.
|
||||
|
||||
//THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
//IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
//FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
//AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
//LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
//OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
//SOFTWARE.
|
||||
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
// SOFTWARE.
|
||||
|
||||
// https://github.com/Bayselonarrend/OpenIntegrations
|
||||
#Область СлужебныйПрограммныйИнтерфейс
|
||||
|
||||
#Область HTTPМетоды
|
||||
@ -41,7 +42,7 @@
|
||||
КонецЕсли;
|
||||
|
||||
СтруктураURL = РазбитьURL(URL);
|
||||
Соединение = Новый HTTPСоединение(СтруктураURL["Сервер"], 443, , , , 300, Новый ЗащищенноеСоединениеOpenSSL());
|
||||
Соединение = Новый HTTPСоединение(СтруктураURL["Сервер"], 443, , , , 300, Новый ЗащищенноеСоединениеOpenSSL);
|
||||
Запрос = Новый HTTPЗапрос(СтруктураURL["Адрес"] + ПараметрыЗапросаВСтроку(Параметры), Заголовки);
|
||||
Ответ = Соединение.Получить(Запрос);
|
||||
|
||||
@ -57,11 +58,8 @@
|
||||
|
||||
// BSLLS:CognitiveComplexity-off
|
||||
|
||||
Функция PostMultipart(Знач URL
|
||||
, Знач Параметры
|
||||
, Знач Файлы = ""
|
||||
, Знач ТипКонтента = "image/jpeg"
|
||||
, Знач ДопЗаголовки = "") Экспорт
|
||||
Функция PostMultipart(Знач URL, Знач Параметры, Знач Файлы = "", Знач ТипКонтента = "image/jpeg",
|
||||
Знач ДопЗаголовки = "") Экспорт
|
||||
|
||||
Если Не ЗначениеЗаполнено(Параметры) Тогда
|
||||
Параметры = Новый Структура;
|
||||
@ -71,14 +69,16 @@
|
||||
Файлы = Новый Соответствие;
|
||||
КонецЕсли;
|
||||
|
||||
Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");
|
||||
ЗаменаТочки = "___";
|
||||
GZip = "gzip";
|
||||
Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор), "-", "");
|
||||
СтруктураURL = РазбитьURL(URL);
|
||||
|
||||
Заголовки = Новый Соответствие();
|
||||
Заголовки.Вставить("Content-Type" , "multipart/form-data; boundary=" + Boundary);
|
||||
Заголовки.Вставить("Accept-Encoding" , "gzip");
|
||||
Заголовки.Вставить("Accept" , "*/*");
|
||||
Заголовки.Вставить("Connection" , "keep-alive");
|
||||
Заголовки = Новый Соответствие;
|
||||
Заголовки.Вставить("Content-Type", "multipart/form-data; boundary=" + Boundary);
|
||||
Заголовки.Вставить("Accept-Encoding", GZip);
|
||||
Заголовки.Вставить("Accept", "*/*");
|
||||
Заголовки.Вставить("Connection", "keep-alive");
|
||||
|
||||
Если ТипЗнч(ДопЗаголовки) = Тип("Соответствие") Тогда
|
||||
|
||||
@ -88,7 +88,7 @@
|
||||
|
||||
КонецЕсли;
|
||||
|
||||
Соединение = Новый HTTPСоединение(СтруктураURL["Сервер"], 443, , , , 300, Новый ЗащищенноеСоединениеOpenSSL());
|
||||
Соединение = Новый HTTPСоединение(СтруктураURL["Сервер"], 443, , , , 300, Новый ЗащищенноеСоединениеOpenSSL);
|
||||
НовыйЗапрос = Новый HTTPЗапрос(СтруктураURL["Адрес"], Заголовки);
|
||||
ТелоЗапроса = НовыйЗапрос.ПолучитьТелоКакПоток();
|
||||
ЗаписьТекста = Новый ЗаписьДанных(ТелоЗапроса, КодировкаТекста.UTF8, ПорядокБайтов.LittleEndian, "", "", Ложь);
|
||||
@ -115,21 +115,19 @@
|
||||
Счетчик = 0;
|
||||
Для Каждого Файл Из Файлы Цикл
|
||||
|
||||
ПутьФайл = СтрЗаменить(Файл.Ключ, ЗаменаТочки, ".");
|
||||
|
||||
Если ТипКонтента = "image/jpeg" Тогда
|
||||
ИмяФайлаОтправки = "photo";
|
||||
Иначе
|
||||
ИмяФайлаОтправки = СтрЗаменить(Файл.Ключ, "___", ".");
|
||||
ИмяФайлаОтправки = СтрЗаменить(Файл.Ключ, ЗаменаТочки, ".");
|
||||
ИмяФайлаОтправки = Лев(ИмяФайлаОтправки, СтрНайти(ИмяФайлаОтправки, ".") - 1);
|
||||
ИмяФайлаОтправки = ?(ЗначениеЗаполнено(ИмяФайлаОтправки)
|
||||
, ИмяФайлаОтправки
|
||||
, СтрЗаменить(Файл.Ключ, "___", "."));
|
||||
ИмяФайлаОтправки = ?(ЗначениеЗаполнено(ИмяФайлаОтправки), ИмяФайлаОтправки, СтрЗаменить(Файл.Ключ,
|
||||
ЗаменаТочки, "."));
|
||||
КонецЕсли;
|
||||
|
||||
ЗаписьТекста.ЗаписатьСтроку("--" + boundary + РазделительСтрок);
|
||||
ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name="""
|
||||
+ ИмяФайлаОтправки
|
||||
+"""; filename="""
|
||||
+ СтрЗаменить(Файл.Ключ, "___", ".")
|
||||
ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""" + ИмяФайлаОтправки + """; filename=""" + ПутьФайл
|
||||
+ """");
|
||||
ЗаписьТекста.ЗаписатьСтроку(РазделительСтрок);
|
||||
ЗаписьТекста.ЗаписатьСтроку("Content-Type: " + ТипКонтента);
|
||||
@ -148,16 +146,15 @@
|
||||
|
||||
Ответ = Соединение.ВызватьHTTPМетод("POST", НовыйЗапрос);
|
||||
|
||||
НужнаРаспаковка = Ответ.Заголовки.Получить("Content-Encoding") = "gzip" Или
|
||||
Ответ.Заголовки.Получить("content-encoding") = "gzip";
|
||||
НужнаРаспаковка = Ответ.Заголовки.Получить("Content-Encoding") = GZip Или Ответ.Заголовки.Получить(
|
||||
"content-encoding") = GZip;
|
||||
|
||||
Если НужнаРаспаковка Тогда
|
||||
Ответ = РаспаковатьОтвет(Ответ);
|
||||
КонецЕсли;
|
||||
|
||||
Возврат ?(ТипЗнч(Ответ) = Тип("ДвоичныеДанные")
|
||||
, JsonВСтруктуру(Ответ)
|
||||
, JsonВСтруктуру(Ответ.ПолучитьТелоКакДвоичныеДанные()));
|
||||
Возврат ?(ТипЗнч(Ответ) = Тип("ДвоичныеДанные"), JsonВСтруктуру(Ответ), JsonВСтруктуру(
|
||||
Ответ.ПолучитьТелоКакДвоичныеДанные()));
|
||||
|
||||
КонецФункции
|
||||
|
||||
@ -169,14 +166,15 @@
|
||||
Параметры = Новый Структура;
|
||||
КонецЕсли;
|
||||
|
||||
GZip = "gzip";
|
||||
ТипДанных = ?(JSON, "application/json", "application/x-www-form-urlencoded");
|
||||
СтруктураURL = РазбитьURL(URL);
|
||||
|
||||
Заголовки = Новый Соответствие();
|
||||
Заголовки.Вставить("Content-Type" , ТипДанных);
|
||||
Заголовки.Вставить("Accept-Encoding" , "gzip");
|
||||
Заголовки.Вставить("Accept" , "*/*");
|
||||
Заголовки.Вставить("Connection" , "keep-alive");
|
||||
Заголовки = Новый Соответствие;
|
||||
Заголовки.Вставить("Content-Type", ТипДанных);
|
||||
Заголовки.Вставить("Accept-Encoding", GZip);
|
||||
Заголовки.Вставить("Accept", "*/*");
|
||||
Заголовки.Вставить("Connection", "keep-alive");
|
||||
|
||||
Если ТипЗнч(ДопЗаголовки) = Тип("Соответствие") Тогда
|
||||
|
||||
@ -186,7 +184,7 @@
|
||||
|
||||
КонецЕсли;
|
||||
|
||||
Соединение = Новый HTTPСоединение(СтруктураURL["Сервер"], 443, , , , 300, Новый ЗащищенноеСоединениеOpenSSL());
|
||||
Соединение = Новый HTTPСоединение(СтруктураURL["Сервер"], 443, , , , 300, Новый ЗащищенноеСоединениеOpenSSL);
|
||||
НовыйЗапрос = Новый HTTPЗапрос(СтруктураURL["Адрес"], Заголовки);
|
||||
|
||||
Если JSON Тогда
|
||||
@ -200,8 +198,8 @@
|
||||
|
||||
Ответ = Соединение.ВызватьHTTPМетод("POST", НовыйЗапрос);
|
||||
|
||||
НужнаРаспаковка = Ответ.Заголовки.Получить("Content-Encoding") = "gzip" Или
|
||||
Ответ.Заголовки.Получить("content-encoding") = "gzip";
|
||||
НужнаРаспаковка = Ответ.Заголовки.Получить("Content-Encoding") = GZip Или Ответ.Заголовки.Получить(
|
||||
"content-encoding") = GZip;
|
||||
|
||||
Если НужнаРаспаковка Тогда
|
||||
Ответ = РаспаковатьОтвет(Ответ);
|
||||
@ -212,7 +210,7 @@
|
||||
Если ТипЗнч(Ответ) = Тип("ДвоичныеДанные") Тогда
|
||||
|
||||
Попытка
|
||||
Ответ = JsonВСтруктуру(Ответ)
|
||||
Ответ = JsonВСтруктуру(Ответ);
|
||||
Исключение
|
||||
Ответ = ПолучитьСтрокуИзДвоичныхДанных(Ответ);
|
||||
КонецПопытки;
|
||||
@ -233,10 +231,8 @@
|
||||
|
||||
МассивКлючЗначение = СтрРазделить(Параметр, "=");
|
||||
|
||||
|
||||
Если МассивКлючЗначение.Количество() = КоличествоЧастей Тогда
|
||||
СоответствиеВозврата.Вставить(МассивКлючЗначение[0]
|
||||
, МассивКлючЗначение[1]);
|
||||
СоответствиеВозврата.Вставить(МассивКлючЗначение[0], МассивКлючЗначение[1]);
|
||||
КонецЕсли;
|
||||
|
||||
КонецЦикла;
|
||||
@ -262,7 +258,7 @@
|
||||
КонецПроцедуры
|
||||
|
||||
Функция UNIXTime(Знач Дата) Экспорт
|
||||
Возврат Формат(Дата - Дата(1970,1,1,1,0,0), "ЧГ=0");
|
||||
Возврат Формат(Дата - Дата(1970, 1, 1, 1, 0, 0), "ЧГ=0");
|
||||
КонецФункции
|
||||
|
||||
#КонецОбласти
|
||||
@ -278,7 +274,8 @@
|
||||
СтрокаПараметров = "?";
|
||||
|
||||
Для Каждого Параметр Из Параметры Цикл
|
||||
СтрокаПараметров = СтрокаПараметров + Параметр.Ключ + "=" + КодироватьСтроку(Параметр.Значение, СпособКодированияСтроки.КодировкаURL) + "&";
|
||||
СтрокаПараметров = СтрокаПараметров + Параметр.Ключ + "=" + КодироватьСтроку(Параметр.Значение,
|
||||
СпособКодированияСтроки.КодировкаURL) + "&";
|
||||
КонецЦикла;
|
||||
|
||||
СтрокаПараметров = Лев(СтрокаПараметров, СтрДлина(СтрокаПараметров) - 1);
|
||||
@ -290,12 +287,12 @@
|
||||
Функция РазбитьURL(Знач URL) Экспорт
|
||||
|
||||
URL = СтрЗаменить(URL, "https://", "");
|
||||
URL = СтрЗаменить(URL, "http://" , "");
|
||||
URL = СтрЗаменить(URL, "www." , "");
|
||||
URL = СтрЗаменить(URL, "http://", "");
|
||||
URL = СтрЗаменить(URL, "www.", "");
|
||||
|
||||
СтруктураВозврата = Новый Структура;
|
||||
СтруктураВозврата.Вставить("Сервер" , Лев(URL, СтрНайти(URL, "/", НаправлениеПоиска.СНачала) - 1));
|
||||
СтруктураВозврата.Вставить("Адрес" , Прав(URL, СтрДлина(URL) - СтрНайти(URL, "/", НаправлениеПоиска.СНачала) + 1));
|
||||
СтруктураВозврата.Вставить("Сервер", Лев(URL, СтрНайти(URL, "/", НаправлениеПоиска.СНачала) - 1));
|
||||
СтруктураВозврата.Вставить("Адрес", Прав(URL, СтрДлина(URL) - СтрНайти(URL, "/", НаправлениеПоиска.СНачала) + 1));
|
||||
|
||||
Возврат СтруктураВозврата;
|
||||
|
||||
@ -319,7 +316,9 @@
|
||||
|
||||
Функция JSONСтрокой(Знач Данные) Экспорт
|
||||
|
||||
ПараметрыJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Windows, " " , Истина, ЭкранированиеСимволовJSON.Нет, Ложь, Ложь, Ложь, Ложь);
|
||||
ПараметрыJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Windows, " ", Истина, ЭкранированиеСимволовJSON.Нет,
|
||||
Ложь, Ложь, Ложь, Ложь);
|
||||
|
||||
ЗаписьJSON = Новый ЗаписьJSON;
|
||||
ЗаписьJSON.ПроверятьСтруктуру = Истина;
|
||||
ЗаписьJSON.УстановитьСтроку(ПараметрыJSON);
|
||||
@ -336,7 +335,7 @@
|
||||
Процедура ВыполнитьСкрипт(Знач Текст) Экспорт
|
||||
|
||||
ИмяСкрипта = ПолучитьИмяВременногоФайла(".ps1");
|
||||
ТекстСкрипта = Новый ТекстовыйДокумент();
|
||||
ТекстСкрипта = Новый ТекстовыйДокумент;
|
||||
|
||||
ТекстСкрипта.УстановитьТекст(Текст);
|
||||
|
||||
@ -349,15 +348,6 @@
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Функция РазмерДанныхB64(Знач Base64Строка) Экспорт
|
||||
|
||||
РазмерДанных = СтрДлина(Base64Строка)
|
||||
- ?(Прав(Base64Строка, 1) = "=", 1, 0)
|
||||
- ?(Прав(Base64Строка, 2) = "==", 1, 0);
|
||||
|
||||
Возврат Цел(РазмерДанных / 4 * 3);
|
||||
|
||||
Конецфункции
|
||||
#КонецОбласти
|
||||
|
||||
#КонецОбласти
|
||||
@ -392,6 +382,8 @@
|
||||
//
|
||||
// Требования: платформа 1С версии 8.3.10 и выше
|
||||
|
||||
// BSLLS:LatinAndCyrillicSymbolInWord-off
|
||||
|
||||
Функция РаспаковатьОтвет(Ответ)
|
||||
|
||||
Попытка
|
||||
@ -411,7 +403,8 @@
|
||||
ЧтениеДанных.Пропустить(РазмерПрефиксаGZip);
|
||||
РазмерСжатыхДанных = ЧтениеДанных.ИсходныйПоток().Размер() - РазмерПрефиксаGZip - РазмерПостфиксаGZip;
|
||||
|
||||
ПотокZip = Новый ПотокВПамяти(ZipРазмерLFH() + РазмерСжатыхДанных + ZipРазмерDD() + ZipРазмерCDH() + ZipРазмерEOCD());
|
||||
ПотокZip = Новый ПотокВПамяти(ZipРазмерLFH() + РазмерСжатыхДанных + ZipРазмерDD() + ZipРазмерCDH()
|
||||
+ ZipРазмерEOCD());
|
||||
ЗаписьДанных = Новый ЗаписьДанных(ПотокZip);
|
||||
ЗаписьДанных.ЗаписатьБуферДвоичныхДанных(ZipLFH());
|
||||
ЧтениеДанных.КопироватьВ(ЗаписьДанных, РазмерСжатыхДанных);
|
||||
@ -556,6 +549,8 @@
|
||||
|
||||
КонецФункции
|
||||
|
||||
// BSLLS:LatinAndCyrillicSymbolInWord-on
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#КонецОбласти
|
||||
@ -27,13 +27,15 @@
|
||||
|
||||
Функция HMAC(Знач Ключ, Знач Данные, Тип, РазмерБлока) Экспорт
|
||||
|
||||
Дважды = 2;
|
||||
|
||||
Если Ключ.Размер() > РазмерБлока Тогда
|
||||
Ключ = Хеш(Ключ, Тип);
|
||||
КонецЕсли;
|
||||
|
||||
Если Ключ.Размер() <= РазмерБлока Тогда
|
||||
Ключ = ПолучитьHexСтрокуИзДвоичныхДанных(Ключ);
|
||||
Ключ = Лев(Ключ + ПовторитьСтроку("00", РазмерБлока), РазмерБлока * 2);
|
||||
Ключ = Лев(Ключ + ПовторитьСтроку("00", РазмерБлока), РазмерБлока * Дважды);
|
||||
КонецЕсли;
|
||||
|
||||
Ключ = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(ПолучитьДвоичныеДанныеИзHexСтроки(Ключ));
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user