Executando vídeo no Delphi através do ActiveX do Windows Media Player

Executando vídeo no Delphi através do ActiveX do Windows Media Player

Quando precisamos de mais alguns recursos no Delphi, temos a possibilidade de utilizar ActiveX de softwares que estão instalados na máquina e oferecem uma possibilidade de interligação.

Para demonstrar essa possibilidade vamos utilizar o ActiveX do Windows Media Player para exibir vídeos em um software criado no Delphi.

Para começar é necessário fazer a importação do ActiveX que resultará na exibição de um componente na paleta ActiveX. No Delphi 7, acesse o menu -Component -Import ActiveX Control. Na lista, encontre Windows Media Player (Version 1.0)

Figura 1. Importando o ActiveX Windows Media Player

Clique em Install.

Figura 2. Especificando a package que será utilizada pelo componente

Clique em OK

Figura 3. Construindo o pacote do componente

Clique em Yes

Figura 4. Instalando o componente do ActiveX

Clique em install. Pronto, agora você pode fechar o package. Se for solicitado para salvar, de Yes. Agora, podemos pegar o componente Windows Media Player que está na paleta de componentes ActiveX. Coloque um no formulário e altere a propriedade URL para:

http://www.videoslegais.com.br/vl/bemboladas/mudanca_atrapalhada.wmv

Compile a aplicação e veja o filme sendo exibido dentro do formulário da aplicação.

Figura 5. Aplicação executando o Windows Media Player