客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
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;
暂停: PasLibVlcPlayer1.Pause(); ProgBar.OnChange := ProgBarChange; 继续： PasLibVlcPlayer1.Resume(); ProgBar.OnChange := nil; 截图： PasLibVlcPlayer1.SnapShot(ChangeFileExt(Application.ExeName, '.png')); 到指定的时间处播放： PasLibVlcPlayer1.SetVideoPosInMs(1000*60*5);//到视频的5分钟处 显示当前播放时间： ProgLabel1.Caption := PasLibVlcPlayer1.GetVideoPosStr('hh:mm:ss.ms'); 总时间： ProgLabel2.Caption := PasLibVlcPlayer1.GetVideoLenStr(); ProgBar.Max := PasLibVlcPlayer1.GetVideoLenInMs(); 引用： uses PasLibVlcUnit, PasLibVlcClassUnit, PasLibVlcPlayerUnit;
最新PasLibVlc 3.0组件下载地址(支持 • Delphi 10.2.2 Tokyo • Lazarus 1.8.0 (FPC 3.0.4).) |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论