Subtitles in RoVideoScreen in case of Audio

Archived
1

I am trying to implement subtitles on RoVideoScreen when playing an Audio file.But When i try to play Subtitle ,I didnt see any subtitles.Is their is any other way so that we can show subtitles on RoVideoScreen in case of audio


Function displayVideo(itemIndex as Integer, json As Object,onSubtitle as Integer,isResumePosition As String,index As Integer)
    print "display video started"  

    displayType = getDisPlayType()

    p = CreateObject("roMessagePort")
    video = CreateObject("roVideoScreen")
    video.setMessagePort(p)
    videoclip = CreateObject("roAssociativeArray")
    'StreamBitrates  = [384, 500, 1000, 1500]
    'StreamBitrates  = [1500]
    StreamUrls = CreateObject("roList")
    StreamQualities = CreateObject("roList")
    StreamStickyHttpRedirects = CreateObject("roList")
    StreamBitrates  = getAllBitrate(json.destinationContent[index].video[itemIndex].videoUrl)
    
    For Each bitrate In StreamBitrates
		StreamUrls.AddTail(json.destinationContent[index].video[itemIndex].videoUrl)
		StreamStickyHttpRedirects.AddTail(true)
		if bitrate < 1125
			StreamQualities.AddTail("SD")
		else
			StreamQualities.AddTail("HD")
		end if
    End For
    
    videoclip.StreamUrls		= StreamUrls
    videoclip.StreamBitrates	= StreamBitrates
    videoclip.StreamQualities	= StreamQualities
    videoclip.StreamStickyHttpRedirects = StreamStickyHttpRedirects

	videoclip.Title		  	  = json.destinationContent[index].video[itemIndex].title
	videoclip.StreamFormat    = "hls"
    
    videoclip.HDBranded       = true
    videoclip.Length	      = json.destinationContent[index].video[itemIndex].Duration
    
    
     
    'if json.video[itemIndex].srtFileUrl.count() <> 0 and onSubtitle=0
	end if
	video.SetPositionNotificationPeriod(2)
    video.SetContent(videoclip)
   
    if isResumePosition = "true"
		nowpos=getPlaybackTime(videoclip.Title)
	else if isResumePosition = "false"
	    nowpos=0
	endif
    video.show()
    lastSavedPos   = 0
    flag=1
    statusInterval = 10 
    while true
        msg = wait(0, video.GetMessagePort())
        if type(msg) = "roVideoScreenEvent"
            if msg.isScreenClosed() then 
				setPlaybackTime(videoclip.Title,nowpos)				
                exit while
			else if msg.isStreamStarted() then
				print "info= ";msg.GetInfo()
				if flag=1
					video.Seek(1000*nowpos)
					flag=0
				End if
			else if msg.isStreamSegmentInfo() then
				info=msg.GetInfo()
				print "isStreamSegmentInfo = ";info
			else if msg.isPartialResult() then
				setPlaybackTime(videoclip.Title,nowpos)
			else if msg.isFullResult() then
				deleteLastPlay(videoclip.Title)
				nowpos = 0
            else if msg.isPlaybackPosition() then
                nowpos = msg.GetIndex()
				print "Current Posintion is ";nowpos
                if nowpos > 10000
                    
                end if
                if nowpos > 0
                    if abs(nowpos - lastSavedPos) > statusInterval
                        lastSavedPos = nowpos
                    end if
                end if
            else if msg.isRequestFailed()
                print "play failed: "; msg.GetMessage()
            else
                print "Unknown event: "; msg.GetType(); " msg: "; msg.GetMessage()
		if msg.GetType()=15
			
print "Video ended "
		End if
            endif
        end if
    end while    
    print "display video end"
End Function