CaptianZ-RO Video Demo

[Chuck]

Here is a little video demo.  It only takes a few lines of code to play a video file.

Code: [Select]

Top:
PlayVideo "video/CaptainZ-RO.3gp"
Wait 1000

Playloop:
Wait 250
If GetVideoDuration() > 0 Then Playloop

Wait "Play"
Goto Top

[Chuck]

Here is an updated CaptainZ-RO video demo.  This version locks the screen orientation in the landscape mode and self-downloads the video from the Mintoris web site if it does not exist.

This program requires Basic Version 5.0 to run.

-Chuck

' This demo program downloads a video from the Mintoris web site and plays it.
' This program requires Basic Version 5.0 to run.

' The Orientation is locked in landscape mode for video playing.
Orientation 2

srcFile$ = "www.mintoris.com/demo/CaptainZ-RO.3gp"
dstFile$ = "video/CaptainZ-RO.3gp"

' Download the video if it does not exist.
If not isFile(dstFile$) Then
  Print "Downloading Video…"
  Wait 1
  If not HttpDownload(srcFile$, dstFile$) Then
    Print "Could not download video."
    End
  Endif
  Print "Video download complete."
  Wait 2000
Endif

Do
  PlayVideo dstFile$
  Wait 1000

  Do
    Wait 250
  Loop while GetVideoDuration() > 0

Wait "Play"
Loop