VLC Stream 1.09

[daman]

VLC Stream 1.09

Release notes

Program to automate starting up the stream from DB with VLC.
You can also choose to use the transcode setting, that will make VLC transcode the stream with settings you choose and sending the stream to other PC's. It also loops so if you change channel on the DB the program stops VLC and starts up again with correct settings.

You also have options like: change channel, put DB into standby, wake up from standby, EPG for current channel, open telnet from program, reboot the db, support for language preference in vlc 0.8.2 and above
New in this version:
- Minimize to tray.
- Change channel from trayicon.

PS! You need of course the VLC media player installed as well, preferably with the installation program they supply (no zip file) as that will set needed parameters into the registry..the pskill.exe and msinet.ocx is not needed in this version but you need .net framework installed.

VLC_Stream.Net.rar

[gretchen]

Great, thanks , works ok

[harry1322]

can you post some onstructions how to set it up please?

[Freebuster]

Very good program ! If someone could give the sources, it'll be helpfull for my HCPC (I try to do a program to control it with a remotecontrol for PC...).

[rodatthebay]

I think this is a great simple program.

Getting streaming working is pretty easy. I have a simple , similar program working on an EPG based GUI so I can see whats on and click on it to stream.

Some VB6 Code
'this will zap to a service. You need to get your service from the relevant files.

Function zaptoservice(strservice As String)
temp = frmdisplay.Inet1.OpenURL("http://" & dreamboxip & "/?mode=zap&path=" & strservice)
End Function

This little snippet will stream the current channel. It loads all the streaming parameters into an array and then provides them as parameters to the VLC client. I only have it running on the Hydra image. It also writes the parameters to a textfile for debug.

Sub streamcurrentchannel()
On Error GoTo errhan
thefile = FreeFile
Open App.Path & "\streaminfo.txt" For Output As thefile
temp = frmdisplay.Inet1.OpenURL("http://" & dreamboxip & "/cgi-bin/streaminfo")
Dim servarray(30)
servarrayct = 0
While InStr(temp, "</td>") > 0
temp1 = Left(temp, InStr(temp, "</td>") - 1)
temp = Mid(temp, InStr(temp, "</td>") + 5, 2000)
temp1 = Replace(temp1, "<td>", "")
temp1 = Replace(temp1, "<tr>", "")
temp1 = Replace(temp1, "</tr>", "")
servarray(servarrayct) = temp1
servarrayct = servarrayct + 1
'MsgBox temp1
Wend
For i = 1 To 23
Print #thefile, Str(i) & "-" & servarray(i)
Next
Close #thefile
Dim hnd As Integer
hnd = Shell("C:\Program Files\VideoLAN\VLC\vlc.exe http://" & dreamboxip & ":31339/0," & Left(servarray(21), 4) & "," & Left(servarray(7), 4) & "," & Left(servarray(9), 4) & "," & Left(servarray(11), 4), vbNormalFocus)
Exit Sub
errhan:
MsgBox "An error has occured . Report Error " & Error$

End Sub

If you want more code to get the services out of the dreambox files just drop me a PM.

Hope someone makes good use of this info it is very widely available.