Topic: WindowsMediaPlayer

Для версии 5.3 и выше


Пример создания видео плеера на форме.

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5126&download=0



Скрипт:

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.

Проект с примером:

Post's attachments

Attachment icon Media Player (TWindowsMediaPlayer).zip 6.41 kb, 188 downloads since 2019-02-21 

Attachment icon MediaPlayer.jpg 153.28 kb, 102 downloads since 2019-02-21 

Dmitry.

Re: WindowsMediaPlayer

Подскажите, как передать в плеер файл, выбранный из грида? Если файлов несколько и двойным кликом выбирается один из них.

idZapis:=tree.TableGrid1.dbItemID;
fileV:=SQLExecute('SELECT fileInf_filename from bank WHERE id='+IntToStr(idZapis));

сюда

   begin
     tree.Hide;
     WMPplayer.Show;
     WMP.Play;
  end
Yana

Re: WindowsMediaPlayer

Решено smile

begin
     tree.Hide;
     WMPplayer.Show;
     WMP.URL:=fileV;    //открываем файл
     WMP.Play;
end;
Yana

Re: WindowsMediaPlayer

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  sM:=TWindowsMediaPlayer.create(form1);
  sM.OnClick := @WMOnClick;
  sM.OnDoubleClick := @WMOnDoubleClick;
  With sM do
    begin
        TabOrder:= 1;
        Align:= alclient;
        Parent:= Form1.Panel1;
        Visible:= true;
     end;
  sM.uiMode:= 'none';
end;

перехват возможен только в темной области плэйера, если кликать на воспроизводящееся видео то  плэйер работает  по своему...

sM.uiMode:= 'none';

двойной клик по производящемуся видео приводит в итоге к паузе

Re: WindowsMediaPlayer

Тут я мало что могу сделать, так реализован плеер.

Dmitry.