Stream Video with VLC ActiveX using VB6

[Sattaz]

Hello,

I block on a problem than some of you had by trying to stream video with VLC plugin. I have read the post relating to C# but i don't know what to change to correct my VB6 code.

Here it is :


''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Voptions() As Variant

''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command3_Click()

Voptions() = Array("--sout=#transcode{vcodec=WMV2,vb=64,scale=0.5,acodec=mp3,ab=16,channels=2}:duplicate{dst=std{access=mmsh,mux=ts,url=192.168.0.100:8080}}")

VLCPlugin.addTarget video_Stream, Voptions, VLCPlaylistMode.VLCPlayListInsert, 0

VLCPlugin.play

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''

With this code, i get the video in the VLC plugin object but nothig is streaming to the 192.168.0.100:8080 adress ...
Can someone help me ?

Thank you and best regards,

Sattaz.

[Sattaz]

There is the working code :

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command3_Click()

Dim Voptions() As Variant

Voptions() = Array(":sout=#transcode{vcodec=WMV2,vb=64,scale=0.5,acodec=mp3,ab=16,channels=2}:duplicate{dst=std{access=mmsh,mux=ts,url=192.168.0.100:8080}}")

VLCPlugin.addTarget video_Stream, Voptions, VLCPlaylistMode.VLCPlayListInsert, 0

VLCPlugin.play

End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

The error was in the definition of the Voptions array.

Best regards,

Sattaz.