Reproduzir som

Question

Como fa�o para reproduzir um som infinitamente e deixar o usu�rio executar tarefas, ou seja, o que quero � o programa rodando normalmente e o Delphi executando tamb�m um m�sica de fundo. O comando Snd...

Tatuweb · Accepted Answer

Ai vc faz o seguinte. Primeiro declare uma vari�vel global:[code:1:679cf65e6e]var  Form1: TForm1;  LoopMP: Boolean; // Controla a reprodu��o do som[/code:1:679cf65e6e]No OnShow do Form vc coloca:[code...

Sandra · Answer

valdirdill,J� testou o MediaPlayer da aba System?...

Valdirdill · Answer

N�o. O que � um componente?[quote:ec00965140=�sandra�]valdirdill,J� testou o MediaPlayer da aba System?[/quote:ec00965140]...

Tatuweb · Answer

Sim � um componente. Basta adicion�-lo e configurar conforme a baixo para tocar uma m�sica.

MediaPlayer .Filename := �C:\Pasta\arquivo.wav�;
MediaPlayer1.Open;
MediaPlayer1.Play;

Usar o MediaPlayer � bem simples e mais pr�tico. Como alternativa voc� pode, se n�o tiver dificuldade, usar a fun��o SndPlaySound em um Thread. Para isso basta dar uma olha nesse t�pico:
:arrow: http://delphiforum.icft.com.br/forum/viewtopic.php?t=42483&start=15

Valdirdill · Answer

Desculpe a pergunta anterior. Eu estava meio fora do ar. Claro que � um componente. E nativo.
Certo, seria uma op��o, mas quando a m�sica acaba, o som p�ra. O que eu queira � que quando a m�sica terminasse a reprodu��o recome�asse. Entendeu? H� como fazer isso com esse componente?
Obrigado

Sim � um componente. Basta adicion�-lo e configurar conforme a baixo para tocar uma m�sica.

MediaPlayer .Filename := �C:\Pasta\arquivo.wav�;
MediaPlayer1.Open;
MediaPlayer1.Play;

Usar o MediaPlayer � bem simples e mais pr�tico. Como alternativa voc� pode, se n�o tiver dificuldade, usar a fun��o SndPlaySound em um Thread. Para isso basta dar uma olha nesse t�pico: :arrow: http://delphiforum.icft.com.br/forum/viewtopic.php?t=42483&start=15

Valdirdill · Answer

Valeu. Funcionou beleza mesmo. Obrigad�ssimo.

Ai vc faz o seguinte. Primeiro declare uma vari�vel global:

var
  Form1: TForm1;
  LoopMP: Boolean; // Controla a reprodu��o do som

No OnShow do Form vc coloca:

procedure TForm1.FormShow(Sender: TObject);
begin
  LoopMP := FALSE;
  MediaPlayer1.Filename := �C:\Windows\Media\Chimes.wav�;
  MediaPlayer1.Open;
end;

No evento Notify do MediaPlayer vc coloca:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if LoopMP then MediaPlayer1.Play;
end;

A hora que vc quiser reproduzir/parar o som vc chama a linha abaixo:

  LoopMP := not LoopMP;
  MediaPlayer1.OnNotify (Self);

Paulo Abrantes · Answer

alguem consegue fazer o TMediaPlayer executar um audio via stream ?
Tentei e da erro.

Stream teste : https://server2.webradios.com.br:19104/stream

no aplicativo do windows funciona o link , quando crio o meu aplicativo e entento passar esse link para o componente ai trava o programa.