Recherche avancée

Sur d’autres sites (10331)

• How to play RTSP IP camera using ffmpeg and exoPlayer in android

  3 juin 2023, par jcredking

  I was trying LibVlc but I get dealy in this and can't record the stream

  


• config : allowMultiple, let 2+ sounds play simultaneously (default : false, only one sound at a time)

  31 décembre 2010, par Scott Schiller

  m demo/360-player/demo-slider-controls.js m demo/360-player/index.html m demo/360-player/script/360player.js config : allowMultiple, let 2+ sounds play simultaneously (default : false, only one sound at a time)

• Play video files in a row without delay

  13 février 2015, par Ara Deonas

  I am looking for a way to play 2 video in a row without any delay (or
  very tiny delay) when changing files.
  I had 1 mp4 file and with ffmpeg I split it into 2 file and now I want
  to add them in playlist and play them but I don’t want user feel
  changing video but when I test it because of loading file there is a
  delay.
  I think about stream second file into memory before first file end.
  How can I do this ?
  I tested LibVLC and read Play a Video from MemoryStream, Using FFMpeg but still no luck.
  PS : Any library in any language is good for me.

  EDIT : I added a demo that play second file after first one but there is a delay beetwen changing.How can I minimize this ?(for example feeding VLC from memory and load second file into memory).
  EDIT : Files are small (less than 5mb).

  unit Unit1;
  
  
  
  {$mode objfpc}{$H+}
  
  
  
  interface
  
  
  
  uses
  
    Classes, SysUtils, FileUtil, PasLibVlcPlayerUnit, Forms, Controls, Graphics,LCLIntf,LCLType,
  
    Dialogs, ExtCtrls, StdCtrls, PasLibVlcPlayer, PasLibVlcUnit, PasLibVlcClassUnit;
  
  
  
  type
  
  
  
    { TForm1 }
  
  
  
    TForm1 = class(TForm)
  
      Button2: TButton;
  
      Panel2: TPanel;
  
      procedure Button1Click(Sender: TObject);
  
      procedure Button2Click(Sender: TObject);
  
      procedure FormCreate(Sender: TObject);
  
    private
  
      function GetVlcInstance(): TPasLibVlc;
  
      procedure WmMediaPlayerEndReached(var m: TVlcMessage); message WM_MEDIA_PLAYER_END_REACHED;
  
    public
  
      FVLC: TPasLibVlc;
  
      media_t_ptr:libvlc_media_t_ptr;
  
      media_t_ptr2:libvlc_media_t_ptr;
  
      FVideoOutput: TVideoOutput;
  
      FAudioOutput: TAudioOutput;
  
      p_mi: libvlc_media_player_t_ptr;
  
      p_instance: libvlc_instance_t_ptr;
  
      p_mi_ev_mgr: libvlc_event_manager_t_ptr;
  
      property VLC: TPasLibVlc read GetVlcInstance;
  
  
  
    end;
  
  
  
  var
  
    Form1: TForm1;
  
  
  
  procedure lib_vlc_player_event_hdlr(p_event: libvlc_event_t_ptr; Data: Pointer); cdecl;
  
  
  
  implementation
  
  
  
  procedure lib_vlc_player_event_hdlr(p_event: libvlc_event_t_ptr; Data: Pointer); cdecl;
  
  var
  
    Form: TForm1;
  
  begin
  
    if (Data = nil) then
  
      exit;
  
    Form := TForm1(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;
  
  
  
  {$R *.lfm}
  
  
  
  { TForm1 }
  
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  
  begin
  
  
  
  end;
  
  
  
  procedure TForm1.Button2Click(Sender: TObject);
  
  var
  
    mrl: string;
  
  begin
  
    mrl := 'C:\ffmpeg\bin\tmp\OUTPUT0.mp4';
  
  
  
   media_t_ptr:=libvlc_media_new_path(VLC.Handle, PAnsiChar(UTF8Encode(mrl)));
  
    p_instance := VLC.Handle;
  
    p_mi := libvlc_media_player_new(p_instance);
  
    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);
  
    libvlc_media_player_set_media(p_mi, media_t_ptr);
  
    libvlc_media_release(media_t_ptr);
  
    libvlc_media_player_set_display_window(p_mi, Panel2.Handle);
  
    libvlc_media_player_play(p_mi);
  
  
  
     mrl := 'C:\ffmpeg\bin\tmp\OUTPUT1.mp4';
  
  
  
    media_t_ptr2:=libvlc_media_new_path(VLC.Handle, PAnsiChar(UTF8Encode(mrl)));
  
  end;
  
  
  
  procedure TForm1.FormCreate(Sender: TObject);
  
  begin
  
    Button2.Click;
  
  end;
  
  
  
  function TForm1.GetVlcInstance: TPasLibVlc;
  
  begin
  
    if not Assigned(FVLC) then
  
    begin
  
      FVLC := TPasLibVlc.Create;
  
    end;
  
    Result := FVLC;
  
  end;
  
  
  
  procedure TForm1.WmMediaPlayerEndReached(var m: TVlcMessage);
  
  begin
  
    libvlc_media_player_set_media(p_mi, media_t_ptr2);
  
    libvlc_media_player_play(p_mi);
  
  end;
  
  
  
  end.