Topic: WindowsMediaPlayer
Для версии 5.3 и выше
Пример создания видео плеера на форме.
Скрипт:
procedure Form1_OnClose (Sender: TObject; Action: string);
begin
WMP.Stop;
WMP.Free;
end;
begin
WMP:= TWindowsMediaPlayer.Create(Form1);
With WMP do
begin
TabOrder:= 1;
Align:= alclient;
Parent:= Form1.Panel1;
Visible:= true;
end;
// File, IP, URL, DDNS
//WMP.URL:= 'd:\Films\film.mkv';
WMP.set_volume(100);
WMP.stretchToFit:= 1; // stretch video
WMP.enableContextMenu:= 1;
// none - Windows Media Player is embedded without controls, and with only the video or visualization window displayed.
// mini - Windows Media Player is embedded with the status window, play/pause, stop, mute, and volume controls shown in addition to the video or visualization window.
// full - Windows Media Player is embedded with the status window, seek bar, play/pause, stop, mute, next, previous, fast forward, fast reverse, and volume controls in addition to the video or visualization window.
// invisible - Windows Media Player is embedded without any visible user interface (controls, video or visualization window).
WMP.uiMode:= 'full';
end.
Проект с примером: