﻿    TCPСервер = OPI_TCP.СоздатьСервер(7788, Истина);

    Для Н = 1 По 5 Цикл

        НовоеПодключение = OPI_TCP.ОжидатьПодключение(TCPСервер, 20);

        Если НовоеПодключение["result"] Тогда
            Подключение = НовоеПодключение["connection"];
        Иначе
            Продолжить;
        КонецЕсли;

        Ответ    = OPI_TCP.ОтправитьДанные(TCPСервер, Подключение, ПолучитьДвоичныеДанныеИзСтроки("Yo"));
        Закрытие = OPI_TCP.ЗакрытьВходящееСоединение(TCPСервер, Подключение);

    КонецЦикла;
