Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как сделать планировщик? замучался... не получается 
:(
    Опции темы
h2o
Дата 1.12.2005, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 199
Регистрация: 19.8.2005

Репутация: 1
Всего: 1
Нашел в чем ошибка! у тебя там переменная tt не инициализирована была. Теперь работает! вот только я ему указал запустить прогу, а он мне её раз 20 запустил (20 экземпляров), он ее запускал пока я не вырубил всё ресетом в делфе
--------------------
Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!
PM MAIL   Вверх
Alexeis
Дата 1.12.2005, 11:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Дело в том что эту часть проекта вчера просто не успел отладить
долго мучал потоки так что попробую исправить ошибки (вероятно есть)

если можешь пришли файлик samples.bpl
Добавлено @ 12:03
еше в Procedure TWorkThread.test;
надо строчку заменить на
pNone : incYear(ShEvents[i].Next, 100);

Цитата
tt не инициализирована

как инициализировал?

Это сообщение отредактировал(а) alexeis1 - 1.12.2005, 12:13


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
h2o
Дата 1.12.2005, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 199
Регистрация: 19.8.2005

Репутация: 1
Всего: 1
Код

if Calendar1.Visible
      then
        t.day := Calendar1.Day;

      [b]tt:=Now;[/b] //ну или занулить, ну вообщем нельзя неинициализированными переменные оставлять перед их использованием, из-за этого глюки бывают!

      RecodeMilliSecond(tt, 00);
      RecodeSecond     (tt, 00);
      RecodeMinute     (tt, t.min);
      Recodehour       (tt, t.hour);
      RecodeDay        (tt, t.Day);
      RecodeMonth      (tt, t.month);
      RecodeYear       (tt, t.Year);

--------------------
Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!
PM MAIL   Вверх
Alexeis
Дата 1.12.2005, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата
вот только я ему указал запустить прогу, а он мне её раз 20 запустил (20 экземпляров

Я думаю что ошибка в установке даты

ShEvents[Length(ShEvents) - 1].Next

нашел ошибку
Код


 Procedure TWorkThread.test;
 var
   i : integer;
   d : TDT;
   t : TDateTime;
   s1, s2 : Ansistring;
 Begin
   d := GetCurrentDateTime;
   with form1
   do
     Begin
       For i := 0 to High(ShEvents)
       do
         Begin
           DateTimeToString(s1,'yyyy/mm/dd/hh/nn', d.Standart);
           DateTimeToString(s2,'yyyy/mm/dd/hh/nn', ShEvents[i].Next);
           if s1 > s2
           then
             Begin
               ShellExecute(Handle, nil, PChar(ShEvents[i].StarAp),
                             nil, nil, SW_SHOW);

               t := ShEvents[i].Next;
               Case ShEvents[i].Period of
                 pNone : t := incYear(t, 100); //вот так верно
                 pHour : t := incHour(t, 1);
                 pDay  : t := incDay (t, 1);
                 pWeek : t := incWeek(t, 1);
                 pMonth: t := incMonth(t, 1);
                 pYear : t := incYear(t, 1);
               end;
              ShEvents[i].Next := t;
             end;
         end;
     end;
 end;



Это сообщение отредактировал(а) alexeis1 - 1.12.2005, 13:37


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Alexeis
Дата 2.12.2005, 10:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
h2o
Вот новый переработанный и улучшенный вариан планировщика
Это еще не готовая программа но вроде отладил...

http://alexei-s1.narod.ru/Sheduler.rar smile


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
h2o
Дата 2.12.2005, 13:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 199
Регистрация: 19.8.2005

Репутация: 1
Всего: 1
и опять переменная tt не инициализированна! опять ошибка как в прошлый раз! неужели у тебя всё без ошибки проходит?

Ну остальное работате! смотрю дальше... спасибо
Добавлено @ 13:15
он за 2 минуты 4 раза мне прогу запустил, с интервалом в 30 секунд примерно!
--------------------
Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!
PM MAIL   Вверх
Alexeis
Дата 2.12.2005, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
а это и не требуется

tt := RecodeDateTime(tt, t.Year, t.month,
t.Day, t.hour, t.min, 0, 0);

и есть инициализация

Добавлено @ 13:39
3 минуты полет нормальный - один запуск (по расписанию)


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Alexeis
Дата 2.12.2005, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
5 минут полет нормальный - один запуск (по расписанию)
перевожу стрелки часов на час вперед второй запуск

попробуй компилировать в Delphi 7, Delphi 2005

все покидаю форум буду во вторник

Это сообщение отредактировал(а) alexeis1 - 2.12.2005, 13:59


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
h2o
Дата 9.12.2005, 09:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 199
Регистрация: 19.8.2005

Репутация: 1
Всего: 1
долбил, долбил, а он всё равно запускает много экземпляров указанной проги запускать! я на выходных дома попробую откомпелировать!
--------------------
Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!
PM MAIL   Вверх
Albinos_x
Дата 9.12.2005, 09:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
Цитата(h2o @ 9.12.2005, 09:10)
он всё равно запускает много экземпляров указанной проги запускать!

видно стирать задание забываешь...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Alexeis
Дата 9.12.2005, 10:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата
видно стирать задание забываешь...

Правельно прога то недоделанная! удали ini файл и попробуй
снова по порядку (так как я писал в email - e)


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0873 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.