至今比较满意的delphi多媒体组件PasLibVlc3.0最新（可以播放各种视频格式）

1、PasLibVlc是vlc for delphi的组件

2、可以播放已知的各种视频格式：avi,mp4,wmv,kmv,rm等等。

3、使用方法也非常容易：

var

  p_mi: libvlc_media_player_t_ptr;

begin

  PasLibVlcPlayer1.Play(Self.CheckListBox1.items[

    Self.CheckListBox1.itemindex]);

  ProgBar.OnChange := nil;

 

  Sleep(2000);

 

  p_mi := PasLibVlcPlayer1.GetPlayerHandle();

 

  libvlc_video_set_marquee_string(p_mi, libvlc_marquee_Text, 'ABC');

  libvlc_video_set_marquee_int(p_mi, libvlc_marquee_Color, libvlc_video_marquee_color_White);

  libvlc_video_set_marquee_int(p_mi, libvlc_marquee_Opacity, libvlc_video_marquee_opacity_full);

libvlc_video_marquee_position_Center);

  libvlc_video_set_marquee_int(p_mi, libvlc_marquee_X, 10);

  libvlc_video_set_marquee_int(p_mi, libvlc_marquee_Y, 10);

after xx ms, 0 - show always

  libvlc_video_set_marquee_int(p_mi, libvlc_marquee_Enable, 1);

 

  libvlc_video_set_logo_string(p_mi, libvlc_logo_File, PAnsiChar(UTF8Encode(ExtractFilePath(Application.ExeName) + 'logo.png')));

  libvlc_video_set_logo_int(p_mi, libvlc_logo_Delay, 10);

  libvlc_video_set_logo_int(p_mi, libvlc_logo_Repeat, 10);

  libvlc_video_set_logo_int(p_mi, libvlc_logo_Position, libvlc_video_logo_position_Center);

  libvlc_video_set_logo_int(p_mi, libvlc_logo_Opacity, 255);

  libvlc_video_set_logo_int(p_mi, libvlc_logo_Enable, 1);

 

end;

 

　暂停:

1 2	PasLibVlcPlayer1.Pause(); ProgBar.OnChange := ProgBarChange;

　　继续：

1 2	PasLibVlcPlayer1.Resume(); ProgBar.OnChange := nil;

　　截图：

1	PasLibVlcPlayer1.SnapShot(ChangeFileExt(Application.ExeName, '.png'));

　　到指定的时间处播放：

1	PasLibVlcPlayer1.SetVideoPosInMs(1000*60*5);//到视频的5分钟处

　　显示当前播放时间：

     ProgLabel1.Caption := PasLibVlcPlayer1.GetVideoPosStr('hh:mm:ss.ms');
     ProgBar.Position := PasLibVlcPlayer1.GetVideoPosInMs();

　　总时间：

1 2	ProgLabel2.Caption := PasLibVlcPlayer1.GetVideoLenStr(); ProgBar.Max := PasLibVlcPlayer1.GetVideoLenInMs();

　　引用：

1	uses PasLibVlcUnit, PasLibVlcClassUnit, PasLibVlcPlayerUnit;

　　

　　最新PasLibVlc 3.0组件下载地址(支持  • Delphi 10.2.2 Tokyo  • Lazarus 1.8.0 (FPC 3.0.4).)