Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
VLC Player Fonksiyonları
#1
Merhaba,  vlc player kullanarak  projemi yenilemeye çalışıyorum.  PasLibVlc hakkında pek fazla örnek bulamadım. Kendi örneklerinden de açıkcası bişey anlamadım.
VLC player fonksiyonları ve kullanımı hakkında bildiklerinizi paylaşırsanız sevinirim. Örneğin, vlc player state, next, isplay, load vlc fonctions gibi..
Teşekkürler
Cevapla
#2
Question 
Başlamak için örnekler : 
Daha önce başka yerlerde paylaştıklarımı copy/paste yaptım. 
Soruların oldukça detaylandırırız. Çünkü şu anki sorun henüz yere basmıyor. 


Alıntı:OffTopic: Şöyle bir fıkra vardır;

Fıkra odur ki, dünyadaki tüm soruların cevabını verecek bir bilgisayar tasarlanır. Bu bilgisayara üç soru sorulacaktır. Ülkeler bir araya gelir ve üç Ülke temsilcisinden birisi bizim Temel'dir.  Alman bilim adamı  çözülmemiş bir matematik fonksiyonu sorar bilgisayar 10 saniyede cevap verir, Amerikan kuantum fizikçi soru sorar 20 saniyede çözer, TEMEL usulca yaklaşarak mikrofona doğru fısıldar bilgisayar bozulur.  Huh  

Tüm dünya şoktadır, sorarlar Temel'e ne sordun da Bilgisayar cevap veremedi. Temel cevap verir ; ne sorayım bilemedim ben de "Ne var Ne Yok?" diye sordum der. 
 



USES PasLibVlcPlayerUnit, PasLibVlcUnit, PasLibVlcClassUnit;

Var
 xVLCPlayer    : TPasLibVlcPlayer;
 xVLCMediaList : TPasLibVlcMediaList;


procedure VLCPlayer( strVideo: String );
begin
 if xVLCPlayer = nil then
   xVLCPlayer := TPasLibVlcPlayer.Create(nil);
 if xVLCMediaList = nil then
   xVLCMediaList := TPasLibVlcMediaList.Create(nil);


 with xVLCPlayer do
 begin
   Parent := Form1.Panel1;
   Align  := alClient;
   if xVLCMediaList.IsPlay then
   begin
     xVLCMediaList.Stop;
     xVLCMediaList.Clear;
   end;
   xVLCMediaList.Player := xVLCPlayer;
   xVLCMediaList.Add( strVideo );
   xVLCMediaList.PlayItem( xVLCMediaList.GetItemAtIndex(0) );
 end;
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 VLCPlayer( Edit2.Text );
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 With OpenDialog1 do
 begin
   Filter := 'Video Dosyaları *.AVI, *.MKV|*.AVI;*.MKV|Tüm Dosyalar *.*|*.*';
   if Execute then
   begin
     Edit1.Text := Filename;
     VLCPlayer( Edit1.Text );
   end;
   Free;
 end;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if xVLCMediaList.IsPlay then xVLCMediaList.Stop;
 xVLCMediaList.Free;
 xVLCMediaList := Nil;


 if xVLCPlayer.IsPlay then xVLCPlayer.Stop;
 xVLCPlayer.Free;
 xVLCPlayer := Nil;
end;


Uses PasLibVlcPlayerUnit, PasLibVlcClassUnit;

Var
 xVLCPlayer    : PasLibVlcPlayerUnit.TPasLibVlcPlayer;
 xVLCMediaList : PasLibVlcPlayerUnit.TPasLibVlcMediaList;

procedure VLCPlayer( strVideo: String; VideoPanel:TPanel; SesTrackBar:TTrackBar );
begin
 if xVLCPlayer    = nil
 then xVLCPlayer := TPasLibVlcPlayer.Create(nil);

 if xVLCMediaList = nil
 then xVLCMediaList := TPasLibVlcMediaList.Create(nil);

 with xVLCPlayer do
 begin
   Parent       := VideoPanel;
   Align        := alClient;
   AudioOutput  := PasLibVlcClassUnit.aoWaveOut;
   if xVLCMediaList.IsPlay then
   begin
     xVLCMediaList.Stop;
     xVLCMediaList.Clear;
   end;
   xVLCMediaList.Player := xVLCPlayer;
   Application.ProcessMessages;
   xVLCMediaList.Add( strVideo );
   xVLCMediaList.PlayItem( xVLCMediaList.GetItemAtIndex(0) );
 end;

 xVLCPlayer.SetAudioVolume( 50 );

 if SesTrackBar <> nil then
 begin
   SesTrackBar.Min      := 0;
   SesTrackBar.Max      := 100;
   SesTrackBar.Position := 50;
 end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
 strFile : String;
begin
 strFile := ExtractFilePath(Application.Exename) + 'You & Me Flipbook.mp4';
 VLCPlayer( strFile, Panel1, TrackBar1 );
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 xVLCPlayer.SetAudioVolume( TTrackBar(Sender).Max - TTrackBar(Sender).Position );
end;
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#3
Hocam , örnekler için teşekkürler.
1)  Mesela form kapanırken free etmek gerekiyormu, hangisini nasıl edeceğiz. (Medialist, player). Bir sitede load library diyerek bazı dll dosyalar rame yükleniyor. Yüklemelimiyiz bize ne kazandırır.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

2) Formuma eklediğim playerda çalan video birebir aynı boyutta değil.  Video boyutunu birebir nasıl ayarlarım. Şöyle birşey gördüm ama birebir olmadı.
KPLAYER.SetVideoAspectRatio('4:3');

Teşekkürler
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  vlc media player arsl01 12 268 20-07-2018, Saat: 12:16
Son Yorum: arsl01
  VLC Player şarkı ismi Lord_Ares 4 178 19-03-2018, Saat: 15:46
Son Yorum: Fesih ARSLAN
  DLL içindeki Fonksiyonları Listeleme dicle_gsm 2 243 05-02-2018, Saat: 02:37
Son Yorum: dicle_gsm
  Media player hızlı ileri alma Lord_Ares 2 235 29-11-2017, Saat: 01:26
Son Yorum: Lord_Ares
  Flash player izin verme Lord_Ares 23 1.597 08-10-2017, Saat: 23:29
Son Yorum: Lord_Ares



Konuyu Okuyanlar: 1 Ziyaretçi