TCPСервер.Клиенты (TcpServer.Clients) Свойство

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

//== Файл Сервер.os == начало
Перем КС, TCPСервер1;

Процедура Сервер_ПриПодключенииКлиента() Экспорт
	СерверКлиент = КС.СерверКлиентАрг().Клиент;
	Сообщить("Подключен новый клиент. Идентификатор клиента = " + СерверКлиент.ИдентификаторКлиента);
	
	Клиенты = TCPСервер1.Клиенты;
	Сообщить("Клиенты.ВГраница() = " + TCPСервер1.Клиенты.ВГраница());
	Для А = 0 По Клиенты.ВГраница() Цикл
		Сообщить("ИдентификаторКлиента " + А + " = " + Клиенты.Получить(А).ИдентификаторКлиента);
	КонецЦикла;
КонецПроцедуры

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

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

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

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

TCPКлиент1 = КС.TCPКлиент(КС.TCPКонечнаяТочка("127.0.0.1", 10085));
TCPКлиент1.Подключить();

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