delcpy Опубликовано 29 ноября, 2022 Поделиться Опубликовано 29 ноября, 2022 По внесению изменений времени в TimeEdit не запускается в назначенное время уведомление. Подскажите в чем косяк. procedure TfrmMain.teNotificationChange(Sender: TObject); var MyNotification: TNotification; MyHour, MyMin, MySec, MyMilli: Word; begin // Setup notification DecodeTime(teNotification.Time, MyHour, MyMin, MySec, MyMilli); MyNotification := NotificationCenter.CreateNotification; try // MyNotification.Number := 1; MyNotification.Name := 'AlerNotification'; MyNotification.Title := 'Выйте из приложения!!!'; MyNotification.AlertBody := 'Начинается копирование базы данных'; MyNotification.EnableSound := True; MyNotification.FireDate := EncodeTime(MyHour, MyMin, 0, 0); NotificationCenter.ScheduleNotification(MyNotification); MyNotification.Free; finally MyNotification.DisposeOf; end; Цитата Ссылка на комментарий
0 Tumaso Опубликовано 29 ноября, 2022 Поделиться Опубликовано 29 ноября, 2022 В MyNotification.FireDate ты указал только время, а дату нет. Например попробуй Trunc(Now) + EncodeTime(MyHour, MyMin, 0, 0) И да, убери MyNotification.Free Цитата Ссылка на комментарий
0 delcpy Опубликовано 30 ноября, 2022 Автор Поделиться Опубликовано 30 ноября, 2022 18 часов назад, Tumaso сказал: В MyNotification.FireDate ты указал только время, а дату нет. Например попробуй Trunc(Now) + EncodeTime(MyHour, MyMin, 0, 0) И да, убери MyNotification.Free Не помогло. Мне нужно что бы приложение каждый день в назначенное время показывало уведомление. Ищу решение. Цитата Ссылка на комментарий
Вопрос
delcpy
По внесению изменений времени в TimeEdit не запускается в назначенное время уведомление. Подскажите в чем косяк.
procedure TfrmMain.teNotificationChange(Sender: TObject);
var
MyNotification: TNotification;
MyHour, MyMin, MySec, MyMilli: Word;
begin
// Setup notification
DecodeTime(teNotification.Time, MyHour, MyMin, MySec, MyMilli);
MyNotification := NotificationCenter.CreateNotification;
try
// MyNotification.Number := 1;
MyNotification.Name := 'AlerNotification';
MyNotification.Title := 'Выйте из приложения!!!';
MyNotification.AlertBody := 'Начинается копирование базы данных';
MyNotification.EnableSound := True;
MyNotification.FireDate := EncodeTime(MyHour, MyMin, 0, 0);
NotificationCenter.ScheduleNotification(MyNotification);
MyNotification.Free;
finally
MyNotification.DisposeOf;
end;
Ссылка на комментарий
2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.