Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Автозапуск задачи / 12 сообщений из 12, страница 1 из 1
19.05.2004, 12:32
    #32523693
Levran
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
Есть система, которая работает в реальном времени, написана на фоксе. Необходимо запустить в определенное время уже в ней некоторую процедуру. Подскажите как это лучше сделать. Заранее спасибо.
...
Рейтинг: 0 / 0
19.05.2004, 12:35
    #32523699
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
Если требуется запустить процедуру на клиенте (т.е. она в клиентском приложении живет)

Тогда в дугой форум

А если на MSSQL Server, тогда job
...
Рейтинг: 0 / 0
19.05.2004, 12:35
    #32523700
Levran
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
Есть система, которая работает в реальном времени, написана на фоксе. Необходимо запустить в определенное время уже в ней некоторую процедуру. Подскажите как это лучше сделать. Заранее спасибо.
...
Рейтинг: 0 / 0
19.05.2004, 13:28
    #32523867
Levran
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
Запускать нужно из того же приложения, которое запущено
...
Рейтинг: 0 / 0
19.05.2004, 13:34
    #32523885
alexFV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
Может я что-то не пойму. Так не пойдет:

IF MyTime = 'нужное время'
Proc()
ENDIF

где:
MyTime=TIME()
...
Рейтинг: 0 / 0
19.05.2004, 13:49
    #32523918
Levran
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
Не совсем. Задача запущена. Находится в режиме ожидания. И в <нужное время> должна запуститься некая процедура. Т.е. необходим механизм постоянного контроля времени. Что-то типа timer. Процедуру необходимо запускать раз в день.
...
Рейтинг: 0 / 0
19.05.2004, 13:58
    #32523940
alexFV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
Ну так и используй Timer.
...
Рейтинг: 0 / 0
19.05.2004, 14:01
    #32523947
Sjfx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
PUBLIC ot
CLEAR
* tt = CTOT("2004.05.19T13:44:04")	&& время запуска
tt = DATETIME() +  2 	&& запуск через  2  сек после этой строчки
ot = CREATEOBJECT("myt")
READ EVENTS  -- если ничем кроме запускаемой процы прога не занята
 

DEFINE CLASS myt as Timer
counter =  0 
PROCEDURE init
this.Interval = (m.tt - DATETIME()) *  1000 
PROCEDURE timer
this.counter = this.counter +  1 
WAIT WINDOW "пошла писать контора... " + STR(this.counter) nowa
?"do your proc"
this.enabled = .f.
RELEASE this
CLEAR EVENTS  -- если ничем кроме запускаемой процы прога не занята
 
ENDPROC
ENDDEFINE
...
Рейтинг: 0 / 0
19.05.2004, 14:07
    #32523958
Sjfx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
все строки с Counter можно выбросить, остались от рабочего куска...
...
Рейтинг: 0 / 0
19.05.2004, 15:10
    #32524145
Levran
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
2Sjfx:
Спасибо.
...
Рейтинг: 0 / 0
19.05.2004, 23:06
    #32524954
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
Создаете глобальный класс таймера в котором проверяете время и запущена ли Ваша задача. Далее при запуске программы его стартуете...

Проблема - если что-то делаете тяжелое, то таймер может и не пробиться...

Good luck!
...
Рейтинг: 0 / 0
19.05.2004, 23:11
    #32524957
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск задачи
Странно что по два одинаковых сообщения... Пора нам в форум модератора, не всем жк только ПТ модерировать Хотя там интереснее...
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Автозапуск задачи / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]