1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-08-10 22:41:43 +02:00
Code Issues Releases Activity

Main build (Jenkins)

Browse Source
This commit is contained in:
Vitaly the Alpaca (bot)
2024-12-16 10:02:23 +03:00
parent c33bff1955
commit 9bf7203124
15 changed files with 5936 additions and 5928 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ci/clitesten
View File

@@ -1924,7 +1924,7 @@ def test_tcp(){
catchError(buildResult: 'FAILURE', stageResult: 'FAILURE') { catchError(buildResult: 'FAILURE', stageResult: 'FAILURE') {
powershell encoding: 'UTF-8', script:'./oint.exe tcp ProcessRequest --address "test" --data "test" --string "test" --nl "test" --debug --test ' powershell encoding: 'UTF-8', script:'./oint.exe tcp ProcessRequest --address "test" --data "test" --string "test" --debug --test '
} }
} }

2
ci/clitestru
View File

@@ -1924,7 +1924,7 @@ def test_tcp(){
catchError(buildResult: 'FAILURE', stageResult: 'FAILURE') { catchError(buildResult: 'FAILURE', stageResult: 'FAILURE') {
powershell encoding: 'UTF-8', script:'./oint.exe tcp ОбработатьЗапрос --address "test" --data "test" --string "test" --nl "test" --debug --test ' powershell encoding: 'UTF-8', script:'./oint.exe tcp ОбработатьЗапрос --address "test" --data "test" --string "test" --debug --test '
} }
} }

3
docs/en/md/TCP/Tcp-client/Process-request.mdx
View File

@@ -10,14 +10,13 @@ import TabItem from '@theme/TabItem';
`Function ProcessRequest(Val Address, Val Data = "", Val ResponseString = True, Val LineBreak = True) Export` `Function ProcessRequest(Val Address, Val Data = "", Val ResponseString = True) Export`
| Parameter | CLI option | Type | Required | Description | | Parameter | CLI option | Type | Required | Description |
|-|-|-|-|-| |-|-|-|-|-|
| Address | --address | String | ✔ | Address and port | | Address | --address | String | ✔ | Address and port |
| Data | --data | String, BinaryData | ✖ | Data or text to be sent | | Data | --data | String, BinaryData | ✖ | Data or text to be sent |
| ResponseString | --string | Boolean | ✖ | An attribute of receiving the response as a string | | ResponseString | --string | Boolean | ✖ | An attribute of receiving the response as a string |
| LineBreak | --nl | Boolean | ✖ | End the message with a line break character |
Returns: BinaryData, String - Response Returns: BinaryData, String - Response

3
docs/ru/md/TCP/Tcp-client/Process-request.mdx
View File

@@ -10,14 +10,13 @@ import TabItem from '@theme/TabItem';
`Функция ОбработатьЗапрос(Знач Адрес, Знач Данные = "", Знач ОтветСтрокой = Истина, Знач Перенос = Истина) Экспорт` `Функция ОбработатьЗапрос(Знач Адрес, Знач Данные = "", Знач ОтветСтрокой = Истина) Экспорт`
| Параметр | CLI опция | Тип | Обяз. | Назначение | | Параметр | CLI опция | Тип | Обяз. | Назначение |
|-|-|-|-|-| |-|-|-|-|-|
| Адрес | --address | Строка | ✔ | Адрес и порт для подключения | | Адрес | --address | Строка | ✔ | Адрес и порт для подключения |
| Данные | --data | Строка, ДвоичныеДанные | ✖ | Данные или текст для отправки | | Данные | --data | Строка, ДвоичныеДанные | ✖ | Данные или текст для отправки |
| ОтветСтрокой | --string | Булево | ✖ | Признак получения ответа как строки | | ОтветСтрокой | --string | Булево | ✖ | Признак получения ответа как строки |
| Перенос | --nl | Булево | ✖ | Завершить сообщение символом переноса строки |
Возвращаемое значение: ДвоичныеДанные, Строка - Ответ на запрос Возвращаемое значение: ДвоичныеДанные, Строка - Ответ на запрос

11710
service/dictionaries/en.json
View File

File diff suppressed because it is too large Load Diff

11
src/en/OInt/core/Modules/OPI_TCP.os
View File

@@ -201,23 +201,16 @@ EndFunction
// Address - String - Address and port - address // Address - String - Address and port - address
// Data - String, BinaryData - Data or text to be sent - data // Data - String, BinaryData - Data or text to be sent - data
// ResponseString - Boolean - An attribute of receiving the response as a string - string // ResponseString - Boolean - An attribute of receiving the response as a string - string
// LineBreak - Boolean - End the message with a line break character - nl
// //
// Returns: // Returns:
// BinaryData, String - Response // BinaryData, String - Response
Function ProcessRequest(Val Address, Val Data = "", Val ResponseString = True, Val LineBreak = True) Export Function ProcessRequest(Val Address, Val Data = "", Val ResponseString = True) Export
OPI_TypeConversion.GetBinaryData(Data, True); OPI_TypeConversion.GetBinaryData(Data, True);
OPI_TypeConversion.GetBoolean(ResponseString); OPI_TypeConversion.GetBoolean(ResponseString);
OPI_TypeConversion.GetBoolean(LineBreak);
Connection = CreateConnection(Address); Connection = CreateConnection(Address);
Result = SendBinaryData(Connection, Data);
If LineBreak Then
Data = OPI_Tools.MergeData(Data, ПолучитьДвоичныеДанныеИзСтроки(Chars.LF));
EndIf;
Result = SendBinaryData(Connection, Data);
If Result Then If Result Then

17
src/en/OInt/tools/Modules/internal/Modules/OPI_Tools.os
View File

@@ -973,6 +973,23 @@ Procedure Pause(Val Seconds) Export
EndProcedure EndProcedure
Procedure ReplaceEscapeSequences(Text) Export
CharacterMapping = New Map;
CharacterMapping.Insert("\n", Chars.LF);
CharacterMapping.Insert("\r", Chars.CR);
CharacterMapping.Insert("\f", Chars.FF);
CharacterMapping.Insert("\v", Chars.VTab);
For Each Symbol In CharacterMapping Do
Text = StrReplace(Text, Symbol.Key , Symbol.Value);
Text = StrReplace(Text, "\" + Symbol.Value, Symbol.Key);
EndDo;
EndProcedure
Function NumberToString(Val Number) Export Function NumberToString(Val Number) Export
Return StrReplace(String(Number), Chars.NBSp, ""); Return StrReplace(String(Number), Chars.NBSp, "");
EndFunction EndFunction

11
src/en/OPI/src/CommonModules/OPI_TCP/Module.bsl
View File

@@ -201,23 +201,16 @@ EndFunction
// Address - String - Address and port - address // Address - String - Address and port - address
// Data - String, BinaryData - Data or text to be sent - data // Data - String, BinaryData - Data or text to be sent - data
// ResponseString - Boolean - An attribute of receiving the response as a string - string // ResponseString - Boolean - An attribute of receiving the response as a string - string
// LineBreak - Boolean - End the message with a line break character - nl
// //
// Returns: // Returns:
// BinaryData, String - Response // BinaryData, String - Response
Function ProcessRequest(Val Address, Val Data = "", Val ResponseString = True, Val LineBreak = True) Export Function ProcessRequest(Val Address, Val Data = "", Val ResponseString = True) Export
OPI_TypeConversion.GetBinaryData(Data, True); OPI_TypeConversion.GetBinaryData(Data, True);
OPI_TypeConversion.GetBoolean(ResponseString); OPI_TypeConversion.GetBoolean(ResponseString);
OPI_TypeConversion.GetBoolean(LineBreak);
Connection = CreateConnection(Address); Connection = CreateConnection(Address);
Result = SendBinaryData(Connection, Data);
If LineBreak Then
Data = OPI_Tools.MergeData(Data, GetBinaryDataFromString(Chars.LF));
EndIf;
Result = SendBinaryData(Connection, Data);
If Result Then If Result Then

17
src/en/OPI/src/CommonModules/OPI_Tools/Module.bsl
View File

@@ -973,6 +973,23 @@ Procedure Pause(Val Seconds) Export
EndProcedure EndProcedure
Procedure ReplaceEscapeSequences(Text) Export
CharacterMapping = New Map;
CharacterMapping.Insert("\n", Chars.LF);
CharacterMapping.Insert("\r", Chars.CR);
CharacterMapping.Insert("\f", Chars.FF);
CharacterMapping.Insert("\v", Chars.VTab);
For Each Symbol In CharacterMapping Do
Text = StrReplace(Text, Symbol.Key , Symbol.Value);
Text = StrReplace(Text, "\" + Symbol.Value, Symbol.Key);
EndDo;
EndProcedure
Function NumberToString(Val Number) Export Function NumberToString(Val Number) Export
Return StrReplace(String(Number), Chars.NBSp, ""); Return StrReplace(String(Number), Chars.NBSp, "");
EndFunction EndFunction

12
src/en/cli/core/Classes/app.os
View File

@@ -187,7 +187,17 @@
Если ЗначениеЗаполнено(ЗначениеПараметра) Тогда Если ЗначениеЗаполнено(ЗначениеПараметра) Тогда
ИмяПараметра = "Параметр" + СтрЗаменить(ИмяПараметра, "--", "_"); ИмяПараметра = "Параметр" + СтрЗаменить(ИмяПараметра, "--", "_");
ФайлПараметра = Новый Файл(ЗначениеПараметра);
ЗначениеПараметраСокр = СокрЛП(ЗначениеПараметра);
Если Не СтрНачинаетсяС(ЗначениеПараметраСокр, "{")
И Не СтрНачинаетсяС(ЗначениеПараметраСокр, "[")
И Не ФайлПараметра.Существует() Тогда
OPI_Tools.ЗаменитьУправляющиеПоследовательности(ЗначениеПараметра);
КонецЕсли;
ТекстВыполнения = ТекстВыполнения ТекстВыполнения = ТекстВыполнения
+ Символы.ПС + Символы.ПС

10
src/en/cli/data/Classes/internal/Classes/tcp.os
View File

@@ -40,16 +40,6 @@
NewLine.Описание = "An attribute of receiving the response as a string (optional, def. val. - Yes)"; NewLine.Описание = "An attribute of receiving the response as a string (optional, def. val. - Yes)";
NewLine.Область = "Tcp client"; NewLine.Область = "Tcp client";
NewLine = CompositionTable.Add();
NewLine.Библиотека = "tcp";
NewLine.Модуль = "OPI_TCP";
NewLine.Метод = "ProcessRequest";
NewLine.МетодПоиска = "PROCESSREQUEST";
NewLine.Параметр = "--nl";
NewLine.Описание = "End the message with a line break character (optional, def. val. - Yes)";
NewLine.Область = "Tcp client";
Return CompositionTable; Return CompositionTable;
EndFunction EndFunction

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

@@ -2060,9 +2060,9 @@
КонецФункции КонецФункции
Функция ПолучитьОбщийМодуль(Знач Имя) Функция ПолучитьОбщийМодуль(Знач Имя)
Модуль = Вычислить(Имя); Модуль = Вычислить(Имя);
Возврат Модуль; Возврат Модуль;
КонецФункции КонецФункции

26
src/ru/OInt/tools/Modules/internal/Modules/OPI_Инструменты.os
View File

@@ -975,19 +975,19 @@
Процедура ЗаменитьУправляющиеПоследовательности(Текст) Экспорт Процедура ЗаменитьУправляющиеПоследовательности(Текст) Экспорт
СоответствиеСимволов = Новый Соответствие; СоответствиеСимволов = Новый Соответствие;
СоответствиеСимволов.Вставить("\n", Символы.ПС); СоответствиеСимволов.Вставить("\n", Символы.ПС);
СоответствиеСимволов.Вставить("\r", Символы.ВК); СоответствиеСимволов.Вставить("\r", Символы.ВК);
СоответствиеСимволов.Вставить("\f", Символы.ПФ); СоответствиеСимволов.Вставить("\f", Символы.ПФ);
СоответствиеСимволов.Вставить("\v", Символы.ВТаб); СоответствиеСимволов.Вставить("\v", Символы.ВТаб);
Для Каждого Символ Из СоответствиеСимволов Цикл Для Каждого Символ Из СоответствиеСимволов Цикл
Текст = СтрЗаменить(Текст, Символ.Ключ, Символ.Значение); Текст = СтрЗаменить(Текст, Символ.Ключ , Символ.Значение);
Текст = СтрЗаменить(Текст, "\" + Символ.Значение, Символ.Ключ); Текст = СтрЗаменить(Текст, "\" + Символ.Значение, Символ.Ключ);
КонецЦикла; КонецЦикла;
КонецПроцедуры КонецПроцедуры
Функция ЧислоВСтроку(Знач Число) Экспорт Функция ЧислоВСтроку(Знач Число) Экспорт

26
src/ru/OPI/src/CommonModules/OPI_Инструменты/Module.bsl
View File

@@ -975,19 +975,19 @@
Процедура ЗаменитьУправляющиеПоследовательности(Текст) Экспорт Процедура ЗаменитьУправляющиеПоследовательности(Текст) Экспорт
СоответствиеСимволов = Новый Соответствие; СоответствиеСимволов = Новый Соответствие;
СоответствиеСимволов.Вставить("\n", Символы.ПС); СоответствиеСимволов.Вставить("\n", Символы.ПС);
СоответствиеСимволов.Вставить("\r", Символы.ВК); СоответствиеСимволов.Вставить("\r", Символы.ВК);
СоответствиеСимволов.Вставить("\f", Символы.ПФ); СоответствиеСимволов.Вставить("\f", Символы.ПФ);
СоответствиеСимволов.Вставить("\v", Символы.ВТаб); СоответствиеСимволов.Вставить("\v", Символы.ВТаб);
Для Каждого Символ Из СоответствиеСимволов Цикл Для Каждого Символ Из СоответствиеСимволов Цикл
Текст = СтрЗаменить(Текст, Символ.Ключ, Символ.Значение); Текст = СтрЗаменить(Текст, Символ.Ключ , Символ.Значение);
Текст = СтрЗаменить(Текст, "\" + Символ.Значение, Символ.Ключ); Текст = СтрЗаменить(Текст, "\" + Символ.Значение, Символ.Ключ);
КонецЦикла; КонецЦикла;
КонецПроцедуры КонецПроцедуры
Функция ЧислоВСтроку(Знач Число) Экспорт Функция ЧислоВСтроку(Знач Число) Экспорт

10
src/ru/cli/data/Classes/internal/Classes/tcp.os
View File

@@ -40,16 +40,6 @@
НоваяСтрока.Описание = "Признак получения ответа как строки (необяз. по ум. - Да)"; НоваяСтрока.Описание = "Признак получения ответа как строки (необяз. по ум. - Да)";
НоваяСтрока.Область = "Tcp клиент"; НоваяСтрока.Область = "Tcp клиент";
НоваяСтрока = ТаблицаСостава.Добавить();
НоваяСтрока.Библиотека = "tcp";
НоваяСтрока.Модуль = "OPI_TCP";
НоваяСтрока.Метод = "ОбработатьЗапрос";
НоваяСтрока.МетодПоиска = "ОБРАБОТАТЬЗАПРОС";
НоваяСтрока.Параметр = "--nl";
НоваяСтрока.Описание = "Завершить сообщение символом переноса строки (необяз. по ум. - Да)";
НоваяСтрока.Область = "Tcp клиент";
Возврат ТаблицаСостава; Возврат ТаблицаСостава;
КонецФункции КонецФункции