GAMBAS BOOK 3.19.5

This class implements a media player with simple control and can be created.

To create a new MediaView:

  Dim hMediaView As MediaView
  hMediaView = New MediaView ( Parent As Container ) [ As "EventName" ]

Alternatively, you can drag the MediaView control from the 'Media' folder in the IDE onto the form if you have previously added the gb.media.form component in the project properties.

Figure 23.15.1: MediaView as a video player

The MediaView class has these properties

Table 23.15.1.1 : Properties of the MediaView class

The MediaView class has these methods:

Table 23.15.2.1 : Methods of the MediaView class

Example:

  MediaView1.URL = Media.URL("/tmp/media.mpg")
  Print MediaView1.Duration
    MediaView1.Play()
    MediaView1.Pause()
  Print MediaView1.Duration

Output in the IDE console (unit seconds):

  0
  342

The MediaView class has this relevant event:

Table 23.15.2.1.1 : Events of the MediaView class

The project is configured so that you can play video files in different video formats.

The source code is short and is given here in full and then commented on:

  [1] ' Gambas class file
  [2]
  [3] Private $sFileName As String
  [4]
  [5] Public Sub Form_Open()
  [6]     MediaView1.Volume = 0.7
  [7]     FMain.Width = 629
  [8] End
  [9]
  [10] Public Sub btnOpenVideo_Click()
  [11]
  [12]     Dim sFilter As String
  [13]     Dim aFilter As String[]
  [14]
  [15]     Dialog.Title = ("Select a video file")
  [16]     sFilter = "*.avi;*.mp4;*.mpeg;*.mpg;*.webm;*.ogv;*.mkv"
  [17]     Dialog.Filter = [sFilter, ("Video files"), "*", ("All files")]
  [18]     Dialog.FilterIndex = 0
  [19]
  [20]     If Dialog.OpenFile(False) Then Return
  [21]
  [22]     $sFileName = File.Name(Dialog.Path)
  [23]     FMain.Caption = ("Video: ") & $sFileName
  [24]
  [25]     aFilter = ["avi", "mp4", "mpeg", "mpg", "webm", "ogv", "mkv"]
  [26]     If aFilter.Exist(File.Ext(Dialog.Path)) Then
  [27]        MediaView1.URL = Media.URL(Dialog.Path)
  [28]     Endif
  [29]
  [30] End
  [31]
  [32] Public Sub MediaView1_AboutToFinish()
  [33]     Wait 2
  [34]     FMain.Caption = ("The video « ") & $sFileName & (" » has been played")
  [35] End
  [36]
  [37] Public Sub Form_Close()
  [38]
  [39]     Dim hWindow As Window
  [40]
  [41] '-- Close all open windows
  [42]     For Each hWindow In Windows
  [43]         hWindow.Close()
  [44]     Next
  [45]
  [46] End

Comments

• In lines 10 to 30, a video file is selected in a file selection dialogue. A filter ensures that only certain video formats are available for selection.
• A second filter in line 25 ensures that only certain video formats can be played.
• In line 25, the path of a local video file is converted into a URL using the (static) function Media.URL(…) and then assigned to the MediaView.URL property in line 27.
• The MediaView control provides a toogle button and a button for playing, pausing and stopping the video.

• If you want to play a corrupt video file - created after a faulty format conversion, for example - you will receive a (fatal) error message. At present, you cannot intercept such an error in the source code.

In the download area you will find a project archive with the above example.