[Delphi]Executando .AVI no Form

[mgbcrazy 0]

Coloque um Button e um TMediaPlayer

 

 

No evento OnClick do Button coloque:

 

with MediaPlayer1 do begin

FileName := 'C:\Documents and Settings\Victor\Desktop\Pro.avi';

Open;

Display := Form1;

Play;

end;

 

 

 

Voce pode modificar o codigo para que execute em vez de ser no Form, em um Panel

 

 

Essa dica vai ajuda mtos que estao criando Player's

 

 

Creditos: VicToR_xP

[bidoow 0]

ah manu aqui não funfou :( , olha o codigo :

 

with MediaPlayer1 do begin

FileName := Edit1.Text;

Open;

Display := Panel1;

Play;

 

Dai eu digito o endereço do video, e aperto PLAY mais não acontece nada =(

oque pode ser será ? :/

[DragonBoss 8]

Dai eu digito o endereço do video, e aperto PLAY mais não acontece nada =(

oque pode ser será ? :/

 

hum, tentou ver se vc ta colokando a extensao ?.. ou tenta por o video na pasta do programa e por soh o nome dele, ao inves do local completo... sei la o.O'....

 

flw

[bidoow 0]

@dragon

 

coloquei a extensão sim =/ , ai funfou ? :)

[mgbcrazy 0]

daonde vc tirou isso cara ?

 

FileName := Edit1.Text;

 

tenta usa o cod q eu postei msm cara

 

FileName := 'C:\Documents and Settings\Victor\Desktop\Pro.avi';

 

eu sei q daria a msm coisa mas tenta :D

 

olha la oq eu postei.

[bidoow 0]

FileName := Edit1.Text;

 

eu botei só para facilitar. enfim, não funciona nenhum dos 2 modos.

[Ryokusei 21]

@bidoow

Vê se você tem os codecs pra rodar o vídeo.

 

Qualquer coisa deixa o form bem grande pq o vídeo aparece no canto superior esquerdo.

 

Se ainda não rolar usa o componente do WindowsMediaPlayer que vc consegue com certeza.

[mgbcrazy 0]

So nao faço uma source pq nao ia adiantar pq nao tenho nada com extenção avi :s

[Ryokusei 21]

So nao faço uma source pq nao ia adiantar pq nao tenho nada com extenção avi :s

 

Não só AVI cara, dá pra rodar qualquer vídeo que outro MediaPlayer possa.

Eu já rodei .flv e .mp4 no TMediaPlayer.

[mgbcrazy 0]

Oo eita porrã essa pra mim eh nova.

 

testando agora (:

[bidoow 0]

Ah aqui ainda não funfou =( que bosta

[Vator 10]

Faça assim:

 

No Button :

 

if opendialog1.filename := <> '' then begin

mediaplayer1.filename := opendialog1.filename;

mediaplayer1.display := Panel1;

 

No Panel1:

 

MediaPlayer1.DisplayRect := panel1.ClientRect;

 

Este funciona.

 

 

Colocar um OpenDialog ajuda muito. :eek: