Imports LibVLCSharp.Shared ... Dim WithEvents VLCLibrary As LibVLC Dim WithEvents VLCMediaPlayer As MediaPlayer ... If Not DesignMode Then Core.Initialize() End If VLCLibrary = New LibVLC(False, "") VLCMediaPlayer = New MediaPlayer(VLCLibrary) TheViewer.MediaPlayer = VLCMediaPlayer With TheViewer.MediaPlayer .Scale = 0 ' Change size of video to match the window .Volume = 100 ' Full volume .NetworkCaching = 2000 .EnableHardwareDecoding = True End With VLCMediaPlayer.Play(New Media(VLCLibrary, "rtsp://xxx.xxx.xxx.xxx/STREAM", FromType.FromLocation)) ... Private Sub VLCLibrary_Log(sender As Object, e As LogEventArgs) Handles VLCLibrary.Log Debug.WriteLine($"{Format(Now, "HH:mm:ss.ffff")} {e.Message}") End Sub
VLCMediaPlayer.Play(New Media(VLCLibrary, "rtsp://xxx.xxx.xxx.xxx/STREAM", FromType.FromLocation))
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)