1с как сделать паузу между исполнением кода
Обновлено: 07.07.2024
Предыстория создания ветки:
Необходимо реализовать задержку после загрузки страницы в ИЕ.
Подождать пока загрузиться страничка.
Я сделал:
While IE.ReadyState < 4 Do EndDo;
Роман говорит - не кошерно, нужен обработчик ожидания.
Конкретно для этой задачи.
(0) ну так чисто чтоб поржать:
3. Пустой цикл некошерен, я знаю кошерное решение. (23) у хтмл документа есть событие - документ сформирован
(18) На самом деле верно. Последний раз заморачивался паузами лет 6 назад когда был новчиком. Сейчас почему-то все стандартными механизмами получается - вроде (26).
вот пятничное решение:
Берем плату stm32 к ней цепляем реле, провод из розетки через реле к человеку-таймеру
>
тут подаем 5В на реле
>
3. Пустой цикл некошерен, я знаю кошерное решение. (25) Ну как. Хочу процедуру, которая у меня вернет все обратно через x секунд :))
(36) Общий случай — это когда есть код из 100 000 000 000 000 000. строк кода и его принципиально нельзя и неправильно расхреначивать в разные процедуры, до и после обработчика ожидания.
То есть просто хотелось бы в нужных местах написать что-то типа ПодождемНемного(5) и все :))
По сабжу. Точно да. Никогда не сталкивался. Когда-то что-то ваял на Delphi как-то хорошо обходилось. А сейчас таких задач не возникало.
Написал, чтобы почитать потом к какому выводу пришли.
(13) Не извращенцев. Просвященных :)
2. Пустой цикл некошерен, я не знаю кошерного решения (41) клиент просто не заплатил, нужно немного затормозить работу его 1ски ))
(40) (41) тогда вам кошерней всего так:
(43) В таком случае действительно лучше пустой цикл. Или чикл с вычислением синуса, чтобы и цифровой сопроцессор загрузить>Подождать пока загрузиться страничка.
(23) откуда ты знаешь сколько ждать загрузки страницы? На одном канале она за милисекунду загрузится, на втором минуту будет грузится, а может сервис перегружен и сервер ответит через неопределенное время =).
И повторюсь нафиг там IE?
"Из вариантов я знаю пустой цикл, но тут многие предлагают за тако расстреливать, как за GOTO.
(50) А как его можно не юзать, когда нужно что-то грузануть с нета, при этом весьма изощренно авторизоваться на сайте, попереходить по разным закладкам и прочее?
Чтоб процессорное время не пропадало зря предлагаю такую функцию:
Всё что предлагают в качестве "решений" тут полная туфта. Возьму конфу "Нетленка" оттуда внешнюю компоненту, в ней есть возможность паузы делать.(31) Вариант ещё некошернее.
Конечно, похвастаться знанием работы с мультиплатформеностью здорово, но лучше всё- таки решать в пределах одной системы.
Например, так:
Этот способ тоже плох, но гораздо лучше 31-го.
(57) Функция должна чего-то возвращать. Процедура наверное
А пустой цикл - это зло, которое процессор на 100% может загрузить.
3. Пустой цикл некошерен, я знаю кошерное решение. (59) Да ХЗ.
Сначала не разобрались с обработкой ReadyState, а потом уж не стали переделывать.
+(68) Опять же, могут быть проблемы со всякими FetElementByID возможно
(63) имхо даже проще чем обычно, используя фаербаг в фаерфоксе отлавливаем запросы и ответы, обычно там даже парсить ничего не надо все в xml идет.
(69) хз, мне кажется парсить лучше регулярными выражениями чем юзать DOM, регулярки быстрей намного.
(62) ну, когда у тебя 100 юзеров крутят код из (31) - все работает, а когда (62) - не очень.
(50) В чем прикол юзать IE? Зачем?
Подробный MSDN. И нужно создавать десяток объектов для ускорения работы.
(0) 1С работает достаточно медленно, чтобы никогда не потребовалось дополнительная задержка.
(72) ping localhost лучше, чем прочитать системное время?
Может и так, но аргументов мало. Неубедительно.
(77) Это понятно, что быстрей и правильней. Только вот разбираться с этим не стали, так как dom модель очевидней.
А так бы да - посылать запросы и парсить ответы в 100 раз быстрей. Но переделывать, думаю, слишком затратно будет.
При обработке данных мне необходимо программно делать паузы через определенное количество обработанных данных на определенное количество секунд.
Пришло в голову два варианта:
Вариант 1. Используем _getPerformanceCounter():
Для НомерСотрудника = 1 По КолвоСотрудников Цикл
Если (НомерСотрудника>1) И (НомерСотрудника%20 = 1) Тогда
СчетчикВремени1 = _getPerformanceCounter();
Пока 1=1 Цикл
СчетчикВремени2 = _getPerformanceCounter();
ПаузаСекунд = (СчетчикВремени2-СчетчикВремени1)/1000;
Если ПаузаСекунд > 5 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
Вариант 2. Используем Предупреждение():
Для НомерСотрудника = 1 По КолвоСотрудников Цикл
Если (НомерСотрудника>1) И (НомерСотрудника%20 = 1) Тогда
Предупреждение("Ожидание оправки пакета "+Цел(НомерСотрудника/20)+". Пожалуйста, не нажимайте кнопку ""ОК"".", 5);
КонецЦикла;
Плюсы: Не нагружает процессор.
Минусы: на каждое предупреждение отображается табличка и пикает сигнал спикера.
Вопрос: Есть ли вариант решения, при котором не нагружался бы процессор, и не отображались окна, и не пикал спикер?
Есть внешняя компонента (кажется, здесь где-то видел), называется TerminalSleep. Она как раз и делает системный вызов sleep(кол-во миллисекунд) не нагружая процессор.
(10)Addin Romix'а делает паузу на указанное число мс
Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"vk_sleep_1C.dll")=1 Тогда
vk_sleep=СоздатьОбъект("Addin.vk_sleep_1C");
vk_sleep.sleep(5000);
КонецЕсли; (1) можно запустить командную строку с паузой и подождать ее выполнения. (1) если все это выглядит сложно, то просто делайте цикл с бесполезными действиями, так раньше делали разного рода специалисты из франчайзинга. (36) ture, цикл с бесполезными действиями грузит ядро на 100%, а условие ТС - "грузить не должно". (37) ну тогда открыть предупреждение с указанием секунд.
scr = СоздатьОбъект("WScript.Shell");
scr.Run("ping 127.0.0.1 -n "+СокрЛП(Число(ЗадержкаСекунд)),0,1);
Не нагружает процессор и не пикает спикером.
Скрипт=Новый ТекстовыйДокумент();
Скрипт.УстановитьТекст
(
"if (WScript.Arguments.Count()==0)
| WScript.Quit();
|else
| if (isNaN(parseInt(WScript.Arguments(0))))
| WScript.Quit();
|WScript.Sleep(WScript.Arguments(0));"
);
Скрипт.Записать(КаталогВременныхФайлов()+"sleep.js",КодировкаТекста.ANSI);
WshShell=Новый COMОбъект("wscript.shell");
Сообщить(ТекущаяДата());
WshShell.Run("wscript.exe """+КаталогВременныхФайлов()+"sleep.js"" "+Формат(ИнтервалОжидания,"ЧГ=0"),0,-1);
Сообщить(ТекущаяДата());
УдалитьФайлы(КаталогВременныхФайлов()+"sleep.js");
scr = СоздатьОбъект("WScript.Shell");
scr.Run("ping 127.0.0.1 -n "+СокрЛП(Число(ЗадержкаСекунд)),0,1);
Не нагружает процессор и не пикает спикером.
Shell = Новый COMОбъект("WScript.Shell");Shell.Run("ping 127.0.0.1 -n 2",0,1);
Есть еще в семерке стандартный вариант:
ОбработкаОжидания(<?>,)
Синтаксис:
ОбработкаОжидания(<ИмяПроцедуры>,<ИнтервалВызова>)
Назначение:
Инициирует периодический вызов процедуры глобального модуля с заданным интервалом времени.
Возвращает имя процедуры глобального модуля, которая назначена для периодического запуска (на момент до исполнения процедуры).
Параметры:
<ИмяПроцедуры> - необязательный параметр. Строковое выражение - имя процедуры глобального модуля, которая будет вызываться периодически с временным интервалом <ИнтервалВызова>. Тело процедуры <ИмяПроцедуры> должно быть написано разработчиком конфигурации в глобальном программном модуле. Если в качестве параметра передается 'пустая строка', то ранее запущенный процесс прекращается.
<ИнтервалВызова> - необязательный параметр. Числовое выражение - интервал времени в секундах, с которым периодически будет вызываться процедура глобального модуля <ИмяПроцедуры>. Если в качестве параметра передается 0 (ноль), то ранее запущенный процесс прекращается.
Это немножко не то. Используя функцию ОбработкаОжидания() можно сделать таймер, а мне нужна была пауза при исполнении кода. scr = СоздатьОбъект("WScript.Shell");
scr.Run("sleep "+СокрЛП(Число(Сек)),0,1); onyx пишет:
scr = СоздатьОбъект("WScript.Shell");
scr.Run("sleep "+СокрЛП(Число(Сек)),0,1);
Не работает в 7-ке. Пишет ошибку:
scr.Run("sleep "+СокрЛП(Число(Сек)),0,1);
Ребят, зачем такие костыли делать? Есть простой способ используя встроенные методы, ничего не нагружает, не заметно для пользователя, работает как на дбф так и на скуле:
Процедура Пауза ( Время )
чЧас = 0 ; чМин = 0 ; чСек = 0 ;
ТекущееВремя( чЧас , чМин , чСек );
чТекВремя = чЧас * 3600 + чМин * 60 + чСек ;
чВремяЗавершения = чТекВремя + Время ;
Пока чТекВремя < чВремяЗавершения Цикл
ТекущееВремя( чЧас , чМин , чСек );
чТекВремя = чЧас * 3600 + чМин * 60+ чСек ;
КонецЦикла;
КонецПроцедуры;
В переменную "время" передаете числовое значение секунды необходимое для паузы (60 - минута, 3600 = час - это садизм :))) ), работает с любыми числами, универсально
(13) В 7.7 как то не замечалось, что бы цикл не грузил процессор. В терминале подобные решения могут привести к проблемам с быстродействием базы в целом. (13) madvovik, Предложенное Вами решение аналогично предложенному мною в самом начале первому варианту и грузит одно ядро процессора на 100 %. Вы проверяли предложенное решение?Процедура ПродолжениеОбработки
ОбработкаОжидания("ПродолжениеОбработки",0);
//Продолжаем обработку
А=В;
Процедура НачалоОбработки
В=С;
//Тут начало
//Запускаем паузу
ПаузаСек=3;
ОбработкаОжидания("ПродолжениеОбработки",ПаузаСек);
Единственная проблема с модальностью форм обработка ожидания при модальных формах и не модальных рвботает по разному (честно не помню как)
(17) VLMedvedev, Это уже предлагали в (6), я ответил в (7). Пожалуйста, читайте ветку перед ответом. ну она работает только в ГЛ, а запустить ее из модуля обработки к примеру, будет работать?процедура ТвояПроц - в этой же обработке, а не в ГМ
ОбработкаОжидания(<?>,)
Синтаксис:
ОбработкаОжидания(<ИмяПроцедуры>,<ИнтервалВызова>)
Назначение:
Инициирует периодический вызов процедуры глобального модуля с заданным интервалом времени.
Возвращает имя процедуры глобального модуля , которая назначена для периодического запуска (на момент до исполнения процедуры).
Параметры:
<ИмяПроцедуры> - необязательный параметр. Строковое выражение - имя процедуры глобального модуля , которая будет вызываться периодически с временным интервалом <ИнтервалВызова>. Тело процедуры <ИмяПроцедуры> должно быть написано разработчиком конфигурации в глобальном программном модуле . Если в качестве параметра передается 'пустая строка', то ранее запущенный процесс прекращается.
<ИнтервалВызова> - необязательный параметр. Числовое выражение - интервал времени в секундах, с которым периодически будет вызываться процедура глобального модуля <ИмяПроцедуры>. Если в качестве параметра передается 0 (ноль), то ранее запущенный процесс прекращается.
Я думаю в в описании достаточно часто, указывается на ГМ?
(20)в (19) - недокументированная возможность
ОбработкуОжидания() можно использовать с локальной процедурой
"То что нет типовых механизмов, явно указывает на то что производится попытка "неправильного" использования программного продукта.
Судя по тексту
"
Предупреждение("Ожидание оправки пакета "+Цел(НомерСотрудника/20)+". Пожалуйста, не нажимайте кнопку ""ОК"".", 5);
"
видимо, Вы хотите производщить задержку при обмене данными.
Если это так, то ожидание, не "красивый" способ и не лучший с точки зрения реализации обмена.
Я бы переписал механизм обмена следующим образом:
1. С помощью плана обмена фиксировать изменения в необходимом типе объектов (по изменению которого вы понимаете что нужно обмениваться)
2. Реализовать регламентное задание:
2.1 Получаете все измененные объекты.
2.2 Осуществляете обмен.
2.3 Если обмен прошел успешно то удаляете изменения в плане обмена.
При такой реализации, обмен будет "невидим" для пользователей и обмен из за этого будет работать более стабильно. Расписание регламентного задания можно настроить хоть каждую секунду, но я бы рекомендовал посоветоваться с Заказчиком и сделать раз в 5 минут. Еще одним плюсом является то что регламентное зададание будет работать на сервере и не зависеть от работы клиентов."
Прошу прощения, не обратил внимание на то что эта тема по 7.7 и решение написал для 8.х, но возможно в 7.7 есть аналогичные механизмы.
Более подробно про проверенные варианты:
1) ping и winmgmts. Оба варианта прекрасно работают, практически не нагружая процессор.
2) Пустой цикл. Вариант работающий, часто предлагаемый на форумах. Имеет большой минус - грузит процессор.
3) Вариант с использованием Sleep. Насколько я понимаю, требуют наличия программы sleep.exe. На моем компьютере такой нет, варианты проверить не удалось.
4) SleepJs и SleepVbs. Работают. Неплохой вариант. Варианты отличаются только алгоритмом запуска команды.
5) TimeoutWs и Timeout. Работают. Неплохой вариант. Варианты отличаются только алгоритмом запуска команды. Timeout показывает черное окно при каждом запуске паузы.
6) DynamicWrapper. Нужна dll. Этот вариант не проверял, так как искал вариант без внешних компонент.
В прилагаемой обработке все варианты можно протестировать в своей базе и выбрать наиболее подходящий.
Есть обычная и управляемая форма, поэтому запускать можно в любой базе. Код открыт.
Протестировано на версиях 8.2 и 8.3.11.
Специальные предложения
Кроме очевидного - задержки, не нагружая системные ресурсы - этот метод даёт пользователю возможность прервать длительный процесс, а нам - корректно отработать это прерывание и сделать всё красиво.
Ах, да, и самое, наверное, важное: этот метод работает с любым клиентом в любой операционной системе. В отличие от.
user1334089; viktor3d; independ; Merkalov; hydro2588_2015; user1058740; SVSVSV999; adhocprog; seperblunt2; DarkUser; y.dyachenko; TreeDogNight; necropunk; jif; Yakud3a; Gluk_1C; mickey.1cx; vano-ekt; forseil; NeviD; WizaXxX; + 21 – Ответить(4) +1, какой-то набор вредных советов в статье :) Если только нужно именно на сервере пауза, в очень редких случаях.
Найдено в недрах БСП:
Платформо-независимо, работает на сервере, не нагружает процессор.
Вызов из БСП:
Найдено в недрах БСП:
Платформо-независимо, работает на сервере, не загружает процессор.
Вызов из БСП (пример):
То, что Вы предлагаете, принципиально не годится, именно из-за асинхронности. Нужна ПАУЗА! А у Вас не будет никакой паузы. Висящий вопрос в асинхронном режиме - это не пауза, т.к. программа уже пошла вовсю дальше работать. То, что Вы предлагаете, принципиально не годится, именно из-за асинхронности. Нужна ПАУЗА! А у Вас не будет никакой паузы. Висящий вопрос в асинхронном режиме - это не пауза, т.к. программа уже пошла вовсю дальше работать.
То есть, как делать формы для работы в асинхронном режиме, Вы не умеете. Но это - недостаток Вас как специалиста, а не моего ответа как алгоритма.
Подскажу для тех, кто в танке: код в методе ПриОткрытииЗавершение() выполнится только после завершения ожидания.
Переносите в него всё, что должно было отработать после паузы, и всё!
То есть, смысл моего замечания Вы не поняли. Но это - недостаток Вас как специалиста, а не моего замечания :).
Уж конечно, я понимаю, что "код в методе ПриОткрытииЗавершение() выполнится только после завершения ожидания". Но вот то, что ПОСЛЕ ПоказатьВопрос - выполнится сразу. И вот этот "гениальный" подход : "Переносите в него всё, что должно было отработать после паузы, и всё" - применим не всегда. Или для этого нужно извратиться так, как рвать гланды через Ж. Статья вообще не об этом, а о паузе. А это не ПАУЗА ( впрочем, что-то я повторяюсь, а зачем ? ) Статья не настолько полезна, насколько вредна.
Если нужна пауза в клиентском коде, то есть ПодключитьОбработчикОжидания() и не нужно изобретать велосипед.
Если нужна пауза в серверном коде, то что-то не так с логикой приложения. Если нужна пауза в серверном коде, то что-то не так с логикой приложения.
Вы считаете, что обработкам, выполняющимся на сервере, совсем никогда не нужна задержка выполнения?
Реальный пример кода, где обработка ждет, когда все задания отправятся на принтер. Кстати, применен один из методов паузы, описанный автором статьи:
3) Варианты с использованием Sleep. Насколько я понимаю, требуют наличия программы sleep.exe.
Не соглашусь с автором - вариант SleepJs прекрасно работает.
(7) Работает, у меня пауза была не в секундах, а в миллисекундах, поэтому я решил, что не работает.Будет платформенонезависимо, будет работать на клиенте. Но опять-таки, не работает в безопасном режиме (хотя на сервере профиль безопасности можно настроить, чтобы работало - для КОРП лицензии сервера).
Если очень хочется ждать на сервере, то на мой взгляд наименее костыльный способ - это ожидание фоновым заданием самого себя.
json; adhocprog; uno-c; KEV_SZK; JohnyDeath; Evil Beaver; Krio2; Darklight; nixel; azubar; Labotamy; + 11 – ОтветитьОжидание на фоновом задании - самое интересное решение (сам только что хотел предложить такое же) - но, надо бы проверить как будет вести себя в файловой базе. Предложу ещё фичу - один раз запустить "бесконечное" регл. задание (аналогично ждущее завершения самого себя) - и всем остальным сеансам обращаться на ожидание завершения ФЗ этого регл. задания. Но будет одна пользовательская лицензия расходоваться на регл. задание. Но ФЗ доступны только на сервере или в толстом клиенте - но для длительного ожидания можно и в серверный контекст переходить - это не проблема.
Остальные все советы платформенозависимые (хотя некоторые подходы можно переработать так, чтобы они имели реализацию для разных платформ).
Использовать WshShell
WshShell = Новый COMОбъект("Wscript.Shell");
WshShell.Run("Wscript.exe. ")
Всё же не рекомендую - 10-я версия платформы на это может ругаться, да ещё и в безопасном режиме работать не будет.
Но если надо так - то лучше "ЗапуститьПриложение(КомандаWindows,,Истина);" - по крайней мере будет работать в Windows, Linux и MacOS (c WEB-клиентом могут быть проблемы), где теперь тоже есть клиенты 1С.
Если нужно чисто на клиенте - то придётся извращаться с "ПодключитьОбработчикОжидания" - если нужно платформеннонезависимое решение, работающее в безопасном режиме, без модальности.
Но прямо среди кода остановиться так не получится - но, на мой взгляд, если такой код разбить на части через "ПодключитьОбработчикОжидания" не получится - значит там явно очень плохой дизайн.
Либо, нужно просто написать классический бесконечный цикл (думаю, что сюда попадут лишь короткие паузы - не более пары секунд- можно и покрутить проц клиента - коли уж очень нужно).
Или писать платформеннозависимый не безопасный код через вызов «ЗапуститьПриложение» или, ожидать на фоновом задании (регламентном или специально запускаемом), ждущим самого себя; с заходом в серверный контекст выполнения (если это не толстый клиент).
В общем всё ещё ждём, когда 1С встроит в платформу системную функцию паузы. давно ждём.
Для к = 1 По ЗадержкаВСекундах Цикл
ПолучитьCOMОбъект ( "winmgmts:" ). ExecNotificationQuery ( "Select * from __instancemodificationevent where TargetInstance isa 'Win32_UTCTime'" ). NextEvent ();
КонецЦикла;
ИначеЕсли Вариант = "Пустой цикл" Тогда // загрузка процессора до 100%
ДатаЗавершенияПаузы = ТекущаяДата () + ЗадержкаВСекундах ;
Пока ТекущаяДата () ДатаЗавершенияПаузы Цикл
ОбработкаПрерыванияПользователя ();
КонецЦикла;
ИначеЕсли Вариант = "Sleep" Тогда // нужна установленная программа sleep.exe
WScriptShell = Новый ComОбъект ( "WScript.Shell" );
WScriptShell . Run ( "sleep " + Формат ( ЗадержкаВСекундах , "ЧДЦ=0; ЧГ DynamicWrapper" Тогда // используется внешняя библиотека. д.б. установлена KERNEL32.DLL
DynamicWrapper = Новый ComОбъект ( "DynamicWrapper" );
DynamicWrapper . Register ( "KERNEL32.DLL" , "Sleep" , "i=l" , "f=s" );
DynamicWrapper . Sleep ( ЗадержкаВСекундах );
ИначеЕсли Вариант = "SleepJs" Тогда // используется WScript.Shell
WScriptSleep = Новый ТекстовыйДокумент ();
WScriptSleep . УстановитьТекст
( "if (WScript.Arguments.Count()==0)
| WScript.Quit();
|else
| if (isNaN(parseInt(WScript.Arguments(0))))
| WScript.Quit();
|WScript.Sleep(WScript.Arguments(0));" );
WScriptSleep . Записать ( КаталогВременныхФайлов ()+ "sleep.js" , КодировкаТекста . ANSI );
WScriptShell = Новый COMОбъект ( "wscript.shell" );
WScriptShell . Run ( "wscript.exe """ + КаталогВременныхФайлов ()+ "sleep.js"" " + Формат ( ЗадержкаВСекундах * 1000 , "ЧГ=0" ), 0 , - 1 );
УдалитьФайлы ( КаталогВременныхФайлов ()+ "sleep.js" ); // обязательно чистим каталог
ИначеЕсли Вариант = "SleepVbs" Тогда // используется WScript.Shell
SignS = Формат ( ТекущаяДата (), "ДФ=yyyyMMddhhmmss" );
ПутьScript = КаталогВременныхФайлов ()+ "SleepScript" + SignS + ".vbs" ;
WScriptSleep = Новый ТекстовыйДокумент ;
WScriptSleep . ДобавитьСтроку ( "WScript.Sleep(" + Формат ( ЗадержкаВСекундах * 1000 , "ЧГ=0" )+ ")" );
WScriptSleep . Записать ( ПутьScript , КодировкаТекста . OEM );
WScriptShell = Новый COMОбъект ( "WScript.Shell" );
WScriptShell . Run ( "wscript.exe """ + ПутьScript + """" , 0 , 1 );
УдалитьФайлы ( ПутьScript ); // обязательно чистим каталог
ИначеЕсли Вариант = "TimeoutWS" Тогда // используется WScript.Shell
TimeoutWindows = "Timeout /T " + Формат ( ЗадержкаВСекундах , "ЧГ=0" ) + " /NoBreak" ;
WScriptShell = Новый COMОбъект ( "WScript.Shell" );
WScriptShell . Run ( TimeoutWindows , 0 , - 1 );
ИначеЕсли Вариант = "Timeout" Тогда // используется WScript.Shell, но показывает черное окно при каждом старте паузы
TimeoutWindows = "Timeout /T " + Формат ( ЗадержкаВСекундах , "ЧГ=0" ) + " /NoBreak" ;
ЗапуститьПриложение ( TimeoutWindows ,,Истина);
Читайте также: