media player simples

Delphi

21/12/2003

ae galera... preciso de um exemplo PRÁTICO de como utilizar o Media player do delphi... mas ele puro msm... soh pra tocar wav, mp3, e wma(se for possivel)... nada de bibliotecas...
obrigado
wakko_tux


Wakko_tux

Wakko_tux

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

21/12/2003

[b:ab9278398e]Reproduzir um vídeo AVI em um Form[/b:ab9278398e]
{ - Crie um novo projeto. Este já deverá ter o Form1;
- Adicione um novo Form (Form2);
- Coloque, no Form1, um TMediaPlayer (paleta System)
e um botão;
- Altere o evento OnClick do botão como abaixo: }

procedure TForm1.Button1Click(Sender: TObject);
begin
  with MediaPlayer1 do begin
    FileName := ´c:\speedis.avi´;
    Open;

    { Ajusta tamanho do Form }
    with MediaPlayer1.DisplayRect do begin
      Form2.ClientHeight := Bottom - Top;
      Form2.ClientWidth := Right - Left;
    end;

    Display := Form2;
    Form2.Show;
    Play;
  end;
end;
Observações
Em vez de ajustar o Form ao vídeo, podemos ajustar o vídeo ao Form. Para isto troque o trecho with..end; por MediaPlayer1.DisplayRect := Form2.ClientRect;


GOSTEI 0
Fábio Borges

Fábio Borges

21/12/2003

Vizite este link http://www.clubedelphi.com.br/ppassos/mediaplayer.html


GOSTEI 0
POSTAR