Reproduzir som
20/08/2004
0
Valdirdill
Post mais votado
20/08/2004
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);
Tatuweb
Mais Posts
20/08/2004
Valdirdill
20/08/2004
Tatuweb
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
20/08/2004
Valdirdill
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
MediaPlayer .Filename := ´C:\Pasta\arquivo.wav´; MediaPlayer1.Open; MediaPlayer1.Play;
20/08/2004
Valdirdill
var Form1: TForm1; LoopMP: Boolean; // Controla a reprodução do som
procedure TForm1.FormShow(Sender: TObject); begin LoopMP := FALSE; MediaPlayer1.Filename := ´C:\Windows\Media\Chimes.wav´; MediaPlayer1.Open; end;
procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin if LoopMP then MediaPlayer1.Play; end;
LoopMP := not LoopMP; MediaPlayer1.OnNotify (Self);
08/04/2019
Paulo Abrantes
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.
Clique aqui para fazer login e interagir na Comunidade :)