Discussion :

[babafrech]

Bonjour,
j'ai commencé la programmation récemment et je suis vite tombé sur un problème :
On ne peut pas lancer deux procédure en même temps !

Et c'est pour ça que je sollicite votre aide je n'ai pas les bases pour maîtriser toutes les fonctions des thread et donc je ne comprends pas la moitié de ce qu'il y a d'écrit dans les tutoriels !
Voila mon problème :
je voudrais juste mettre une musique de fond dans mon programme mais je suis totalement bloqué, je sais comment lancer la musique et mes procédures et fonctions marchent toutes !
J'en appelle donc à vos conseils

Merci d'avance

PS:je suis en application console.

[ShaiLeTroll]

Pour une musique de fond, tu n'es pas obligé de passer par un Thread
Utilise PlaySound en mode SND_ASYNC

Si tu veux faire un Thread, rien de plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type
  TMusique = class(TThread)
  private
    FFichier: TFileName;
  protected
     procedure Execute(); override;
  public
    property Fichier: TFileName read FFichier write FFichier;
  end;
 
procedure TMusique.Execute(); override;
begin
  while not Terminated do
    UtiliseTaFonctionDeLecture(Fichier), cela peut être PlaySound en mode bloquant
end;

Pour le lancer

tu déclares FMusique: TMusiquecomme membre privée de ton objet appelant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
FMusique: TMusique.Create(True);
FMusique.Fichier := 'C:\...';
FMusique.FreeOnTerminate := True;
FMusique.Start(); // ou Résume

pour l'arret

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FMusique.Terminate();

[Roland Chastain]

@ShaiLeTroll

Génial ton exemple ! J'y ai appris, compris plein de choses.

Voici l'exemple contruit avec XE2 puis retouché pour être aussi compilable avec Delphi 7.

[babafrech]

@ShaiLeTroll
@Roland Chastain
Merci beaucoup à vous !
grâce à vous j'ai compris les thread en 2 minutes merci beaucoup !!!