"FML2010" wrote:
unless i missed it somewhere in the SDK
who would we go ahead and set up these type of banner ads on the bottom of the screen and click? will they only open to a video?
can they open to a with roVideoPlayer and roImageCanvas, so we can combine video, images and text on this screen?
Sub PlayAdVideo()
videoScreen = CreateObject("roVideoScreen")
port = CreateObject("roMessagePort")
videoScreen.SetMessagePort(port)
videoScreen.SetContent( { url: "http://myvideo.com/myAdVideo.mp4",
StreamFormat: "mp4"
} )
while true
msg = wait(0, screen.GetMessagePort())
if msg.isScreenClosed() then
return
endif
end while
End Sub
'***********************************************************************************************************
' On a poster screen already setup, you can add an ad and set the display mode via:
screen.SetAdURL(sdAdUrl, hdAdURL)
screen.SetAdDisplayMode("scale-to-fit")
while true
msg = wait(0, screen.GetMessagePort())
' handle other events as normal
if msg.isAdSelected() then
' play ad video
PlayAdVideo()
endif
end while
Function preShowPosterScreen(breadA=invalid, breadB=invalid) As Object
if validateParam(breadA, "roString", "preShowPosterScreen", true) = false return -1
if validateParam(breadB, "roString", "preShowPosterScreen", true) = false return -1
port=CreateObject("roMessagePort")
screen = CreateObject("roPosterScreen")
screen.SetMessagePort(port)
if breadA<>invalid and breadB<>invalid then
screen.SetBreadcrumbText(breadA, breadB)
end if
screen.SetListStyle("flat-category")
screen.SetAdURL("http://www.puresilvabannermaker.com/bannermaker/backgroundthumbs/scale_summersun5.jpg","http://www.puresilvabannermaker.com/bannermaker/backgroundthumbs/scale_summersun5.jpg")
screen.SetAdDisplayMode("scale-to-fit")
while true
msg = wait(0, screen.GetMessagePort())
' handle other events as normal
if msg.isAdSelected() then
' play ad video
PlayAdVideo()
endif
end while
return screen
End Function
"FML2010" wrote:
And it wont even load the poster screen...
end while
return screen
End Function
Function preShowPosterScreen(breadA=invalid, breadB=invalid) As Object
if validateParam(breadA, "roString", "preShowPosterScreen", true) = false return -1
if validateParam(breadB, "roString", "preShowPosterScreen", true) = false return -1
port=CreateObject("roMessagePort")
screen = CreateObject("roPosterScreen")
screen.SetMessagePort(port)
if breadA<>invalid and breadB<>invalid then
screen.SetBreadcrumbText(breadA, breadB)
end if
screen.SetListStyle("flat-category")
screen.SetAdURL("http://www.puresilvabannermaker.com/bannermaker/backgroundthumbs/scale_summersun5.jpg","http://www.puresilvabannermaker.com/bannermaker/backgroundthumbs/scale_summersun5.jpg")
return screen
End Function