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(