My Code is:
Code: Select all
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim sCamIP1 As String = "rtsp://192.168.1.168:554/live1.sdp"
Dim sopt() As String = {"--sout""#duplicate{dst=std{access=file,mux=avi,dst=""C:\\test.avi""}}"}
AxVLCPlugin1.playlistClear()
AxVLCPlugin1.addTarget(sCamIP1, sopt, AXVLC.VLCPlaylistMode.VLCPlayListInsert, 0)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
AxVLCPlugin1.play()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
AxVLCPlugin1.stop()
End Sub
Cheers.