Mintoris Forum

Author Topic: CaptianZ-RO Video Demo  (Read 2106 times)

Chuck

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 1899
CaptianZ-RO Video Demo
« on: Oct 11, 2011, 02:50 AM »
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
« Last Edit: Apr 13, 2012, 02:11 AM by Chuck »

Chuck

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 1899
Re: Video Demo - CaptianZ-RO
« Reply #1 on: Apr 13, 2012, 01:40 AM »
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
« Last Edit: Apr 13, 2012, 01:52 AM by Chuck »