Самодельный будильник

[.Phoenix]

Доброго времени суток.
Решил написать свой собственный будильник. С таймером разобрался, но при подсчёте времени работает во время программы, но после того как прописал код на открытие музыкального файла mp3 формата, сразу при запуске Delphi посылает меня очень далеко.
Вот мой код

procedure TForm1.IdleProc(sender:TObject; var done:boolean);
begin
Label1.Caption:=TimeToStr(Time);
if TimeToStr(Time)='11:15:45' then
MediaPlayer1.FileName:='Адрес файла.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
done:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnIdle:=IdleProc
end;
Скорее всего я что-то сделал не правильно.

[L_M]

Сообщение от .Phoenix

procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnIdle:=IdleProc
end;

А как вот это понимать? Что тут делается?

[L_M]

Кроме того вероятно необходимо дописать begin и end, чтобы файл открывался и воспроизводился тоже только если наступило время.

Сообщение от .Phoenix

procedure TForm1.IdleProc(sender:TObject; var done:boolean);
begin
Label1.Caption:=TimeToStr(Time);
if TimeToStr(Time)='11:15:45' then begin
MediaPlayer1.FileName:='Адрес файла.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
done:=false;
end;
end;

А у тебя получалось, что имя файла не задано, а ты его открываешь.

[.Phoenix]

L_M Спасибо за совет и вправду, после того как добавил begin...end программа пошла.

А у тебя получалось, что имя файла не задано, а ты его открываешь.

Пока над эти трюком не работал. Я думаю компоненту MediaPlayer небходимо знать имя файла, которое ему надо открыть. Не зная имени файла как же его откроет....Хотя может профессионалы знают как такое сделать...Я с Мультимедией только начинаю работать в Delphi

[Пепел Феникса]

я бы так написал:

Label1.Caption:=TimeToStr(Time);
MediaPlayer1.FileName:='Адрес файла.mp3';
if TimeToStr(Time)='11:15:45' then begin
                                                  MediaPlayer1.Open;
                                                  MediaPlayer1.Play;
                                                  done:=false;
                                                 end;

имя файла задаем всегда.
а если нужно то открываем его и воспроизводим.

Пока над эти трюком не работал. Я думаю компоненту MediaPlayer небходимо знать имя файла, которое ему надо открыть. Не зная имени файла как же его откроет....Хотя может профессионалы знают как такое сделать...

смысл этих слов от меня ускользнул...

[.Phoenix]

Пока над эти трюком не работал. Я думаю компоненту MediaPlayer небходимо знать имя файла, которое ему надо открыть. Не зная имени файла как же его откроет....Хотя может профессионалы знают как такое сделать...

я тут забыл напечатать "не "

Пока над эти трюком не работал. Я думаю компоненту MediaPlayer небходимо знать имя файла, которое ему надо открыть. Не зная имени файла как же его НЕ откроет....Хотя может профессионалы знают как такое сделать...