media player simples

Question

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

Fabio.hc · Answer

[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;

F�bio Borges · Answer

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

F�rum media player simples #202458