I gave it another try and still no go and it still gives -5 as the error index. Any other ideas?
Sub ShowLiveTVScreen()
port = CreateObject("roMessagePort")
screen = CreateObject("roVideoScreen")
video = {
streamFormat: "hls"
streams: [ { url: "http://192.168.251.42:5004/auto/v13%2E1", bitrate: 5500, quality: true } ]
}
screen.SetContent(video)
screen.SetMessagePort(port)
screen.Show()
While True
msg = wait(0, screen.GetMessagePort())
If type(msg) = "roVideoScreenEvent" Then
If msg.isScreenClosed() Then
Exit While
Else If msg.isStatusMessage() Then
Else If msg.isPlaybackPosition() Then
Else if msg.isFullResult() Then
Exit While
Else if msg.isPartialResult() Then
Exit While
Else if msg.isRequestFailed() Then
MessageBox("Playback Error", msg.GetMessage() + " (" + msg.GetIndex().ToStr() + ")")
Exit While
End If
End If
End While
End Sub