Trabalhando com vídeos no Delphi

A utilização de arquivos de vídeo no Delphi pode incrementar suas aplicações tornando-as mais atraentes e interativas.

Exemplo 1 – Executando um vídeo em um componente:

Procedure Executar_Video;
Begin
  with MediaPlayerVideo do
  begin
    //Informamos qual é o arquivo de vídeo que será executado
    MediaPlayerVideo.FileName := GetCurrentDir+'\Videos\Video_Teste.mpg';

    //Abrimos o Media Player
    Open;

    //Informamos em qual componente será exibido o vídeo
    //Se omitimos onde o vídeo será exibido o delphi cria uma nova janela com a mesma resolução do vídeo
    Display := Nome_Componente;

    //Informamos que o vídeo será redimensionado para ocupar todo o componente
    //Se omitimos esta declaração o delphi executa o vídeo com sua resolução original
    MediaPlayerVideo.DisplayRect := Nome_Componente.ClientRect;

    //Executamos o vídeo
    Play;
  end;
End;

Com o exemplo 1 conseguimos executar com sucesso um arquivo de vídeo em um componente do delphi como, por exemplo, um Panel. Porém não conseguimos alterar o volume do vídeo que esta sendo exibido.

Exemplo 2 – Controlando o áudio de seu vídeo:

Vamos declarar em uses MMSystem. Adicione também:

const
   MCI_SETAUDIO = $0873;
   MCI_DGV_SETAUDIO_VOLUME = $4002;
   MCI_DGV_SETAUDIO_ITEM = $00800000;
   MCI_DGV_SETAUDIO_VALUE = $01000000;
   MCI_DGV_STATUS_VOLUME = $4019;

type
   MCI_DGV_SETAUDIO_PARMS = record
     dwCallback: DWORD;
     dwItem: DWORD;
     dwValue: DWORD;
     dwOver: DWORD;
     lpstrAlgorithm: PChar;
     lpstrQuality: PChar;
   end;

type
   MCI_STATUS_PARMS = record
     dwCallback: DWORD;
     dwReturn: DWORD;
     dwItem: DWORD;
     dwTrack: DWORD;
   end;

Vamos adicionar uma procedure e uma function:

procedure MPSetVolume(MP: TMediaPlayer; Volume: Integer) ;
var
   p: MCI_DGV_SETAUDIO_PARMS;
begin
   p.dwCallback := 0;
   p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
   p.dwValue := Volume;
   p.dwOver := 0;
   p.lpstrAlgorithm := nil;
   p.lpstrQuality := nil;
   mciSendCommand(MP.DeviceID, MCI_SETAUDIO, MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p)) ;
end;

function MPGetVolume(MP: TMediaPlayer): Integer;
var
   p: MCI_STATUS_PARMS;
begin
   p.dwCallback := 0;
   p.dwItem := MCI_DGV_STATUS_VOLUME;
   mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p)) ;
   Result := p.dwReturn;
end;

Para saber qual é o volume atual do MediaPlayer usamos a function MPGetVolume.

Ex:

Edit.Text := inttostr(MPGetVolume(Nome_do_Componente_MediaPlayer).

E para alterar usamos a procedure MPSetVolume. Onde informamos o nome do componente MediaPlayer que terá seu volume alterado e o novo valor. O volume pode ser alterado entre 0 e 1000.

Ex:

MPSetVolume(Nome_do_Componente_MediaPlayer,100).

Para verificar se o vídeo já terminou de ser exibido pode-se adicionar um ProgressBar a aplicação e através de um timer sincronizar a propriedade Position de ambos durante a exibição do vídeo.

Um abraço a todos,

José Bernardo Junior
E-mail: giuseppe@qtech.com.br
Msn: z-bernardo@hotmail.com