The VideoLAN Forums

Hi All,

I am developing a interface for VLC for streaming Television content captured from TV Tuner Card using VB.Net. I have embedded the VLC activex in my VB Form.

I wanted to pass the MRL information dynamically to the Activex. However the dynamic passing does not seem to work properly.

While Embedding the Plugin I have set MRL property as Blank

My Example Code is as follows :

Private Sub AxVLCPlugin1_Enter
Dim strArray() As String
AxVLCPlugin1.playlistClear()
AxVLCPlugin1.AutoPlay = True
AxVLCPlugin1.addTarget("dshow:// :dshow-vdev=""ULi M9205 TV Box"" :dshow-adev=""ULI M9205 "" :dshow-size="""" :dshow-caching=200 :dshow-chroma="""" :dshow-fps=0.000000 :no-dshow-config :dshow-tuner :dshow-tuner-channel=58 :dshow-tuner-country=60 :dshow-tuner-input=2", strArray, AXVLC.VLCPlaylistMode.VLCPlayListAppendAndGo, 0)

If Not AxVLCPlugin1.Playing Then
AxVLCPlugin1.play()
End If
End Sub

If I start VLC Player externally and play the above MRL it works. After that (stopping VLC Player) if I start my VB.Net application it works perfectly.

If I change the Tuner-Channel to something else (For example Channel 12) in the VLC Player and then start my VB Application it will play the Channel 12 - though in my application I have coded it to play channel 58.

Did anyone have similar problems ? I am coding on the wrong event ?

Please let me know.

Thanks very much for developing a very nice solution.

Satish

It is possible that the ptions need to be added as members of the options array, and the MRL left as dshow://

Thanks Tonsofpcs for your prompt reply.

I have been trying to put the parameters in ptions. However when i put them in the ptions, the VLC player does not seem to work.

Can you provide me a example of how to do it, considering my settings.

I have put "Dshow ://" as the default parameter of VLC Activex and in the Running() event I provide with all the other ptions as Array.

However this does not seem to work and even video is not displayed. Note that currently I can view video when the ption array is blank. There seems to be no documentation for this. If there is any please let me know

I am putting one of my trial codes for your reference :

Private Sub AxVLCPlugin1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxVLCPlugin1.Enter
Dim strArray(10) As String
strArray(0) = ":dshow-vdev=""ULi M9205 TV Box"" "
strArray(1) = ":dshow-adev=""ULI M9205 "" "
strArray(2) = ":dshow-Size = """" "
strArray(3) = ":dshow-caching = 200"
strArray(4) = ":dshow-chroma = """" "
strArray(5) = ":dshow-fps =0.0"
strArray(6) = ":no-dshow-config"
strArray(7) = ":dshow-tuner"
strArray(8) = ":dshow-tuner-channel= 58"
strArray(9) = ":dshow-tuner-country= 60"
strArray(10) = ":dshow-tuner-Input= 2"
AxVLCPlugin1.playlistClear()
AxVLCPlugin1.AutoPlay = True
AxVLCPlugin1.addTarget("dshow://", strArray, AXVLC.VLCPlaylistMode.VLCPlayListAppendAndGo, 0)

Thanks again

Try the options members without the leading ":". I have not worked with this in a month or two, and my code is on a machine that I lack access to at the moment. Also, sometimes I have noticed that it works better if the last member of the options array is a null string ("")