Возможно ли выполнение кода в параллельном потоке? Например опрос датчиков на КОМ-портах, весов, - в фоновом режиме?
Для работы с ком портами используются паузы, и когда идет опрос портов раз в 2 секунды, - невозможно комфортно редактировать форму документа.
нашел такую тему : Кто нибудь создавал потоки на 1С 7.7 ?
попробовал прикрутить КОМПОНЕНТу VTOOLs, но при создании потока 1с валится, вроде нашел, что не совместима с FormEx.
Ещё пишут, что в DialMail обмен почтой может запускаться в отдельном потоке, но похоже, в моей ситуации это не поможет...

Может кто решал подобные задачи? поделитесь опытом?

(71) возможность чего? вот есть мое приложение 1сная обработка или какой-то 1Сный1 код.
как мне программно получит или быть оповещенным о приходе данных с вскрытием конверта-оповещения и получения данных..?

(72) ну как обычно. в ВК работает поток, который постоянно опрашивает весы. вызываешь метод ВК, который возвращает текущий вес. если надо, ВК постоянно выводит вес в отдельном окне.

(73) В отдельном окне в 7.7 очень проблематично - семёрка использует очередь сообщений, и при переходе кода со строки на строку идёт опрос очереди сообщений - тогда всё и прорисовывается, а вот когда выполняется отчёт или другая деятельность 1С, не требующая встроенного языка - очередь сообщений подвисает, если мы что-то выведем в окно через SendMessage - мы будем ждать освобождения очереди. Если после освобождения зайдут к нам, то будет DeadLock и всё.
Так что - обновлять окна 1С должна только по своей инициативе.

(74) ну я как бы в курсе чо там и как подвисает

(33) Не нужны там ни формекс ни 1с++, штатной ОбработкаОжидания() прекрасно все делается.

В коде (32) просто несусветная глупость с "глСистема.Уснуть(..);"


глВесы;

Процедура глСчитать()
   Если глВесы.InBufferCount < 13 Тогда
      Возврат;
   Иначе
      Буфер= СокрЛП(глВесы.Input);
      пВес = Сред(Буфер,2,8);
      Сообщить("Вес="+пВес);
      // и т.д.

      глВесы.Settings = "19200,N,8,1";
      глВесы.Output = Симв(080)+Симв(013);
      ОбработкаОжидания("глСчитать", 2);
   КонецЕсли;
КонецПроцедуры

Процедура НачатьСчитывание()
   Если глВесы.PortOpen <> 0 Тогда
      глВесы.Settings = "19200,N,8,1";
      глВесы.Output = Симв(080)+Симв(013);
      ОбработкаОжидания("глСчитать", 2);
   КонецЕсли;
КонецПроцедуры


IdleProcessing(<?>,)
ОбработкаОжидания(<?>,)
Синтаксис:
ОбработкаОжидания(<ИмяПроцедуры>,<ИнтервалВызова>)
Назначение:
Инициирует периодический вызов процедуры глобального модуля с заданным интервалом времени.
Возвращает имя процедуры глобального модуля, которая назначена для периодического запуска (на момент до исполнения процедуры).
Параметры:
<ИмяПроцедуры> - необязательный параметр. Строковое выражение - имя процедуры глобального модуля, которая будет вызываться периодически с временным интервалом <ИнтервалВызова>. Тело процедуры <ИмяПроцедуры> должно быть написано разработчиком конфигурации в глобальном программном модуле. Если в качестве параметра передается 'пустая строка', то ранее запущенный процесс прекращается.
<ИнтервалВызова> - необязательный параметр. Числовое выражение - интервал времени в секундах, с которым периодически будет вызываться процедура глобального модуля <ИмяПроцедуры>. Если в качестве параметра передается 0 (ноль), то ранее запущенный процесс прекращается.

(76)+ Дополнение, если конфа уже использует ОбработкаОжидания() то нуна не забывать что может только одна "периодического запуска" работать, можно сохранить имя предыдущей обработки и вызывать ее когда нуна в своей.

(76)+ Чтобы "штатно" обновлять на форме "вес", пишем его в "Перем глВес" в глобальнике.

И задаем формулу "ТекущийВес()" для текстового поля где

Функция ТекущийВес()
   Возврат глВес;
КонецФункции


Да если юзер работает (набирает текст в поле ввода) то вызов обработки ожидания обычно выделяет все введенное в поле и следующим нажатием символа введенные до этого символы того...

Кста штатная обработка ожидания в 7.7 пашет в "отдельном потоке", но любое взаимодействие с базой и данными (включая глобальные переменные) вызывает блокировки (фризы интерфейса).

С переменными не так заметно, но если в ней начать документы проводить (у меня в некоторых старых конфах такое сделано) то фризы ощутимые :)

(79) Да "без работы на форме", т.е. без переходов между элементами формы, нажатий кнопок и т.д., т.е. без событий вызывающих перерисовку форму (перетаскивание не помогает) текст нифига не обновится сам и уже нужны извращения с Форма.Обновить().

Посмотри вот часики https://cloud.mail.ru/public/LSTZ/jWuzNnNmE

Насколько я помню, нажатие ALT и вызов меню останавливают как обработку ожидания, так и вообще все обмены интерфейса, так как меню вызывает свой обработчик очереди событий, которые все ненужные ему события отправляет котику под хвостик.

Ну пора уже 77 на заслуженный отдых.

(84) В некоторых местах ещё клиппер работает, так что 7.7 ещё поживёт, пока есть кому конденсаторы на мамках перепаять.

(85) Мдя, сча уже кондеры не спасают.
Вот где бы взять недорого мамки под 775 ?

(86) Фигня! arduino преспособим! ;)

(87) Смешно но иногда хочется купить им планшеты вместо компов... Только 1С77 на андроиде не очень, но тут МС подсуетился и выпустил на Win10 дешевые и даже с hdmi выходом.
А переходник hdmi-vga стоит 200 рублей.

(88)+ Но эта Windows 10 убивает настройкой конечно.

Обработка ожидания - зло

Зло это из учетной системы хрен знает что делать. Когда давно есть JS в браузере.

(91) +100

Зачем постоянно допрашивать вес? Не проще ли дождаться сигнала о поступлении веса?

(78) формексовских обработок ожидания, емнип, может быть много - каждая управляется отдельно

Зачем вообще в 7.7 многопоточность? :)

(95) Щоб булО!®

(94) я вот тоже так думал...  оказалось - нет

(89) а чем там настройка особенно отличается от Windows 7, к примеру?

(93) ну во-первых, можно хотеть полную копию дисплея весов на компе. Чтобы было видно как он меняется. Во-вторых, многие весы не имеют такого функционала как отдача окончательного веса, они просто возвращают содержимое своего дисплея по запросу и в этом содержимом есть признак стабильности веса - нестабилен или стабилен.

100

(93) (99) У нас сейчас устанавливаются весы, которые, если будут сами выдавать вес, без запроса, то его считывать будет очень гиморно... передают слово в 14 бит, первый раз вес в первой половине, второй - во второй... и так через раз...
а если по запросу - то все ок, всё постоянно...
менять весы не предлагать, только эти весы живут нормально в наших условиях агресивных сред (высшая IP защита) за вменяемые деньги.
НО , в ближашем будущем, появится необходимость получать показания с других датчиков по запросу и выводить их на форму.

Еще раз повторюсь, необходимо, что-бы на форме (на экране) у оператора отображались оперативные данные с датчиков, чтоб он видел, какие данные запишутся при нажатии кнопки.

(76) спасибо, идея понятна, буду думать как можно у себя это прикрутить...
просто у меня уже есть 5 типов датчиков(весов)и ещё будет добавлятся, работа с которыми описана в глобальной функции ПолучитьВес(), кусочек которой я приводил выше.

(98) В Win7 переход после WinXP был простой, вот те "панель управления" где все в одном виде и понятно.

В Win10 тупейшая смесь нового и старого, как и в Win8 только чуть чуть получше. Например скажите как отключить запрос пароля при загрузке (автологон сделать)?

Да по прежнему работает "control userpasswords2" но на планшетах клавы то немае хардварной обычно...

(103)+ "клавы немае" это к вопросу вызова шортката Win+R

(102) Рефакторинг наше все, когда пишешь нечто большое то иногда 2-3 раза переписывать приходится. Потому что "первый блин комом" это классика жанра.

(103) Например скажите как отключить запрос пароля при загрузке (автологон сделать)?
Первая же ссылка при поиске - https://lifehacker.ru/2015/02/18/avtomaticheskij-vhod-windows-10-tp/

(106) "Сделайте правый клик на кнопке «Пуск» в левом нижнем углу экрана."

Как??? Как сделать "правый клик" без мышки на сенсорном экране?

(107) и да я в курсе что "долгий тап", но в инструкции по "первой ссылке" об этом ни слова!

(102) вот наваял такой вариант
в отдельном потоке опрашивает весы, показывает вес в отдельном окне. по требованию возвращает текущий вес. этот шкилет можно доработать до полной красоты с датчиками и прочими блэкджеками.
http://i85.fastpic.ru/big/2016/1201/32/9e6d3a1810a32665671fdf14c8425432.png

А подцепить bluetooth, к примеру, клаву не вариант? У меня даже к айпэду получалось ее цеплять, винда-то уж точно понимает

(110) к (107), (108)

(110) Ха девайсы на Win10 это "обычные компы" и большинство имеют usb-host так что переходник и обычная клава/мышка не проблема.

Суть то не в этом а в тупизне разрабов M$

(109) Думаешь ТС или его работодатели готовы платить? Были бы готовы уже давно наняли спеца.

(112) Вам просто нужно разобраться со вводом на устройстве, потому что ввод нестандартный, не такой как на десктопе. Разрабы тут ни при чем.

(113) думаю нет. я чисто по доброте душевной. решил попрограммировать немножко.

(114) Эээ а нафуя было засовывать десктопную ось на планшету?

(116)+ Причем в тоже самое время страдая непонятно чем и засовывая планшетный интерфейс в десктопную ось.

Эти вот плитки в Win8 были таким извратом на компах/ноутах без тача ))

(117)+ *принудительно засовывая

(116) потому что на это есть спрос. И пользоваться этим при желании можно, надо только включить голову в процесс.

(119) Да пользоваться можно, но включать голову это доп.затраты на которые можно пойти только при необходимости и(или) отсутствии вариантов.

А еще нуна с собой эту голову не забыть, что и подсказыает статистика продаж планшетов на андроид и на виндовс.

(120)+ В смысле планшеты на win это замечательная штука но для специфического применения с использованием специалистов.

(120) не хотите забивать голову - не надо! Есть леново йога и сурфейс про. Там клава в комплекте и все прекрасно и легко. Несите ваши денежки.

пацаны вам сюда http://4pda.ru/

Ну да, оффтоп. Закругляюсь, тем более что это спор о фломастерах

(123) Туда я только по делу, там флудить плохо получается, аудитория отмороженная ))

(123) Кста это пример когда форум стал основным в отличие от исходной странички, как и миста.

(113) (115) ну как бы зря... готовы и заплатить. в разумных пределах :)

(127) так платите быстрее пока художник в запой не ушел

(128) +1

вариант с правильной ВК наилучший

(109) Интересная особенность новой версии:
запускаю на терминале, порты пробрасываются в сессию, при запуске тест.ерт отваливается порт...
F:\Documents and Settings\denis>change port
AUX = \DosDevices\COM1
COM1 = \Device\RdpDrPort\;COM1:133\tsclient\COM1
COM2 = \Device\Serial1
COM7 = \Device\RdpDrPort\;COM7:133\tsclient\COM7
LPT1 = \Device\RdpDrPort\;LPT1:133\tsclient\LPT1
PRN = \DosDevices\LPT1

F:\Documents and Settings\denis>change port
AUX = \DosDevices\COM1
COM1 = \Device\RdpDrPort\;COM1:133\tsclient\COM1
LPT1 = \Device\RdpDrPort\;LPT1:133\tsclient\LPT1
PRN = \DosDevices\LPT1

весы на ком7 (в обработке поправил)
до этого было все норм.

(130) хрен знает. я в терминале не пробовал.

в инете надо поглядеть
http://forum.oszone.net/post-2019225.html

отправил другой вариант. может заработает

(133) результаты наблюдений:
Ком7 это действительно подключение через ЮСБ переходник, и порт отваливается (только на последних двух версиях ВК).
переключил на КОМ1 в мамке, - он не отваливается, но и никаких данных по КОМ порту не ходит, смотрю "Serial Port Monitor" ...
что локально, что на терминале
commScales
commError
Параметр задан неверно

при этом, включаю старый вариант (на MSCOMM) работает на ура.

(134) покаж код

у меня всё работает

(76) спасибо за идею. переписал получение данных вот так:
    ИначеЕсли РабочееМесто.ТипТО=Перечисление.ТипыВесов.SMART Тогда                              //SMART
        Если Весы.PortOpen <> 0 Тогда
            Если ЖдемПоказаний=1 Тогда
                Если Весы.InBufferCount < 13 Тогда
                    //Возврат;
                Иначе
                    Буфер= СокрЛП(Весы.Input);
                    пВес = Сред(Буфер,2,8);
                    глВес=Число(пВес);
                    ЖдемПоказаний=0;
                КонецЕсли;
            КонецЕсли;
            
            Весы.Settings = "19200,N,8,1";
            Весы.Output = Симв(080)+Симв(013); // команда P + возврат каретки  
            ЖдемПоказаний=1;
            пВес = глВес;
            //            Сообщить("прием+++"+Строка(Буфер)+"\\(("+Сред(Буфер,2,8)+"))//");
        КонецЕсли;
    ИначеЕсли РабочееМесто.ТипТО=Перечисление.ТипыВесов.CAS_Ci2001A Тогда                //       CAS_Ci2001A

функция вызывается каждую секунду, у меня фризов не наблюдается. завтра проверим на боевом рабочем месте.

(135) я в твоей конфиге и обработке пробовал (после того как в моей перестало показывать), только КОМ менял на 7 и на 1.

(137) а 19200 нарисовал тоже? там вроде 9600 было.
странно, что не работает. у меня как часы.

строка должна быть "19200,8,N,1"
может ты строку "19200,N,8,1" там поставил?

скорее всего :)

ВК.Старт("COM1","9600,8,N,1",10000,500,Симв(080)+Симв(013),"",1);

кстати да, только счас обратил внимание - в предыдущей версии не было параметров порта... может из-за скорости и сложился конфуз... счас проверю.

+ (141) поменял скорость на 19200, - то же самое
commScales
commError
Параметр задан неверно

Я думал ты 8 и N перепутал. По идее такая ошибка при конфиге порта должна вылететь. Завтра найду сканер, попробую. На виртуальных портах все работает. Даже через RDP.

(2) http://catalog.mista.ru/public/417830/

+(143) можно еще 0 вместо 1 поставить в параметрах. 0 у меня значит 1 бит четности.

(144) я уж думал не придешь

(137) > функция вызывается каждую секунду, у меня фризов не наблюдается. завтра проверим на боевом рабочем месте.

Нафиг такой опрос на операторском месте???

Тьфу блин. Не четности, а стоп бит. Короче "19200,8,N,0"

(146) Я думал ты сам посоветуешь
Использование классов .Net в 1С для новичков

Проверил на нульмодемном кабеле. И точно! Если 1, то выдает ошибку. Короче 19200,8,N,0 и будет работать.

(147) что-бы на форме "оперативно отображались изменения показаний... допустимо раз в 2 секунды, раз в 3 секунды ещё можно, но уже менее комфортно. большая скважность - негодится.
(150) сейчас буду посмотреть.

(150) локально заработало, но с разрядностью что-то не так:
 000006
это 64, 68 кг.
может в 1 с возвращать целиком буффер? а там вычленять?

(149) И это https://hsto.org/files/709/e3b/eea/709e3beeac44478e9195d2ed8b9fa1c7.PNG )

+ (152) и в окошке и в сообщении перед " 000006" идет непечатный символ типа буквы "г" в обратную сторону... наверно разделитель какой то.
кстати, обратил внимание, ты считываеш 8 бит из порта :
[02/12/2016 11:33:21] Written data
    50 0d                                             P.              
[02/12/2016 11:33:21] Read data
    02 20 30 30 30 30 30 35                           . 000005        
[02/12/2016 11:33:21] - Close port COM1

а я 13

[02/12/2016 11:35:56] Read data
    02 20 30 30 30 30 30 32 33 4b 47 4d 0d            . 0000023KGM.    
[02/12/2016 11:35:56] Written data
    50 0d                                             P.              
[02/12/2016 11:35:57] Read data
    02 20 30 30 30 30 30 32 31 4b 47 20 0d            . 0000021KG .

(154) Вероятно, что подразумевалось "ты считываешь 8 байт"

Но правильнее - до символа-терминатора считывать, 0d вроде...

(154) ну там просто стоит считывать всё подряд. нужно до терминатора считывать или чего там весы передают.

отправил новую версию. последний параметр - терминатор

типа так теперь запускать
ВК.Старт("COM3","19200,8,N,0",10000,500,Симв(080)+Симв(013),"",1,Симв(013));

потом сделаю чтобы можно было в поток код JS передавать и пускай читает пишет что угодно. типа очень универсально.

(160) И эти люди запрещают мне писать на Ruby ! :-)

(161) да пиши, пиши.

(161) ну и у меня будет всё в одной dll. JS будет встроенный. Или интерпретатор СИ встроенный. Или оба два.

А потом моя ВК станет международной шахматной столицей.

Чем вам ещё и JS упёрся - видимо - проблемы со сборкой мусора и залочкой объектов из-за этого вам просто не знакомы ?

(165) Да какая нафиг сборка мусора. Просто примитивные скрипты писать. Типа прочитал из порта, чего нибудь сделал и в 1с отправил.
Просто весы такая фигня, что универсально, без программирования ничего не получится. Какие нибудь весы, например, могут вес в формате BCD каком нибудь передавать. И чего с ними делать тогда? А так в скрипте все преобразования сделал и вернул в 1с красивое значение.

я ж не собираюсь NodeJS туда запихивать. Хотя пригодилось бы кому нибудь :)

(166) Был такой язык Pascal Script, он как-то попонятнее выглядел.
А если Microsoft Script Control прикручивать, то там VbScript есть - язык, в котором в функции и процедуры все параметры по ссылке передаются, и он быстрее JavaScript, реализованного в том же Microsoft Script Control.

(168) ну вот что-то из этого можно взять. или сразу треш в виде tcc

vk_rs232 вполне нормально работает. неправильно построен алгоритм работы с весами. Сейчас тоже бьюсь с весами. Ушел нафик от всех шатных мозгов. тензодатчики + Своя платка с ардулино и далее хоть в сеть хоть в ком порт, хоть в вайфай, хоть блюпуп. 20-30 баксов за электронику и весы выдают данные как мне нужно.

(152) Там по ссылке в 144 есть отчет правда на 8 ке есть отчет TestSerialPort
Внутри данные получаются

Процедура DataReceived(Данные)
    sp1 = Данные.sender;
    ШтрихКод = sp1.ReadExisting();
    Компорт = sp1.PortName;
    Сообщить(СтрШаблон("ШК=%1 Порт=%2",ШтрихКод,Компорт));
    
КонецПроцедуры


Можешь читать как массив байт

    bytes = sp1 .BytesToRead;
    buffer = Врап.СоздатьМассив("System.Byte",bytes);
    sp1 .Read(buffer, 0, bytes);

Ну и обрабатывай массив байт как тебе хочется