Yardım

[İsmail_ycl]

Selam Millet

Form1 üzerinde mediaplayer1,DriveListCombobox1,DirListBox1,FileListBox1,Timer1 var
Implementation altında iki değişkenim var
a,b:Integer=0;
FileListBox`un DbClick ine
begin
With MediaPlayer1 do
Begin
close;
FileName:=FileListBox1.Name;
Open;
Play;
end ;
end;

Timer ın içeriğine a, b değişkenini kullanıyorum
begin
Timer1.Interline:=1000;
Form1.caption:='Süre:'+IntToString(b)+':'+IntToString(a);
Begin
If Mediaplayer1.mode=mpPlaying then
a:=a+1;
If a=59 then
a:=0;
If a=59 then
b:=b+1;
If b=59 then
Mediapleyer1.mode=mpStoping;
ShowMessage('Süre 59`uncu dK`Sonra çalamıyor');
end;
end

Run yaptığımda program çalışıyor
Media player çalışınca Timer1.Internal:=1000 olması 1 saniye
yani her saniyede a yı 1 artıracaktır
a=59 olunca a tekrar başa dönecek ve b yi 1artıracak
Mediaplayer İşini bitirince Timer alt programlarda işlemi bitirmiş olup
Ses dosyasının süresini almış oluyorum
buda güzel ama form1.caption içeriğine veriyorum budurumu
Form1.caption a verdiğim şekil 0:0 şeklinde süreyi başlatmış oluyorum
ama

kodu şu şekilde çalıştırsam
Sure şeklini ŞU şekilde göstersem 00:00:00
Bunu aşşagıdakigibi yapıyorum
Implementationdaki değişken
C:TTime;

Timer1 içeriğine
begin
Timer1.Internal:=1000;
Case MediaPlayer1.Mod of
mpPlaying:C:=C+1;
end;
Form1.caption'Süre'+TimeToStr(C);
end;
Bu şekilde çalışmıyor

Şu şekilde yapmış olsam bu sefer saati göstertiyor
Ve saatin Sn sini her daim artırıyor
Timer1 içeriğine
Timer1.Internal:=1000;
Form1.caption:=TimeToStr(Time);

Amacım mediaPlayer de çalan dosyanın yanlızca nekadar süre sürdünü
00:00:05 gibi şekilde görmek istiyorum

Yardımlarınız için tşk ler

[mussimsek]

Delphi Forum başka forumlara benzemez! LÜTFEN FORUM KURALLARINI OKUYUP, UYUN!!!