Exemplo de adição de audio

e/ou video clips

Este exemplo executa um vídeo clip AVI escolhido em uma pasta qualquer. Para executar este exemplo, criar um novo projeto e salvar a Unit1.cpp como FrmAd.cpp e salve o arquivo Project1.bpr como MmediaAd.bpr.

A seguir:

1 Dê um duplo clique no ícone MediaPlayer da guia de componentes System.

2 Usando o Object Inspector, altere a propriedade Name de media player para VideoPlayer1.

3 Selecione a propriedade DeviceType e escolha dtAVIVideo na lista drop down.

4 Selecione a propriedade FileName, dê um clique no botão ellipsis (...), e escolha algum arquivo *.AVI na caixa de diálogo, nas pastas de seu computador. Esse vídeo será exibido pelo programa.

5 Marque para true a propriedade AutoOpen e a propriedade Visible para false.

6 Dê um duplo clique no ícone do componente Animate na guia Win32. Marque a propriedade AutoSize para false, (a propriedade para 175 e a propriedade Width para 200 - verificaro tamanho real, pois esse é o tamanho do exemplo do help). Dê um clique e arraste o controle Animate para o canto superior esquerdo do form.

7 Dê um clique em MediaPlayer para que esse receba novamente o foco. Selecione a propriedade Display e escolha Animate1 na lista drop down.

8 Dê um clique no form para que este receba o foco e selecione a propriedade Name e digite C++_Ad. Agora mude o tamanho do form para o tamanho do controle Animate.

9 Dê um duplo clique no evento OnActivate e escreva o seguinte código para rodar o vídeo AVI quando o form receber o foco:

VideoPlayer1->Play();

10 Compile e execute o programa.

//---------------------------------------------------------------------------

/*se for usado o código abaixo pode setar a propriedade BorderStyle para bsNone*/

void __fastcall TForm1::FormActivate(TObject *Sender)

{

MediaPlayer1->Play();

Sleep(5000);

Close();

}

//---------------------------------------------------------------------------