Windows MediaPlayer da Medya Uzunluğu ve Pozisyonu

[Yavuz]

Delphinin mediaplayer bileşeninde parçanın uzunluğunu lenght ile alabiliyordum.
Şu an projemde windows media player 11 yüklü Active-X olarak yüklenmiş bu media playerde çalan parçanın uzunluğunu ve posizyonu nasıl öğrenebilirim ?

Teşekkürler

[mrmarman]

Uzunluğu için

Kod: Tümünü seç

ActiveMovie1.Duration

Pozisyon için

Kod: Tümünü seç

ActiveMovie1.CurrentPosition

Kolay gelsin...

[Yavuz]

uzunluk için bahsettiğiniz metodu

Kod: Tümünü seç

MediaPlayer1.currentMedia.duration

şeklinde kullanarak alabildim teşekkürler
Pozisyon için bir çözüm olmadı
Delphi7 kullanıyorum
Teşekkürler ...

[mrmarman]

- Delphi 4.0'dan beri bu şekilde kullanıyorum sorun delphi sürümünde değil. DivXTurk projesinde kullandığım şekli bu.

- Takıldığın yerde uses'a eklediğin AMovie_TLB.pas dosyasını incele. Kullandığın ve kullanacağın tüm fonksiyonlar burdan olduğunu biliyorsundur.

- Bence aldığın hatayı tekrar incele. Sanırım başarılı olamadığın konu dönen değeri integer olarak değerlendirmenden kaynaklı olmalı.

Kod: Tümünü seç

    TrackBar1.Position := Trunc(xActiveMovie1.CurrentPosition);

- Şeklinde kullanmalısın. Çünkü gelen değer Integer değil Double

[Yavuz]

Gerekli yordama ulaşamıyorum

Kod: Tümünü seç

MediaPlayer1.currentMedia.?

bundan sonrası için geçerli konumu alabileceğim bir metod tanımlı değil.
tip aktarımında bir sorun olmasın diye atama yapmadan da denedim
Acama Active-X den Window MediaPlayer(11) i yüklediğim için delphinin media playerindeki metodlar eklenmiyor olabilir mi ? Yoksa burada API ler mi devreye girmeli ?

Ayrıca;
Yeni bir başlık açmaya gerek var mı bilmiyorum ama örneğin bir listbox taki parçaları ben dur diyene kadar parça bittikçe çalmasını nasıl sağlayabilirim acaba kısacası playlist olayı
Çok teşekkürler ...

[vampir261]

Medianın uzunluğunu ve o an ki konumunu aşağıdaki kodlarla bulabilirsin.

Kod: Tümünü seç

Duration:=MediaPlayer.currentMedia.durationString;
Position:=MediaPlayer.controls.currentPositionString;

Tabi string istemiyorsan sana Double değer veren aşağıdaki kodu kullanabilirsin

Kod: Tümünü seç

MediaPlayer.currentMedia.duration;
MediaPlayer.controls.currentPosition;

Not olarak eğer media bitmiş ise

Kod: Tümünü seç

 MediaPlayer.controls.currentPositionString

buradan dönen değer boş oluyor.

[qamyoncu]

Gerekli yordama ulaşamıyorum

Kod: Tümünü seç

MediaPlayer1.currentMedia.?

bundan sonrası için geçerli konumu alabileceğim bir metod tanımlı değil.

Örneğin;
Edit1.text:=Listbox1.items.? Bizim aradığımız metod 'count' olsun.. listbox1.items.count ifadesi integer, edit1.text ifadesi string olduğu için böyle bir metodu bulamazsınız '.' karakterine bastığınızda..

Sorununuz sanırım bu..

Kolay gelsin..