1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

таймер в серверном агенте можно сделать?

Тема в разделе "Lotus - Программирование", создана пользователем deeeman, 1 апр 2011.

  1. deeeman

    deeeman Well-Known Member

    Репутация:
    0
    Регистрация:
    4 дек 2007
    Сообщения:
    381
    Симпатии:
    0
    Привет!

    есть форма
    при ее закрытии на queryclose срабатывает код:

    Код:
    Call agent.RunOnServer(Source.Document.NoteID)
    запускается агент, который запускает еще один агент на серваке методом "tell amgr run":

    Код:
    Set tmpDoc = session.CurrentDatabase.GetDocumentByID(a.ParameterDocID)
    Call session.SetEnvironmentVar("tmpUnidDocVK", Cstr(tmpDoc.UniversalID))
    Call Session.SendConsoleCommand(session.CurrentDatabase.Server,{tell amgr run "} & session.CurrentDatabase.FilePath & {" 'NameAgent'})
    сделано для того чтобы клиент не залипал пока агент выполниться.
    так вот как можно сделать во втором агенте таймер?

    код типа:

    Код:
    Set NTimer = New NotesTimer( 15 секундов :) )
    On Event Alarm From NTimer Call Sub1 - Название функция которая вызоветься через 15 секунд
    не оправдал доверие...
     
  2. morpheus

    morpheus скриптописец

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    deeeman
    если надо просто подождать то может Sleep () ?
     
  3. Kizarek86

    Kizarek86 Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    20 июл 2007
    Сообщения:
    860
    Симпатии:
    6
    Код:
    Sub sTimer(pSecond As Double)
    Dim Starttime As New NotesDateTime( "" ) 
    Dim Endtime As New NotesDateTime( "" )
    Call StartTime.SetNow 
    Call EndTime.SetNow 
    While EndTime.TimeDifference( StartTime ) < pSecond
    Call EndTime.SetNow 
    Wend 
    End Sub
     
  4. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Репутация:
    0
    Регистрация:
    6 ноя 2007
    Сообщения:
    3.171
    Симпатии:
    21
    таймер на серверном агенте, это капец
    где-то тут уже выкладывали процедуру которая возвращает завтрашний день ;)
     
  5. deeeman

    deeeman Well-Known Member

    Репутация:
    0
    Регистрация:
    4 дек 2007
    Сообщения:
    381
    Симпатии:
    0
    kizarek

    спасиб!!!
     
  6. lmike

    lmike нет, пердело совершенство
    Lotus team

    Репутация:
    1
    Регистрация:
    27 авг 2008
    Сообщения:
    6.361
    Симпатии:
    336
    надеюсь что это шутка 1-го апреля (в обычные дни, за такие подходы, "убивать надо")
     
  7. deeeman

    deeeman Well-Known Member

    Репутация:
    0
    Регистрация:
    4 дек 2007
    Сообщения:
    381
    Симпатии:
    0
    lmike

    есесино!
     
Загрузка...
Похожие Темы - таймер серверном агенте
  1. Росифан
    Ответов:
    3
    Просмотров:
    345
  2. Shouldercannon
    Ответов:
    0
    Просмотров:
    1.087
  3. Aris
    Ответов:
    0
    Просмотров:
    1.069
  4. масенький
    Ответов:
    0
    Просмотров:
    1.181
  5. shilovec5377
    Ответов:
    0
    Просмотров:
    1.659

Поделиться этой страницей