Понадобилось мне сегодня сделать паузу в коде. Работа присходит на сервере, так что Предупреждение не подходит. Мотать цикл тоже не подходит, ибо грузит сильно проц. На просторах было найдено такое решение:

ИнтервалОжидания = Таймаут*1000;
    ИмяФайлаВрем = ПолучитьИмяВременногоФайла("js");
    ТекстовыйДокумент = Новый ТекстовыйДокумент;
    ТекстовыйДокумент.УстановитьТекст
    (
    "if (WScript.Arguments.Count()==0)
    |    WScript.Quit();
    |else
    |    if (isNaN(parseInt(WScript.Arguments(0))))
    |        WScript.Quit();
    |WScript.Sleep(WScript.Arguments(0));"
    );
    ТекстовыйДокумент.Записать(ИмяФайлаВрем,КодировкаТекста.ANSI);
    WshShell = Новый COMОбъект("WScript.Shell");
    WshShell.Run("wscript.exe """+ИмяФайлаВрем+""" "+Формат(ИнтервалОжидания,"ЧГ=0"),0,-1); 
    УдалитьФайлы(ИмяФайлаВрем);

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

Ээх. И опять исключительно виндовый способ

Линуксовй вроде только один: поднять web сервер, там простейший cgi скрипт sleep и на сервере вызывать страничку через http соединение.

Делал задержку на 1С так, вместо 28882 можно любой свободный порт.

Procedure Ожидание(Таймаут)
    ВремяЗавершения = CurrentDate() + Таймаут;
    While CurrentDate() < ВремяЗавершения Do
        Try
            Соединение = New FTPConnection("127.0.0.1", 28882);
        Except
        EndTry;                    
    EndDo;
EndProcedure

На "заре" программирования, меня учили, что передача управления на маркер и ожидание - это как минимум плохой код, и допустим только в крайнем случае...

Зачем нужна пауза?

Обычно в это время что-то происходит. Тогда этим "что-то" можно (нужно) управлять. Например запускается внешняя программа и нужно ждать ее окончания - тогда:

Перем oExec Экспорт

Функция ЗапуститьПрограмму() Экспорт
    
    Попытка
        
        WshShell = НОВЫЙ COMОбъект("WScript.Shell");
        oExec = WshShell.Exec("d:\Program Files\Программа.exe");
        
        //Сообщить(СокрЛП(oExec.Status), СтатусСообщения.Информация);
        //ИД= oExec.ProcessID;
        //Сообщить("ИД процесса:"+ИД, СтатусСообщения.Информация);
        
        Возврат Истина;
        
    Исключение
        
        Сообщить(ОписаниеОшибки(), СтатусСообщения.ОченьВажное);
        oExec=Неопределено;
        
        Возврат Ложь;
        
    КонецПопытки;
    
КонецФункции

Процедура ЗакрытьПрограмму() Экспорт
    
    СостояниеПрограммы=oExec.Status;
    НомерПопытки=0;
    
    Пока СостояниеПрограммы=0 Цикл
        
        //ОбработкаПрерыванияПользователя();
        
        НомерПопытки=НомерПопытки+1;
        Состояние("Закрытие ПРОГРАММЫ - "+СокрЛП(НомерПопытки));
        oExec.Terminate();
        СостояниеПрограммы=oExec.Status;
        
        Если НомерПопытки>50 Тогда
            Сообщить("Не смогли выгрузить ПРОГРАММУ за 50 попыток", СтатусСообщения.Внимание);
            Прервать;
        КонецЕсли;
        
    КонецЦикла;
    
КонецПроцедуры;

Тогда можно ожидать окончания программы - СостояниеПрограммы=oExec.Status;

Как правило, и в других ситуациях есть решение - просто нужно "сформулировать вопрос по другому"

Сообщение отредактировал Vofka - 11.10.12, 9:00

yaxus , не пробовал ещё, но возьму на заметку .
Хотя поторопился. Тоже ж цикл используете..
add: хотя, если добавлять таймаут, то ваш вариант имеет место быть

AnryMc, замечательно. Вот только про цикл я писал в самом первом сообщении.


Обоснуйте.

Сообщение отредактировал Vofka - 11.10.12, 9:08

можно использовать банальный ping 127.0.0.1 и таймаут и количество - все можно задать параметрами

Написал такое, потом подумал, может что-то есть оптимальней, но не нашел...

Процедура Пауза(Секунд = 1)
    КонецПаузы = ТекущаяДата() + Секунд;
    Пока ТекущаяДата() < КонецПаузы Цикл
        // ...
    КонецЦикла;
КонецПроцедуры

logist, такой метод - убийство для процессора.

Если нужен метод не использующий внешнюю среду :

Создаем форму выбора, в ней через ПодключитьОбработчикОжидания делаем аля таймер, если больше определенного времени, то форму выбора закрыть.

В нужной нам части алгоритма вызываем ( не открываем ) эту формувыбора модально ждем... профит.

Это слишком долго (в плане выполнения кода), у меня задача по проще, вероятно ее можно решить по другому, этот код просто первое что пришло на ум.


в прямом смысле? т.е. процессор как-то убивается физически? (это не стеб, реальный вопрос)

а вот тут вообще не понял, делали замеры производительности ( пруфы плз. ) ?

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

5-ть минут на реализацию этого метода, малая цена за кроссплатформенность.

Не физически, а логически . Я имел ввиду, что такая пауза заставляет процессор сильно шевелиться.

ВБСкрипт = СоздатьОбъект("WScript.Shell");                                                                                     
ВБСкрипт.Run("cscript "+ ИмяСкрипта , 0,-1);    // Пауза

ИмяСкрипта = Имя файла с содержимым:

для этого еще надо сохранять файл с этим содержимым, что тоже вызывает дополнительные действия системы.

Вставлю свои 5 коп., хотя в 8-й версии не пишу. В 7.7. очень хорошо с таким заданием справляется DialMail.dll и мне что-то кажется что 8-я ее тоже поддерживает.


Синтаксис на 7.7.
Ожидание(<Мсек>);
Назначение
Приостанавливает работу 1С на <Мсек> миллисекунд без загрузки процессора. Окно 1С в данное время не перерисовывается.
Возвращаемое значение:
НЕТ
Параметры:
<Мсек> - число. Количество миллисекунд ожидания.

Пример кода на 7.7.:

Перем SystComm;

Процедура При открытии()

Если ЗагрузитьВнешнююКомпоненту("DialMail.dll") <> 1 Тогда
        Сообщить("Компонента 'DialMail.dll' не найдена", "!");
    КонецЕсли;
SystComm = СоздатьОбъект("AddIn.SystComm");

КонецПроцедуры;

Процедура Пауза(Время)
    SystComm.Ожидание(прВремя);
КонецПроцедуры

Сегодня понадобилось снова сделать паузу. Нашел ещё один вариант решения:

ВС_Шелл = Новый COMОбъект("WScript.Shell"); // для 7.7: ВС_Шелл = СоздатьОбъект("WScript.Shell");
КоличествоСекунд = 10;
ВС_Шелл.Run("ping 127.0.0.1 -n "+КоличествоСекунд, 0, 1);

Правда у меня пауза получается на 1 секунду меньше, чем указано в КоличествоСекунд. Естественно, это не критично, просто надо принять к сведенью