Media player özelliklerini TLB den kullanma

[Lord_Ares]

Merhaba arkadaşlar, MrMarman hocamın paylaşmış olduğu TLB dosyalarından media player kullanma örneği var. Burada merak ettiğim ve bulamadığım
1) Müzik çalarken gösterdiği spectrumu nasıl değiştirebilirim. Normal media playerda çizgi halindeki specturumu tıklayınca aşağı yukarı çıkan hale getirebiliyoruz.

2)İlgili dosyayı incelediğimde currenplaylist.add, play next gibi özellikler var. Ve bu özellikleri nasıl kullanabiliriz. Örneğin play next diyerek listboxta bir sonraki şarkıya geçsin gibi.
Teşekkürler
viewtopic.php?f=2&t=34059

Kod: Tümünü seç

uses WMPLib_TLB;

Var
  xMediaPlayer : TWindowsMediaPlayer;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  Media : IWMPMedia;
begin
  xMediaPlayer := TWindowsMediaPlayer.Create(nil);
  xMediaPlayer.ParentWindow := Form1.Handle;
  xMediaPlayer.URL          := 'd:\ARMAN-Genel\Music\gelevera deresi.mp3';
  xMediaPlayer.uiMode       := 'invisible';
  xMediaPlayer.controls.play;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  if Assigned(xMediaPlayer) AND (xMediaPlayer.playState = wmppsPlaying) then
  begin
    xMediaPlayer.controls.stop;
    xMediaPlayer.close;
    xMediaPlayer.Free;
    xMediaPlayer := Nil;
    ShowMessage('Player durduruldu...');
  end else ShowMessage('ne oldu bilemedim...');
end;

[brs]

Selam,

1. Sorunuzu anlamadım.
2. Çalan parçanın index numarasını alıp daha sonra for döngüsü kullanarak bir sonraki çalacak olan mp3 bilgilerini alıyorum...

[Lord_Ares]

Selam Brs
1) spectrum yani şu mp3 çalarken gösterdiği görüntü var ya çizgi şeklinde yukarıdaki haraketli resimde görebilirsin. Onu değiştirebiliyoruz diye biliyorum. Ama nasıl. Örneğin çizgi şeklinde değilde winaptaki gibi aşağı yukarı oynayan çubuklar gibi...

2) Evet bende o şekilde kullanıyorum ama , media player lib dosyasına incelediğimde TMediaplayer.currentplaylist.add ve TMediaplayer.controls.next görüyorum. bunlar nasıl ve ne için kullanılıyor. Currentplaylist.add bizim listbox görevini görüyorsa veya controls.next diyerek bir sonraki parçaya geçebiliyorsak neden listboxta döngü ile bir sonraki şarkıya geçeyim . Nedir bunlar nasıl kullanılır onu merak ediyorum.

[brs]

http://s3.dosya.tc/server7/d2j1rw/delph ... r.rar.html bunu bir inceleyin projeniz için belki fikir verebilir...

[Lord_Ares]

teşekkürler dostum inceleyeyim

[Lord_Ares]

Bu media playerın eventslarına özelliklerine nasıl ulaşacağım. Forumdaki media player örneklerinde çalan şarkının boyutu, kalan süre gibi işlemlerde media position , media lenght kullanılmış ben bunlara erişemiyorum. Amacım progresbar ile şarkıyı süresini ilişkilendirmek.
Yardımcı olursanız sevinirim.