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