Executar um arquivo de Vídeo
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.
Naum sei qual componente devo usar e quais os comandos. Estou usando Delphi7.
Qualquer ajuda é bem vinda.
Obrigado.
Abelha
Curtidas 0
Respostas
Rodc
01/08/2008
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.
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.
GOSTEI 0
Abelha
01/08/2008
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..
Obrigado..
GOSTEI 0
Abelha
01/08/2008
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;
GOSTEI 0