Executar um arquivo de Vídeo

01/08/2008

1

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.


Responder

Posts

01/08/2008

Rodc

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.


Responder

03/08/2008

Abelha

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..


Responder

05/08/2008

Abelha

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;



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira