Timer-Mediaplayer ilişkisi

[r_korkmaz44]

Ben maskeditteki saat ile sistem saati aynı olunca müzik çaldırmak istiyorum. Yalnız şöyle olacak. Örneğin saat 13:00 te mediaplayer1 de müzik çalacak. Saat 15:00 te yine mediaplayer1 de çalacak. Şimdi saat 13:00 olduğu zman çalıyor ama saat 15:00 çalmıyor.Sebebide mediaplayer1'in play düğmesi basılı kaldığı için çalmıyor. Bunun için timer2 ye durdurmak için kod yazdığım zaman aşağıdaki hatayı veriyor,programı çalıştırmıyor. Acaba bunu nasıl çözebilirim. Şimdiden teşekkürler.

Kod: Tümünü seç

procedure TForm2.Timer3Timer(Sender: TObject);
var
a,b:string;
begin
gun:=dayofweek(date);
a:=maskedit1.text;
b:=Copy(timetostr(now),1,5);
if (a=b) and (gun=2) then
begin
timer3.enabled:=false;
mediaplayer2.close;
timer3.interval:=30000;
mediaplayer2.filename:='C:\proje\Melodiler\Ogrenci Giris Zili.mp3';
mediaplayer2.Open;
mediaplayer2.play;
timer2.enabled:=true;
end;
end;

Kod: Tümünü seç

procedure TForm2.Timer2Timer(Sender: TObject);
begin
mediaplayer2.stop;
end;

şeklinde yazdığım zaman aşağıdaki hata veriyor.

[conari]

Player open modda olmadığından stop yapamazsın diye hada veriyor anlaşılan.

[r_korkmaz44]

mediaplayer zaten open ile açıldı sanırım. bunu durdurmak veya farklı saatlerde aynı mediaplayerden çaldırmak için ne yapmam gerekir. şimdiden teşekkürler.

[conari]

Timer2 nin süresi nedir? ontimer da anlaşılan mplayer open modda olmuyor.
try except arasına alarak hatayı kapat.

[r_korkmaz44]

hocam internal değeri 45000,ayrıca try except için bu değerler nereye yazılacak.

bunu başka şekilde nasıl gercekleştirebilirim.
Aynı mediaplayerden aynı müziği farklı saatlerde çaldıracam. amacım bu

[conari]

Kod: Tümünü seç

procedure TForm2.Timer2Timer(Sender: TObject);
begin
try
mediaplayer2.stop;
except
end;
end;

Delphide hatayı alırsın ama exe normal çalışınca hata vermez bu şekilde.

timer 45 saniyede bir kontrol ediyor o kontrol ettiğinde player open modda değildir. onu demek istiyorum.

[r_korkmaz44]

Sayın hocam dediğinizi yaptım yalnız olmadı.Bunu ben mediaplayer yerine playsound komutunu vererek yapsam olurmu peki.mediaplayerde bir türlü 2. saat gelince aynı mediaplayeri çalıştıramadım.şimdiden teşekkürler.