连续播放视频文件,无延迟
Play video files in a row without delay
我正在寻找一种连续播放2个视频而不延迟(或非常小的延迟)
我有1个mp4文件,使用ffmpeg,我将其拆分为2个文件,现在我想要将它们添加到播放列表中并播放,但我不希望用户有这种感觉正在更改视频,但当我因为加载文件而对其进行测试时延迟
我想在第一个文件结束之前将第二个文件流式传输到内存中。我该怎么做
我测试了LibVLC,并阅读了从MemoryStream播放视频,使用FFMpeg,但仍然没有运气
附言:任何语言的图书馆对我都有好处。
编辑:文件较小(小于5mb且小于5秒)。
编辑:我在FreePascal中用PasLibVLC添加了一个演示,在第一个文件之后播放第二个文件,但有一个延迟。如何将此问题最小化?(例如,从存储器馈送VLC并将第二个文件加载到存储器中)。
unit MainFormUnit;
{$mode Delphi}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,LCLIntf, LCLType,
ExtCtrls, StdCtrls,PasLibVlcUnit,PasLibVlcPlayerUnit;
const
MAX_ARGS = 255;
type
{ TMainForm }
TMainForm = class(TForm)
Button1: TButton;
MenuFile: TMenuItem;
MenuFileOpen: TMenuItem;
MenuFileQuit: TMenuItem;
Panel1: TPanel;
Panel2: TPanel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
p_li: libvlc_instance_t_ptr;
p_mi: libvlc_media_player_t_ptr;
argv: packed array[0..MAX_ARGS - 1] of ansistring;
args: packed array[0..MAX_ARGS - 1] of PAnsiChar;
argc: integer;
p_mi_ev_mgr: libvlc_event_manager_t_ptr;
procedure AddArg(Value: ansistring);
procedure PlayerInit();
procedure PlayerPlay(fileName: WideString);
procedure PlayerStop();
procedure PlayerDestroy();
procedure WmMediaPlayerEndReached(var m: TVlcMessage); message WM_MEDIA_PLAYER_END_REACHED;
public
{ Public declarations }
end;
var
MainForm: TMainForm;
procedure lib_vlc_player_event_hdlr(p_event: libvlc_event_t_ptr; Data: Pointer); cdecl;
implementation
{$R *.lfm}
procedure lib_vlc_player_event_hdlr(p_event: libvlc_event_t_ptr; Data: Pointer); cdecl;
var
Form: TMainForm;
begin
if (Data = nil) then
exit;
Form := TMainForm(Data);
if not Assigned(Form) then
exit;
case p_event^.event_type of
libvlc_MediaPlayerEndReached:
PostMessage(Form.Handle, WM_MEDIA_PLAYER_END_REACHED, WPARAM(0), LPARAM(0));
end;
end;
{ TMainForm }
procedure TMainForm.AddArg(Value: ansistring);
begin
if (argc < MAX_ARGS) then
begin
argv[argc] := Value;
args[argc] := PAnsiChar(argv[argc]);
Inc(argc);
end;
end;
procedure TMainForm.PlayerInit();
begin
libvlc_dynamic_dll_init();
if (libvlc_dynamic_dll_error <> '') then
begin
MessageDlg(libvlc_dynamic_dll_error, mtError, [mbOK], 0);
exit;
end;
argc := 0;
AddArg(libvlc_dynamic_dll_path);
AddArg('--intf=dummy');
AddArg('--ignore-config');
AddArg('--quiet');
AddArg('--no-video-title-show');
AddArg('--no-video-on-top');
p_li := libvlc_new(argc, @args);
p_mi := nil;
end;
procedure TMainForm.PlayerPlay(fileName: WideString);
var
p_md: libvlc_media_t_ptr;
a_st: ansistring;
p_st: PAnsiChar;
begin
PlayerStop();
a_st := UTF8Encode(fileName);
p_st := PAnsiChar(@a_st[1]);
p_md := libvlc_media_new_path(p_li, p_st);
if (p_md <> nil) then
begin
p_mi := libvlc_media_player_new_from_media(p_md);
if (p_mi <> nil) then
begin
libvlc_video_set_key_input(p_mi, 1);
libvlc_video_set_mouse_input(p_mi, 1);
libvlc_media_player_set_display_window(p_mi, SELF.Handle);
p_mi_ev_mgr := libvlc_media_player_event_manager(p_mi);
libvlc_event_attach(p_mi_ev_mgr, libvlc_MediaPlayerEndReached, @lib_vlc_player_event_hdlr, SELF);
end;
libvlc_media_player_play(p_mi);
libvlc_media_release(p_md);
end;
end;
procedure TMainForm.PlayerStop();
begin
if (p_mi <> nil) then
begin
libvlc_media_player_stop(p_mi);
while (libvlc_media_player_get_state(p_mi) = libvlc_Playing) do
begin
Sleep(50);
end;
libvlc_media_player_release(p_mi);
p_mi := nil;
end;
end;
procedure TMainForm.PlayerDestroy();
begin
if (p_li <> nil) then
begin
PlayerStop();
libvlc_release(p_li);
p_li := nil;
end;
end;
procedure TMainForm.WmMediaPlayerEndReached(var m: TVlcMessage);
begin
PlayerPlay('C:ffmpegbintmpOUTPUT1.mp4');
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
p_li := nil;
p_mi := nil;
PlayerInit();
Button1.Click;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
PlayerPlay('C:ffmpegbintmpOUTPUT0.mp4');
end;
procedure TMainForm.FormDestroy(Sender: TObject);
begin
PlayerDestroy();
end;
end.
HTML5媒体源扩展(MSE)应该允许您这样做,但这很棘手,因为您必须自己处理视频的流和缓冲。如果你能找到一个内置功能的媒体播放器,那会容易得多。在这里查看更多信息和MSE链接以回答类似的问题:
- https://stackoverflow.com/a/28717239/334402
相关文章:
- .cpp和.h文件中的模板专用化声明
- 为什么两个不同的未命名名称空间可以共存于一个cpp文件中
- 文本文件中的单词链表
- CMake-按正确顺序将项目与C运行时对象文件链接
- 使用新行和不使用新行读取文件
- 在C++程序中输入的文本文件将不起作用,除非文本被复制和粘贴
- 挂起和取消挂起一个文件DLL
- 如何确定我已使用非编码文件到达 EOF?
- 命名空间中具有.h和.cpp文件的类
- 如何使用ndk-build.cmd构建Android.so文件
- 从包含m行的文件中提取n行,必要时(惰性地)重复该文件
- 读取文件并输入到矢量中
- 在C++中查找文件
- c++库的公共头文件中应该包含什么
- 文件删除(使用取消链接)与释放所有磁盘空间之间的延迟
- 如何在发生事件后延迟1秒的应对文件
- 连续播放视频文件,无延迟
- 将文件数据延迟几分钟
- 字节间延迟时间的读取文件超时
- Win32 API多线程播放.wav文件没有延迟