1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-11-29 22:27:42 +02:00
Code Issues Releases Activity

Дополнение словаря

Browse Source
This commit is contained in:
Anton Titovets
2025-01-21 20:44:56 +03:00
parent 8eafd32765
commit ddb0f1440a
4 changed files with 6339 additions and 6304 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12587
service/dictionaries/en.json vendored
View File

File diff suppressed because it is too large Load Diff

22
src/ru/OInt/core/Modules/OPI_TCP.os vendored
View File

@@ -272,7 +272,7 @@
// Структура Из КлючИЗначение - Структура с информацией об успешности запуска
Функция ЗапуститьСервер(Знач TCPСервер) Экспорт
Если Не OPI_Инструменты.ЭтоСервер(TCPСервер) Тогда
Если Не ЭтоСервер(TCPСервер) Тогда
ВызватьИсключение "Переданное значение не является TCP-сервером!";
КонецЕсли;
@@ -296,15 +296,17 @@
// Структура Из КлючИЗначение - Структура с идентификатором нового подключения или ошибкой
Функция ОжидатьПодключение(Знач TCPСервер, Знач Таймаут = 0) Экспорт
Если Не OPI_Инструменты.ЭтоСервер(TCPСервер) Тогда
Если Не ЭтоСервер(TCPСервер) Тогда
ВызватьИсключение "Переданное значение не является TCP-сервером!";
КонецЕсли;
OPI_ПреобразованиеТипов.ПолучитьЧисло(Таймаут);
НовоеПодключение = TCPСервер.Wait(Таймаут);
Результат = TCPСервер.Wait(Таймаут);
Возврат НовоеПодключение;
ОбработатьРезультат(Результат);
Возврат Результат;
КонецФункции
@@ -320,7 +322,7 @@
// Структура Из КлючИЗначение, ДвоичныеДанные - Двоичные данные при успехе или структура с описанием ошибки
Функция ПолучитьДанные(Знач TCPСервер, Знач IDПодключения, Знач МаксимальныйРазмер = 0) Экспорт
Если Не OPI_Инструменты.ЭтоСервер(TCPСервер) Тогда
Если Не ЭтоСервер(TCPСервер) Тогда
ВызватьИсключение "Переданное значение не является TCP-сервером!";
КонецЕсли;
@@ -357,7 +359,7 @@
// Структура Из КлючИЗначение - Информация о выполнении
Функция ОтправитьДанные(Знач TCPСервер, Знач IDПодключения, Знач Данные) Экспорт
Если Не OPI_Инструменты.ЭтоСервер(TCPСервер) Тогда
Если Не ЭтоСервер(TCPСервер) Тогда
ВызватьИсключение "Переданное значение не является TCP-сервером!";
КонецЕсли;
@@ -383,7 +385,7 @@
// Структура Из КлючИЗначение - Информация о выполнении
Функция ОтключитьСервер(Знач TCPСервер) Экспорт
Если Не OPI_Инструменты.ЭтоСервер(TCPСервер) Тогда
Если Не ЭтоСервер(TCPСервер) Тогда
ВызватьИсключение "Переданное значение не является TCP-сервером!";
КонецЕсли;
@@ -407,7 +409,7 @@
// Структура Из КлючИЗначение - Информация о выполнении
Функция ЗакрытьВходящееСоединение(Знач TCPСервер, Знач IDПодключения) Экспорт
Если Не OPI_Инструменты.ЭтоСервер(TCPСервер) Тогда
Если Не ЭтоСервер(TCPСервер) Тогда
ВызватьИсключение "Переданное значение не является TCP-сервером!";
КонецЕсли;
@@ -436,7 +438,7 @@
// Структура Из КлючИЗначение - Информация о выполнении
Функция ПолучитьВходящиеСоединения(Знач TCPСервер) Экспорт
Если Не OPI_Инструменты.ЭтоСервер(TCPСервер) Тогда
Если Не ЭтоСервер(TCPСервер) Тогда
ВызватьИсключение "Переданное значение не является TCP-сервером!";
КонецЕсли;
@@ -459,7 +461,7 @@
// Структура Из КлючИЗначение - Информация о выполнении
Функция АктуализироватьВходящиеСоединения(Знач TCPСервер) Экспорт
Если Не OPI_Инструменты.ЭтоСервер(TCPСервер) Тогда
Если Не ЭтоСервер(TCPСервер) Тогда
ВызватьИсключение "Переданное значение не является TCP-сервером!";
КонецЕсли;

29
src/ru/OInt/tests/Modules/internal/OPI_Тесты.os vendored
View File

@@ -2238,6 +2238,14 @@
TCP_ПрочитатьСтроку(ПараметрыТеста);
TCP_ОтправитьСтроку(ПараметрыТеста);
TCP_ОбработатьЗапрос(ПараметрыТеста);
КонецПроцедуры
Процедура TC_Сервер() Экспорт
ПараметрыТеста = Новый Структура;
TCP_ОжидатьПодключение(ПараметрыТеста);
КонецПроцедуры
@@ -16446,6 +16454,27 @@
КонецПроцедуры
Процедура TCP_ОжидатьПодключение(ПараметрыФункции) Экспорт
TCPСервер = OPI_TCP.СоздатьСервер(7788, Истина);
Для Н = 1 По 5 Цикл
НовоеПодключение = OPI_TCP.ОжидатьПодключение(TCPСервер, 20);
Если НовоеПодключение["result"] Тогда
Подключение = НовоеПодключение["connection"];
Иначе
Продолжить;
КонецЕсли;
Ответ = OPI_TCP.ОтправитьДанные(TCPСервер, Подключение, ПолучитьДвоичныеДанныеИзСтроки("Yo"));
Закрытие = OPI_TCP.ЗакрытьВходящееСоединение(TCPСервер, Подключение);
КонецЦикла;
КонецПроцедуры
#КонецОбласти
#Область SQLite

5
src/ru/OInt/tools/Modules/OPI_ПолучениеДанныхТестов.os vendored
View File

@@ -268,6 +268,7 @@
НовыйТест(ТаблицаТестов, "AWS_РаботаСБакетами" , "Работа с бакетами" , S3_);
НовыйТест(ТаблицаТестов, "AWS_РаботаСОбъектами" , "Работа с объектами" , S3_);
НовыйТест(ТаблицаТестов, "TC_Клиент" , "TCP Клиент" , TCP);
НовыйТест(ТаблицаТестов, "TC_Сервер" , "TCP Сервер" , TCP);
НовыйТест(ТаблицаТестов, "SQLL_ОсновныеМетоды" , "Основные методы" , SQLite);
НовыйТест(ТаблицаТестов, "SQLL_ORM" , "ORM" , SQLite);
@@ -2132,9 +2133,9 @@
КонецФункции
Функция ПолучитьОбщийМодуль(Знач Имя)
Модуль = Вычислить(Имя);
Возврат Модуль;
КонецФункции