Доработки обработки запроса TCP

src/ru/OInt/core/Modules/OPI_TCP.os

@@ -201,18 +201,23 @@
 //  Адрес        - Строка                 - Адрес и порт для подключения                 - address
 //  Данные       - Строка, ДвоичныеДанные - Данные или текст для отправки                - data
 //  ОтветСтрокой - Булево                 - Признак получения ответа как строки          - string
+//  Перенос      - Булево                 - Завершить сообщение символом переноса строка - nl
 //
 // Возвращаемое значение:
 //  ДвоичныеДанные, Строка - Ответ на запрос
-Функция ОбработатьЗапрос(Знач Адрес, Знач Данные = "", Знач ОтветСтрокой = Истина) Экспорт
+Функция ОбработатьЗапрос(Знач Адрес, Знач Данные = "", Знач ОтветСтрокой = Истина, Знач Перенос = Истина) Экспорт
 
     OPI_ПреобразованиеТипов.ПолучитьДвоичныеДанные(Данные, Истина);
     OPI_ПреобразованиеТипов.ПолучитьБулево(ОтветСтрокой);
+    OPI_ПреобразованиеТипов.ПолучитьБулево(Перенос);
 
     Соединение = ОткрытьСоединение(Адрес);
     
+    Если Перенос Тогда
+    	Данные = OPI_Инструменты.СклеитьДанные(Данные, ПолучитьДвоичныеДанныеИзСтроки(Символы.ПС)); 
+    КонецЕсли;
+
     Результат = ОтправитьДвоичныеДанные(Соединение, Данные);
-    Соединение.CloseOutput();
 
     Если Результат Тогда
 

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

@@ -1084,6 +1084,22 @@
 
 КонецФункции
 
+Функция СклеитьДанные(Знач Данные, Знач Дополнение) Экспорт
+
+	Поток = Новый ПотокВПамяти();
+	Запись = Новый ЗаписьДанных(Поток);
+	
+	Запись.Записать(Данные);
+	Запись.Записать(Дополнение);
+	
+	Запись.Закрыть();
+	
+	Результат = Поток.ЗакрытьИПолучитьДвоичныеДанные();
+	
+	Возврат Результат;
+		
+КонецФункции
+
 #КонецОбласти
 
 #КонецОбласти

src/ru/OPI/src/CommonModules/OPI_TCP/Module.bsl

@@ -201,18 +201,23 @@
 //  Адрес        - Строка                 - Адрес и порт для подключения                 - address
 //  Данные       - Строка, ДвоичныеДанные - Данные или текст для отправки                - data
 //  ОтветСтрокой - Булево                 - Признак получения ответа как строки          - string
+//  Перенос      - Булево                 - Завершить сообщение символом переноса строки - nl
 //
 // Возвращаемое значение:
 //  ДвоичныеДанные, Строка - Ответ на запрос
-Функция ОбработатьЗапрос(Знач Адрес, Знач Данные = "", Знач ОтветСтрокой = Истина) Экспорт
+Функция ОбработатьЗапрос(Знач Адрес, Знач Данные = "", Знач ОтветСтрокой = Истина, Знач Перенос = Истина) Экспорт
 
     OPI_ПреобразованиеТипов.ПолучитьДвоичныеДанные(Данные, Истина);
     OPI_ПреобразованиеТипов.ПолучитьБулево(ОтветСтрокой);
+    OPI_ПреобразованиеТипов.ПолучитьБулево(Перенос);
 
     Соединение = ОткрытьСоединение(Адрес);
     
+    Если Перенос Тогда
+    	Данные = OPI_Инструменты.СклеитьДанные(Данные, ПолучитьДвоичныеДанныеИзСтроки(Символы.ПС)); 
+    КонецЕсли;
+
     Результат = ОтправитьДвоичныеДанные(Соединение, Данные);
-    Соединение.CloseOutput();
 
     Если Результат Тогда
 

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

@@ -1084,6 +1084,22 @@
 
 КонецФункции
 
+Функция СклеитьДанные(Знач Данные, Знач Дополнение) Экспорт
+
+	Поток = Новый ПотокВПамяти();
+	Запись = Новый ЗаписьДанных(Поток);
+	
+	Запись.Записать(Данные);
+	Запись.Записать(Дополнение);
+	
+	Запись.Закрыть();
+	
+	Результат = Поток.ЗакрытьИПолучитьДвоичныеДанные();
+	
+	Возврат Результат;
+		
+КонецФункции
+
 #КонецОбласти
 
 #КонецОбласти