TCPКлиент.ОтправитьСообщение (TcpClient.SendMessage) Метод

Копировать     Выделить всё

//== Файл Сервер.os == начало
ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
КС = Новый КлиентСерверДляОдноСкрипта();

TCPСервер1 = КС.TCPСервер(10085);
TCPСервер1.Начать();
Сообщить("Сервер запущен.");

Пока КС.Продолжать Цикл
	КС.ПолучитьСобытие().Выполнить();
КонецЦикла;
//== Файл Сервер.os == конец

//== Файл Клиент.os == начало
Перем КС;

Процедура TCPКлиент_ПриОтправкеСообщения() Экспорт
	Сообщение = КС.СообщениеАрг().Сообщение;
	Если (ТипЗнч(Сообщение)) = Тип("КсСообщениеТекст") Тогда
		Сообщить("Отправлено сообщение: " + Сообщение.Текст);
	КонецЕсли;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
КС = Новый КлиентСерверДляОдноСкрипта();

TCPКлиент1 = КС.TCPКлиент(КС.TCPКонечнаяТочка("127.0.0.1", 10085));
TCPКлиент1.ПриОтправкеСообщения = КС.Действие(ЭтотОбъект, "TCPКлиент_ПриОтправкеСообщения");
TCPКлиент1.Подключить();
Приостановить(1000);
TCPКлиент1.ОтправитьСообщение(КС.СообщениеТекст("Это текстовое сообщение."));

Пока КС.Продолжать Цикл
	КС.ПолучитьСобытие().Выполнить();
КонецЦикла;
//== Файл Клиент.os == конец