Версия для печати темы (https://pro1c.org.ua/index.php?s=1e9ff74aec497669c74d0df381b50981&showtopic=48847)

Автор: SeverinPasha 13.11.18, 9:34

Ситуация следующая, открываю порт для получения данных, но не могу поставить закрытие по истечению времени(например секунд). Перепробовал всё что знал и вычитал. Может кто поделится мыслью

Процедура СчитатьКартуНажатие(Элемент)
    Перем ЗначениеСчитки;
    ComPort = Новый COMОбъект("MsCommLib.MsComm"); 
    Попытка
        ComPort.CommPort        = 3;
        ComPort.Settings        = "38400,N,8,1";
        ComPort.InputMode = 1;
        ComPort.PortOpen = Истина;    
        ЭлементыФормы.СостояниеСвязи.Заголовок = "Связь есть...";
        Таймаут = 5;
        ПорогТаймаута = ТекущаяДата() + Таймаут;
        ТекущееЧисло = ТекущаяДата();
        
            Пока ComPort.InBufferCount <= 1 и ТекущееЧисло <> ПорогТаймаута  Цикл
                 Массив = ComPort.Input;    
            КонецЦикла;
                        
             ДанныеСПорта = ComPort.Input;
                           
             Массив = ДанныеСПорта.Выгрузить();

Автор: sava1 13.11.18, 9:39

навскидку http://pro1c.org.ua/redirect.php?https://kb.mista.ru/article.php?id=50

Автор: SeverinPasha 14.11.18, 8:01

sava1 @ Вчера, 10:39 ,
А может есть еще какой-либо вариант реализации?

Автор: sava1 14.11.18, 8:21

а как еще можно придумать?
или у меня логика извращена...

Автор: Vofka 14.11.18, 9:23

SeverinPasha, опишите проблему.

Автор: SeverinPasha 14.11.18, 9:29

Vofka @ Сегодня, 10:23 ,
Я по клику открываю порт, чтобы принять данные. И никак не могу написать код, который будет закрывать порт через например 5 секунд. Пробовал работать с функциями даты но всё безрезультатно. Мне нужно просто остановить цикл через 5 секунд после начала приёма данных, при условии, что данные не пришли

Автор: Vofka 14.11.18, 9:49

SeverinPasha, так и чем не подходит вариант с функцией ПодключитьОбработчикОжидания(...)? Это таймер, просто с не совсем удачным названием .

Автор: Petre 14.11.18, 9:50

SeverinPasha @ Today, 9:29 ,
Запустите остановку обработчиком ожидания.

Автор: SeverinPasha 15.11.18, 8:35

Petre @ Вчера, 10:50 ,
Vofka @ Вчера, 10:49 ,
Да тут не в названии дело)
Попробовал обработчиком и понял что это вариант не для данного случая.
Мне нужно не запускать всю процедуру по истечению времени. В коде есть отдельный цикл, который отвечает за приём данных.

 Пока ComPort.InBufferCount <= 1 Цикл
                 Массив = ComPort.Input;    
            КонецЦикла;

Так вот, мне нужно остановить именно его по истечению пяти секунд. У меня это даж было как-то получилось, но на ранней стадии разработки программы. Может кто подкинет идейку, как остановить именно этот цикл по завершению таймера. Я пробовал играться с текущей датой, но я какой-то глупый

Автор: Vofka 15.11.18, 9:15

ТД = ТекущаяДата();
Ждать = 5;
Пока ComPort.InBufferCount <= 1 И ТД + Ждать < ТекущаяДата() Цикл
     Массив = ComPort.Input;    
КонецЦикла;

Автор: SeverinPasha 15.11.18, 9:27

Vofka @ Сегодня, 10:15 ,
Я пробовал таким образом раньше делать
Не работает. Выбивает исключение, которое я прописал на всякий случай, чтобы видеть ошибки

                 Исключение
        Сообщить("Не возможно открыть порт.",СтатусСообщения.ОченьВажное);
        Отказ = Истина;
    КонецПопытки;    
    ComPort.PortOpen = Ложь;
    
КонецПроцедуры

и выдаёт именно "Не возможно открыть порт."

Автор: Vofka 15.11.18, 9:54

SeverinPasha, вы как-то даете информацию обрывками, ничего не понятно.

Автор: SeverinPasha 15.11.18, 10:19

Vofka @ Сегодня, 10:54 ,
Ну не сбрасывать же мне весь код. То что я сбросил это лишь лакмусовая бумага, которая показывает то, что данный вариант не работает.
Извиняюсь, если что-то не так описываю
В 1с я человек новый

Автор: Vofka 15.11.18, 11:11

SeverinPasha, вам что-то подсказывают, вы говорите "я так пробовал, не работает". Но что вы пробовали я лично вообще не понимаю.

Автор: SeverinPasha 19.11.18, 10:46

Решение найдено, всем спасибо

ВремяСтарта = ТекущаяДата();
        Длит = 5;
        
            Пока ComPort.InBufferCount = 0 И (ТекущаяДата()- ВремяСтарта) < Длит Цикл
                     Массив = ComPort.Input; 
            КонецЦикла;

Автор: Vofka 19.11.18, 16:40

Я вам этот вариант ещё в сообщении #10 предложил. Не работает же.

Автор: SeverinPasha 20.11.18, 8:38

Vofka @ Вчера, 17:40 ,
Самое интересное, что ваш код не работал. Я понимаю что по сути это одно и то же, но первым вариантом кода программа реально не работала. Всё равно большое спасибо

Автор: XBrut 22.11.18, 7:45

SeverinPasha @ 13.11.18, 9:34 ,

Пост #1

Таймаут = 5;
ПорогТаймаута = ТекущаяДата() + Таймаут;
ТЕКУЩЕЕЧИСЛО= ТекущаяДата();
Пока ComPort.InBufferCount <= 1 и ТЕКУЩЕЕЧИСЛО<> ПорогТаймаута  Цикл
    Массив = ComPort.Input;    
КонецЦикла;

В такому коді ТЕКУЩЕЕЧИСЛО ніколи не стане дорівнювати ПорогТаймаута і база буде вічно отримувати дані з ком-порту

П.С.
В таких випадках рекомендується більше відпочивати.