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