I am trying to build WEB APP which has WebMoviePlayer in Xojo 2018r3.
Regular play is working normally, but when I try to seek position in MoviePlayer, nothing happens, except when I seek on first frame.
Inside App folder, I am creating symbolic links which are targeting location of video files, so I can use them in my App. I am creating url like http://127.0.0.1:8080/music/attention.mp4
Since I have 2 locations where files could be placed, this is my HandleURL code:
// Call our static content handler. Each top level folder will require it's own handler.
If (App.HandleStaticContent(Request, App.ExecutableFile.Parent.Child("mediaProxy"), "video/mp4") = True) Then
// We overrode the default MIMEType because all files in "static1" are PDF's. This gives the browser additional context like opening the PDF inside the browser window.
Return True
else
If (App.HandleStaticContent(Request, App.ExecutableFile.Parent.Child("media"), "video/mp4") = True) Then
Return True
End If
End If
And this is HandleStaticContent method
// Verify we have a valid path so as not to catch blank GET requests.
If (Request.Path = "") Then
Return False
End If
// Determine if we have a file that matches this path.
Dim _filePath As String
_filePath = Request.Path
#If TargetWindows = True Then
_filePath = _filePath.ReplaceAll("/", "\")
#EndIf
Dim _folderPath As String
_folderPath = Folder.NativePath
#If TargetWindows = True Then
_folderPath = _folderPath + "\"
#ElseIf TargetLinux = True Or TargetMacOS = True Then
_folderPath = _folderPath + "/"
#EndIf
dim f as FolderItem = GetFolderItem(_folderPath)
if f <> Nil then
dim folPath As String
folPath = f.URLPath
dim fullPath as String = folPath + _filePath
f = GetFolderItem(folPath + _filePath, FolderItem.PathTypeURL)
end if
Dim _fullPath As String
_fullPath = _folderPath + _filePath
Dim _fileInFolder As FolderItem
_fileInFolder = GetFolderItem(_folderPath + _filePath, FolderItem.PathTypeNative)
If f = Nil Then
Return False
End If
If f.Exists = false Then
Return False
End If
// We got this far which means there is a file that matches this request path. Let's set the request MIME type.
If (_fileInFolder.Name.Lowercase().Right(4) = ".css") Then
Request.MIMEType = "text/css"
Else
Request.MIMEType = MIMEType
End If
// We should also update the status code because some browsers are picky about this.
Request.Status = 200 // HTTP OK
// Read the file contents and append to the request.
Dim _fileStream As BinaryStream
_fileStream = BinaryStream.Open(f)
Request.Print(_fileStream.Read(_fileStream.Length))
// Return True so Xojo Web sends the file down to the browser.
Return True
If I try to play same file, but from different location (from our website), seek is working normally.
Are there any settings in Xojo, or I’m missing something in this case?
Thank you.
