TCPКонечнаяТочка.TCPПорт (TcpEndPoint.TcpPort) Свойство

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

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

TCPСервер1 = КС.TCPСервер(10085);
TCPСервер1.ПриОтключенииКлиента = КС.Действие(ЭтотОбъект, "TCPСервер1_ПриОтключенииКлиента");
TCPСервер1.Начать();
Сообщить("Сервер запущен.");
//== Файл Сервер.os == конец

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

TCPКонечнаяТочка1 = КС.TCPКонечнаяТочка("127.0.0.1", 10085);
Сообщить("TCPПорт = " + TCPКонечнаяТочка1.TCPПорт);

TCPКлиент1 = КС.TCPКлиент(TCPКонечнаяТочка1);

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