Executar um arquivo de V�deo

Question

Ol�. Sou novo por aqui e estou come�ando a programar em Delphi agora. Estou tentando fazer uma app que possa executar um video dentro de uma janela (.WMV).
Naum sei qual componente devo usar e quais os comandos. Estou usando Delphi7.
Qualquer ajuda � bem vinda.
Obrigado.

Rodc · Answer

Coloque um TMediaPlayer e um TOleContainer na tela (palheta System).
Depois aponte a propriedade Display do TMediaPlayer para o TOleContainer e mude a propriedade AutoOpen para true.
Depois chame por linha de c�digo:
MediaPlayer1.FileName := �seu_arquivo.wmv�;

D� uma pesquisada na internet e no f�rum que est� cheio de conte�do sobre este assunto.

Abelha · Answer

Obrigado pela dica. Resolvi usar o WindowsMediaPlayer pa paleta ActiveX, e est� rodando. Agora eu gostaria de capturar o tempo de v�deo em execu��o. Por exemplo, quando clico em Stop ou pause, fornece o tempo decorrido.
Obrigado..

Abelha · Answer

Eu achei o que queria e vou postar aqui, caso seja �til para alguem:

begin

//Para saber o tempo decorrido desde o in�cio do v�deo. tempo � uma string.
tempo:= WindowsMediaPlayer1.ControlInterface.controls.currentPositionString;

//Para avan�ar ou retornar o tempo a um valor determinado, no caso 25 segundos.
WindowsMediaPlayer1.ControlInterface.controls.currentPosition:=25;

end;