Vimos no artigo "Criando Player Multimídia no Delphi" como abrir arquivos de áudio pelo delphi. Esta dica vem para complementá-la, mostrando agora como
abrir vídeos, utilizando o componente TMediaPlayer e um TPanel.
Acrescente ao form um Button e um Panel (Standard), um MediaPlayer (System)
e um OpenDialog (Dialogs).
No componente MediaPlayer1, ligue a propriedade Display ao Panel1.
No evento onClick do Button, faça:
if opendialog1.execute then
begin
mediaplayer1.filename := opendialog1.filename;
mediaplayer1.open;
mediaplayer1.Perform(wm_lbuttondown, 0, $00090009);
mediaplayer1.Perform(wm_lbuttonup, 0, $00090009);
end;
Agora é só rodar! No diretório de instalação do seu delphi, há o caminho
Demos\CoolStuf. Nessa pasta existem 2 arquivos de vídeo que você possa
testar e ver se seu MediaPlayer funciona!
Espero que tenha sido útil.
Abraços!
|