Skip to main content
Pergunta reaberta por ramaral, jpmnteiro, SneepS NinjA, Jéf Bueno, rray
adicionou 186 caracteres ao conteúdo; tags editadas
Fonte Link
Gabriel Rodrigues
  • 16,2mil
  • 14
  • 62
  • 124

Boa tarde, pessoal. Eu estou preso nesse impasse a 12 horas. O programa já está todo pronto, só a música que não toca. Eu consegui fazer uma Thread que toque a música, mas apenas por 1 vez. Se Se eu colocar um laço nela, ai tenho diversos errors, como o 1400. 

Parece que a thread não fecha quando se fecha o Form1, pois o problema sempre dá quando eu tento fecha-lo. 

Eu tenho apenas 2 units. 1 é o Form1 e a outra é a TMusica thread. Como resolvo isso? 

não sei mais o que tentar, já tentei o Goto, While, Repeat, With. Nada funciona, sempre tenho erros desde não compilar por erros de violação de acesso, a erros do programa não fechar e ter que ser matado, a música se chama music.mp3. Uso o Delphi XE8Delphi XE8. Como resolvo?

Obrigado a todos que responderem.Chamada da Thread TMusica:

procedure TForm1.FormCreate(Sender: TObject);  
var
  Thread:TMusica;
begin
   //Bloco de Códigos
  Thread := TMusica.Create(False);  
  Thread.FreeOnTerminate := True;
  Thread.Resume;
   //Outros códigos...
 end;

A Thread TMusica:

procedure TMusica.Execute; 
begin 
  Form1.MediaPlayer1.FileName: = 'music.mp3';
  Form1.MediaPlayer1.Open;
  Form1.MediaPlayer1.Play;
end;

Boa tarde, pessoal. Eu estou preso nesse impasse a 12 horas. O programa já está todo pronto, só a música que não toca. Eu consegui fazer uma Thread que toque a música, mas apenas por 1 vez. Se eu colocar um laço nela, ai tenho diversos errors, como o 1400. Parece que a thread não fecha quando se fecha o Form1, pois o problema sempre dá quando eu tento fecha-lo. Eu tenho apenas 2 units. 1 é o Form1 e a outra é a TMusica thread. Como resolvo isso? não sei mais o que tentar, já tentei o Goto, While, Repeat, With. Nada funciona, sempre tenho erros desde não compilar por erros de violação de acesso, a erros do programa não fechar e ter que ser matado, a música se chama music.mp3. Uso o Delphi XE8. Como resolvo?

Obrigado a todos que responderem.

Eu consegui fazer uma Thread que toque a música, mas apenas por 1 vez. Se eu colocar um laço nela tenho diversos errors, como o 1400. 

Parece que a thread não fecha quando se fecha o Form1, pois o problema sempre dá quando eu tento fecha-lo. 

Eu tenho apenas 2 units. 1 é o Form1 e a outra é a TMusica thread. 

Já tentei o Goto, While, Repeat, With. Nada funciona, a música se chama music.mp3. Uso o Delphi XE8. Como resolvo?

Chamada da Thread TMusica:

procedure TForm1.FormCreate(Sender: TObject);  
var
  Thread:TMusica;
begin
   //Bloco de Códigos
  Thread := TMusica.Create(False);  
  Thread.FreeOnTerminate := True;
  Thread.Resume;
   //Outros códigos...
 end;

A Thread TMusica:

procedure TMusica.Execute; 
begin 
  Form1.MediaPlayer1.FileName: = 'music.mp3';
  Form1.MediaPlayer1.Open;
  Form1.MediaPlayer1.Play;
end;
Pergunta fechada como "Precisa de detalhes ou esclarecimentos" por Maniero, Syzoth, rray, Renan Gomes, jpmnteiro
Fonte Link

Delphi - Fazer uma Thread que toque uma música em loop

Boa tarde, pessoal. Eu estou preso nesse impasse a 12 horas. O programa já está todo pronto, só a música que não toca. Eu consegui fazer uma Thread que toque a música, mas apenas por 1 vez. Se eu colocar um laço nela, ai tenho diversos errors, como o 1400. Parece que a thread não fecha quando se fecha o Form1, pois o problema sempre dá quando eu tento fecha-lo. Eu tenho apenas 2 units. 1 é o Form1 e a outra é a TMusica thread. Como resolvo isso? Já não sei mais o que tentar, já tentei o Goto, While, Repeat, With. Nada funciona, sempre tenho erros desde não compilar por erros de violação de acesso, a erros do programa não fechar e ter que ser matado, a música se chama music.mp3. Uso o Delphi XE8. Como resolvo?

Obrigado a todos que responderem.