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

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.    

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;

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