Roku Developer Program

Developers and content creators—a complete solution for growing an audience directly.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
Dan13_
Level 7

RoVideoScreen not loading video

I have a Roku application that is given links to a video through the launch command. This video is then displayed in a `roVideoScreen` object. However, the video just doesn't load. Assuming all the links work can anyone see what is going wrong. Any help is appreciated.

count = CreateObject("roInt")
count = info.Lookup("amount").ToInt()

bitrates = CreateObject("roArray", count, false)
qualities = CreateObject("roArray", count, false)
url = CreateObject("roArray", count, false)
StreamFormat = "mp4"
title = info.Lookup("title")

index = 0

if info.DoesExist("720") = true

url = info.Lookup("720")
bitrates.Push(2500)
qualities.Push("HD")
index = index + 1
end if

if info.DoesExist("480") = true

url = info.Lookup("480")
bitrates.Push(1200)
qualities.Push("SD")
index = index + 1
end if

if info.DoesExist("360") = true

url = info.Lookup("360")
bitrates.Push(700)
qualities.Push("SD")
index = index + 1
end if

if info.DoesExist("240") = true

url = info.Lookup("240")
bitrates.Push(380)
qualities.Push("SD")
index = index + 1
end if

videoclip = CreateObject("roAssociativeArray")
videoclip.StreamBitrates = bitrates
videoclip.StreamQualities = qualities
videoclip.StreamUrls = url
videoclip.StreamFormat = StreamFormat
videoclip.Title = title

video = CreateObject("roVideoScreen")
port = CreateObject("roMessagePort")
video.SetMessagePort(port)

video.SetContent(videoclip)

video.Show()
while true

end while
0 Kudos
2 REPLIES 2
RokuMarkn
Level 9

Re: RoVideoScreen not loading video

For one thing, you are setting url, and thus videoclip.StreamUrls, to a string rather than an array. You initially create an array for it but then you replace the array with a string rather than pushing the string onto the array.

--Mark
0 Kudos
Dan13_
Level 7

Re: RoVideoScreen not loading video

Yep that fixed it I just had to change the lines like ("url = info.Lookup("720")") to ("url.SetEntry(index,info.Lookup("480"))")
0 Kudos