Tmedia Player nedir?

Tmedia Player nedir?

Tmedia Player nedir?

Media player elemanı , media control interface (MCI) sürücülerini kullanmamızı sağlar. Bu elaman aracılığı ile ayrıca ses kartı , tarayıcı , video cd vb donanımsal elamnlarda kontrol edilebilir.Bildiğiniz media player işte:) Eh konumuz media player compenneti ise bizde şimdi ufak bir media player yapalım.)

Ek olarak saol tarafta gördüğünüz gibi 4 tane ayrı compenet war bunları bilerek koydum ki bunlarıda bir program içinde kullarak kullanımlarını öğrenelim. Solda alt alta dizilmiş 4 compenetimiz üstten aşşa sıra ile1-Drivercombobox2-DirectoryListbox3-FilterListbox4-FileListboxBunlar izlicemiz film için dosyayı bulmamızı sağlar. Kullanıla bilmeleri için forma eklendikren sonra şu ayarlar yapılmalı. Object inspector penceresinde;Drivecombobox 1 in Dirlist özelliği DirectoryListbox1 ,DirectoryListbox1 in Filelist özelliği Filelistbox1,FilterCombobox1 in File list özelliği Filelistbox1 yapılmalı.Ayrıca filmi izlediğimiz zeminde panel compenetin üztüdür. Filmi izleek için bir panel yerleştirin forumunuza.Program kodları;Procedure TForm1.FormCreate(Sender: Tobject);Begin     mediaplayer1.Display:=panel1;     mediaplayer1.DisplayRect:=rect (0,0,clientwidth,clientheight);End;Procedure TForm1.Timer1Timer(Sender: Tobject);Begin     if mediaplayer1.Mode=mpplaying then     progressbar1.Position:=mediaplayer1.Position;End;Procedure TForm1.FileListBox1Click(Sender: Tobject);Begin     with mediaplayer1 do     Begin          Close;          filename:=filelistbox1.FileName;          open;          progressbar1.Max:=length;          play;     End;End;

Döküman Arama

Başlık :

Kapat