DateTimePicker в будильнике

[DeFREEnd]

Вобщем недавно начал работать в Делфи, вот возник вопрос в написании будильника...
Для ввода юзером времени срабатывания сигнала, был выбран компонент DateTimePicker... Все таки через Edit делать было как то несерьезно)
Вот код расчета срабатывания звонка:

var st:sustemtime;
procedure TMainForm.Timer2Timer(Sender: TObject);
begin
if st=DateTimePicker1.Time then MeinMPlayer.Play;
end;

При компиляции выбивает следущую ошибку:

 [Error] MainUnit.pas(103): Incompatible types

Как я понимаю несоответствие типов...
Вопрос, их привести к одному виду данных или же есть еще более удобный и эффективный способ?

[Google[Bot]]

DateTimePicker1.Time тут тип TTime, а у st - sustemtime, потому ошибка и выскакивает, вместо st можно использовать Now() и все будет работать

[DeFREEnd]

Вобщем заюзал я вместо sustemtime функцию now(), все отлично - компилятор не ругается, стал использовать эту функцию для вывода на экран проги текущего времени, тоже все работает...
Вот только будильник перестал реагировать на совпадения установленного времени и текущего..(
До этого при помощи susutemtime и полей ввода Edit все работало отлично...

//Расчет когда давать сигнал
procedure TMainForm.Timer2Timer(Sender: TObject);
begin
if DateTimePicker1.Time=now then MeinMPlayer.Play;
end;

//Вывод на экран текущего времени
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
TimePanel.Caption:=TimeToStr(now);
end;

//Включение таймера
procedure TMainForm.StartButtonClick(Sender: TObject);
begin
Timer2.Enabled:=true;
end;

[Google[Bot]]

@Вот только будильник перестал реагировать на совпадения установленного времени и текущего..(@

А частота таймера какая? При таком сравнении должна быть посекундная или меньше... Возможно просто пропускает момент, когда сравнить надо... Попробуйте +-лапоть...

[DeFREEnd]

Интервал всмысле? стоял 1000 (1 секунда как я понимаю)
менял на 100, 10.. все равно...
ради интереса вместо DateTimePicker, поставил обратно edit1 и edit2
и запуситил прогу. все работает норм... только добавил строку

 Timer2.Enabled:=false;

в конце процедуры, дабы избежать повторного вызова звукового сигнала.
После проверил, может из-за этого и неработает включения сигнала.. однако непомогло...
Вот слегка изменненый код (в коментарии неработающий вариант) и Edit1 и Edit2 в качастве полей для ввода часов\минут и st:sustemtime вместо now()

procedure TMainForm.Timer2Timer(Sender: TObject);
begin
{if DateTimePicker1.Time=now then
begin
  MeinMPlayer.Play;
  Timer2.Enabled:=false;
  end;}
getlocaltime(ST);
if (ST.Whour=StrToInt(Edit1.Text))and (ST.WMinute=StrToInt(Edit2.Text)) then
begin
 MeinMPlayer.Play;
 Timer2.Enabled:=false;
end;
end;

[mihali4]

procedure TMainForm.Timer2Timer(Sender: TObject);
var tektime: TDateTime;
begin
tektime:=Now;
if (tektime>=DateTimePicker1.Time) and (tektime<DateTimePicker1.Time+StrToTime('00:00:02')) then
//это для наглядности - 2 интервала таймера 
MeinMPlayer.Play;
end;

Останавливать таймер не нужно - а если вам нужно 10, 20 будильников? На каждый - свой таймер?
Интервал таймера - 1 секунда.

[Google[Bot]]

if (ST.Whour=StrToInt(Edit1.Text))and (ST.WMinute=StrToInt(Edit2.Text)) then

Вот про это я и говорил, проверка до секунди осуществяется при сравнении с Now, а вы это заменили проверкой до минуты...

[Alter]

Чем это не нравится?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 If Now >= DateTimePicker1.DateTime then
  Beep{или что там хотите};
end;

Время сами приваивайте DateTimePicker1, т.к он использует то время, которое у него было при помещении на форму.

[Google[Bot]]

Сообщение от Alter

Чем это не нравится?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 If Now >= DateTimePicker1.DateTime then
  Beep{или что там хотите};
end;

Время сами приваивайте DateTimePicker1, т.к он использует то время, которое у него было при помещении на форму.

так он будет пищать каждую секунду, или че там было...

Можно вместо if >= и <= испозовать secondsBeetwen(время1,время2)<2

[Alter]

Сообщение от Google[Bot]

так он будет пищать каждую секунду, или че там было...

Можно вместо if >= и <= испозовать secondsBeetwen(время1,время2)<2

Не будет если будете запускать второй таймер(в нём запуск музыки), с ограниченным временем работы, который будет отключаться как закончится его время.
Я же как пример привёл проверку.