ActiveDelphi

[newrogerio]

alguem sabe ai como fazer um player?
tem ki ser +- assim
o video tem ki ser executado dentro de um panel ou outro componente que seja parecido.......e ter um botão abrir pra poder selecionar o video a a ser executado no formato avi......

e o video tem ki ficar sendo executado tipo num loop até ki se aperte o botão stop ou pause.....pq o video é pqno ...dura apenas 3 segundos... é uma animação ki fica girando dando um 360º....por isso necessito dela girando até ki se deseje parar


eu tenhu um exemplo mas o video naum é executado em um panel.....o delphi chama sei la alguma função do windows dai abre outra tela para a execução

[johnny-walker]

Olá amigo...

Se nao tiver som vc pode utilizar o componente Animate para fazer isto...
ele fica fazendo exatamente o que vc quer... o unico porem é que se o video nao for encontrado a sua aplicação nao inicia... por isto o melhor é carrega-lo em runtime e se ele nao existir nao carrega... ele fica em na paleta win32...


bye...

[tiagosoler]

Amigo,

Na paleta System existe um componente chamado MediaPlayer.
Eu uso o Delphi7.

[].

[newrogerio]

eu axei um exemplo assim

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
begin
mediaplayer1.filename:= opendialog1.filename;
mediaplayer1.open;
mediaplayer1.Perform (wm_lbuttondown,0,$00090009);
mediaplayer1.Perform (wm_lbuttonup,0,$00090009);
end;
end;


ele funciona,,,,,abri o video.....só que abre em uma outra tela......e eu quero que o video abra no mesmo formulario onde vai estar os botões para controlar (play....pause....stop..etc)

e o outro detalhe como ki eu vo fazer para o video naum parar.....ele termina e ja começa dinovo......sem cortes...

[adriano_servitec]

[newrogerio]

era isso mesmo.....valeu..............agora como ki faço pro video fica executando sem parar?
e tem algum eskema pro video pegar o panel inteiro.....ou se naum der ...pelo menos ficar centralizado no panel