Проверка наличия rtsp-потока с IP-камеры libvlc

procedure TForm1.btnStart1Click(Sender: TObject);
begin
  // create new vlc instance
  vlcInstance1 := libvlc_new(0, nil);
  // create new vlc media from network, use libvlc_media_new_location instead
  vlcMedia1 := libvlc_media_new_location(vlcInstance1, 'rtsp://192.168.9.55:555/h264/media.amp');
  // create new vlc media player
  vlcMediaPlayer1 := libvlc_media_player_new_from_media(vlcMedia1);
  // now no need the vlc media, free it
  libvlc_media_release(vlcMedia1);
  // play video in a TPanel, if not call this routine, vlc media will open a new window
  libvlc_media_player_set_hwnd(vlcMediaPlayer1, Pointer(Panel1.Handle));
  // play media
  libvlc_media_player_play(vlcMediaPlayer1);
end;
 
procedure TForm1.btnStop1Click(Sender: TObject);
begin
  if not Assigned(vlcMediaPlayer1) then
    Exit;
 
  // stop vlc media player
  libvlc_media_player_stop(vlcMediaPlayer1);
  // and wait until it completely stops
  while libvlc_media_player_is_playing(vlcMediaPlayer1) = 1 do begin
    Sleep(100);
  end;
  // release vlc media player
  libvlc_media_player_release(vlcMediaPlayer1);
  vlcMediaPlayer1 := nil;
  // release vlc instance
  libvlc_release(vlcInstance1);
end;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, PasLibVlcUnit, Vcl.StdCtrls,
  Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    pMediaPlayer: libvlc_media_player_t_ptr;
  public
    { Public declarations }
  end;
 
procedure EventCallBack(p_event : libvlc_event_t_ptr; data:  Pointer); cdecl;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure EventCallBack(p_event : libvlc_event_t_ptr; data:  Pointer);
var
  str: string;
begin
  case p_event.event_type of
    libvlc_MediaPlayerPlaying: str := 'Playing';
    libvlc_MediaPlayerPaused: str := 'Paused';
    libvlc_MediaPlayerStopped: str := 'Stopped';
    libvlc_MediaPlayerOpening: str := 'Opening';
    libvlc_MediaPlayerEncounteredError: str := 'Encountered Error';
  end;
  Form1.Label1.Caption := str;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  libvlc_media_player_play(pMediaPlayer);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  libvlc_media_player_stop(pMediaPlayer);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  libvlc_media_player_pause(pMediaPlayer);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  pInst : libvlc_instance_t_ptr;
  pMedia: libvlc_media_t_ptr;
  pEventManager: libvlc_event_manager_t_ptr;
begin
  libvlc_dynamic_dll_init();
  pInst := libvlc_new(0, nil);
  pMedia := libvlc_media_new_location(pInst, 'rtmp://stream.smcloud.net/live2/eskatv/eskatv_480p');
  pMediaPlayer := libvlc_media_player_new_from_media(pMedia);
  libvlc_media_release(pMedia);
  libvlc_media_player_set_hwnd(pMediaPlayer, Panel1.Handle);
  // get event manager
  pEventManager := libvlc_media_player_event_manager(pMediaPlayer);
  // register event
  libvlc_event_attach(pEventManager, libvlc_MediaPlayerPlaying, @EventCallBack, nil);
  libvlc_event_attach(pEventManager, libvlc_MediaPlayerPaused, @EventCallBack, nil);
  libvlc_event_attach(pEventManager, libvlc_MediaPlayerStopped, @EventCallBack, nil);
  libvlc_event_attach(pEventManager, libvlc_MediaPlayerOpening, @EventCallBack, nil);
  libvlc_event_attach(pEventManager, libvlc_MediaPlayerEncounteredError, @EventCallBack, nil);   // it is?
end;
 
end.