Hi,
I have a splash video to be played after the channel loads.But when the loading is over ,a black screen appears for a while and then it starts playing splash video.Same is the case when using splash image also.How can i remove that black screen , so that after the channel loading , i can directly see the video?
Sub Main()
ShowSplash()
End Sub
Function ShowSplash() As integer
port = CreateObject("roMessagePort")
canvas = CreateObject("roImageCanvas")
player = CreateObject("roVideoPlayer")
canvas.SetMessagePort(port)
player.SetMessagePort(port)
canvas.SetLayer(0, { color: "#00000000", CompositionMode: "Source" })
player.SetPositionNotificationPeriod(1)
player.SetContentList([{
streamFormat: "mp4"
stream: { url: "http://clips.vorwaerts-gmbh.de/VfE_html5.mp4" }
}])
player.SetDestinationRect(canvas.GetCanvasRect())
canvas.Show()
player.Play()
while true
msg = Wait(0, port)
'print type(msg)
if msg.isStreamStarted()
print player.GetPlaybackDuration()
print msg.GetIndex()
else if msg.isFullResult()
'showRegOptions()
player.Stop()
doRegistration()
else if msg.isScreenClosed() then
return -1
end if
end while
return 0
End Function
