Çalan Müzik süresi 00:00:00 şeklinde !!

[mulus]

Mediaplayer ın lenght özelliğinin yüklü olan dosyanın uzunluğunu verdiğini biliyorum ama bu değerin çeşit olarak ne olduğunu ve nasıl 00:00:00 formatında göstereceğimi çözemedim.. Yardımcı olanlara şimdiden teşekkürler..

[vedatkaba]

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
var Trk, Min, Sec: Word;
begin
with MediaPlayer1 do
begin
Trk:= MCI_TMSF_TRACK(Position);
Min:=MCI_TMSF_MINUTE(Position);
Sec:=MCI_TMSF_SECOND(Position);
Label1.Caption:=Format('%.2d',[Trk]);
Label2.Caption:=Format('%.2d:%.2d',[Min,Sec]);
end;
end;
end.

Bu işini görürmü bilmiyorum ama bir dene.Kolay gelsin.

[mulus]

MCI_TMSF_TRACK ile ilgili hata veriyor ama ;


undeclared identifier: MCI_TMSF_TRACK


komut tanımlı değil acaba uses kısmına bişilermi eklemek gerekir !?

[Çağrıbey]

Programi run yaptiğinda hata vermemesi için
Uses'e MMSystem eklenirse hata vermiyor.
denedim, çalışıyor..

[mulus]

Programi run yaptiğinda hata vermemesi için
Uses'e MMSystem eklenirse hata vermiyor.
denedim, çalışıyor..

Evt bende ufak bir google araştırmasından sonra bu konuyla ilgili bir çok kaynağa ulaştım.. benim tıkandığım nokta MMSystem hakkında bilgi sahibi olmamam .. Üstteki örnekte sayaçlar 256 dan sonra sıfıra dönüyor.. sorunun tam çözümü ise http://www.swissdelphicenter.ch/torry/s ... hp?id=1805 adresinde anlatılmış hem MMSystem e de gerek kalmıyor... mediaplayer ' lenght değerini millisecond olarak veriyormuş ... neyse yukarıdaki kodla biraz oynayınca istediğim şekle sokarım.. ilgilenen arkadaşlara tekrar teşekkür ederim.. Kolay gelsin..