Tutorial: TMediaPlayer in FireMonkey (Delphi DX 11 Alexandria) on Windows only

Описание: DISCLAIMER: This video is boring to the average YouTube viewer.


We create an app with TMediaPlayerControl and TMediaPlayer. We use TControlAction for the play and pause calls and to update the time. Unfortunately we can only play WMV files here, so no MP4.


Tutorial: TMediaPlayer in FireMonkey (Delphi DX 11 Alexandria) auf Windows 11

Wir erstellen ein App mit TMediaPlayerControl und TMediaPlayer. Wir nutzen TControlAction für die Play und Pause aufrufe und als Update der Zeit. Leider können wir hier nur WMV-Dateien abspielen, also keine MP4.

0:00 Overview
0:34 Start Delphi and go
1:07 Save the project
1:24 Build user view with components
7:43 Insert the "MediaPlayerControl".
8:00 Insert the "MediaPlayer".
8:10 Linking MediaPlayer and MediaPlayerControl
8:30 Set DragDrop for layout to feed MediaPlayer
12:52 Provide interface to IVMRWindowlessControl9
17:57 Event Create Repaint (RepaintVideo)
20:10 Create MediaSeekTo
23:11 Create the button function, start, back, forward, end
24:52 Activate the bottom scroll bar for searching (SeekToPos)
28:36 Connect button for play and stop to ControlAction
32:11 Update for search view bar
33:43 Set mute
34:28 Show the current time and duration of the video
35:34 Show remaining video time
36:32 Set up view of times, search view bar and mute
38:13 We test the media player
43:22 We print the FMX and Pas file as PDF
47:02 we clean up
47:16 we test again
48:43 We create resource string
49:51 Settings for the app (FormCreate)
51:13 We check the app
51:46 We print the source code
56:08 Let's look at iTunes as a media player on Windows



TWindowsMedia, TMediaPlayer, TMediaPlayerControl, TActionList, TControlAction, DragOver, DragDrop, Line, TCircle, TButton, TLabel, TCheckBox, TMedia, IMediaSeeking, IVMRWindowLessControl9, FMX.Media.Win, Winapi.DirectShow9, Winapi.Windows, MediaTimeScale, AbsolutePositioning, NoPositioning, TMedia.State, VMRWindow, TWndClass, SeekToPos, RepaintVideo, MediaSeekTo, QueryInterface


#FireMonkey #Delphi