Discussion :

[andreditdd]

Bonsoir,
Je désire que mon application execute 2 actions de façon simultanée.
Quand je met ceci:

Code :

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

1
2
3
4
 begin 
  Form3.Show;
  PlaySound('Voix',GetModuleHandle(Nil),SND_RESOURCE);
  end;

Le fichier .WAV est entierement lut avant que le Form s'ouvre.
Je ne sais pas comment m'y prendre
Un ptit coup de main siouplééé .

D'avance merci,

André

[Clorish]

Normal.
L'appel a Form.Show declanche en evenement d'affichage de la form.
Cette Evenement s'empile dans la liste des evenement de l'application.
L'appel a la liste des evenement n'auras lieu qu'apres etre sortit de la procedure, donc de la lecture du fichier.

Pour resoudre ce probleme, il faut gerer la lecture dans un autre thread.
LA classe TThread est faire pour ca. Windows propose aussi une api pour gerer ca ...

[andreditdd]

Merci pour ta réponse...
Il va faloir que je cherche encore un peux car je n'ai jamais utilisé la classe TThread.

André

[Clorish]

Ca n'ets pas tres difficile.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Type
  TAudioThread = class(TThread)
  Public
    Procedure Execute; Override;
  End;
 
Procedure TAudioThread.Execute;
Begin
Inherited Execute
PlaySound('Voix',GetModuleHandle(Nil),SND_RESOURCE);
End;

Lancement :

Code :

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

1
2
3
4
5
6
7
8
 
Begin
Form.Show;
With TAudiothread.Create(true) do
  Begin
  FreeOnTerminate := True;
  Resume;
  End;

Apres tu peux parametrer ta classe via des property que tu affecte avant le resume pour la rendre plus generique.

[andreditdd]

Super merci pour ton aide.
J'essayerai ça demain matin car il se fait tard et le cerveau ce ramoli .
Je vous tiendrai au courant...

André

[andreditdd]

Bon voila je travaille dessus depuis ce matin et le résultat n'est pas encore au rdv:

Quand je met ceci:

Code :

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

1
2
3
4
5
procedure TAudioThread.Execute;
begin
Inherited Execute;
PlaySound('julie.wav',0,SND_FILENAME);
end;

J'ai un message d'erreur "Abstract Error"...

Néanmoin quand je ne met que ceci:

Code :

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

1
2
3
4
procedure TAudioThread.Execute;
begin
PlaySound('julie.wav',0,SND_FILENAME);
end;

J'ai l'effet que je désire mais je pense que je bloque le thread car je dois rebooter le pc apres.


André

[Clorish]

LE plus simple est de voir la definition exacte de ta classe et sa creation.

A noter que le code proposé est un code ecrit "a la volee" donc non testé. Des erreurs peuvent s'etre insinueusement infiltrés

[andreditdd]

Voila le code:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
unit Unit4;
 
interface
 
uses
  Classes, MMSystem;
 
type
  TAudioThread = class(TThread)
  private
    { Private declarations }
 
  protected
    procedure Execute; override;
  end;
 
implementation
 
 
procedure TAudioThread.Execute;
begin
Inherited Execute;
PlaySound('julie.wav',0,SND_FILENAME);
end;  
 
 // While Not Terminated Do
          // Begin
          //PlaySound('julie.wav',0,SND_FILENAME);
          // End;
end;
 
end.

André

[Clorish]

attention, tu as un "end;" en trop dans la procedure execute, suite a une mise en commentaire.

Je ne sais pas si ca viens de la mais c'est une erreur en tout cas.

[andreditdd]

Encore merci pour ton aide...
Pour le "end" de trop, c'est une erreur de retranscription sur le forum.

J'ai fais ceci et ça fonctionne:

Code :

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

1
2
3
4
5
procedure TAudioThread.Execute;
begin
 PlaySound('JULIE',GetModuleHandle(Nil),SND_RESOURCE);
 Terminate;
end;

Je ne sais pas si c'est "propre" comme façon de faire mais ce sujet m'interesse et je l'étudie avec plaisir.
Je sens que ça va me permettre des trucs nouveaux.

André

[Clorish]

A priori le terminate ne sert a rien vu qu'un thread qui sort de sa procedure execute se termine.
L4appel a execute ne sert d'ailleur pas directement.

Apres pour l'appel a inherited .. ca m'etonne que ca ne passe pas ... mais j'ia du oublier un petit detail
Je manipule encore peu ce genre de classe

[Jipété]

Yep !

Moi j'ai ça dans un projet, qui fonctionne :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
type TMonThread = class(TThread)
  private
    Fun_param : SonType;
  protected
    procedure Execute; override;
  public
    constructor Create(un_param: SonType);
end;
 
implementation
 
constructor TMonThread.Create(un_param: SonType);
begin
  inherited Create(False);
  Priority := tpNormal;
  FreeOnTerminate := True;
  Fun_param := un_param;
end;
 
procedure TMonThread.Execute;
begin
  inherited;
  Form1.Ma_Proc(Fun_param);
  Terminate;
end;
 
procedure TForm1.PourAppelThread;
begin
    TMonThread.Create(le_param);
end;

Si ça peut être utile,
--
jp

[andreditdd]

Un grand merci.

J'ai trouvé aussi des expliquations sur la toile et dans l'excellent livre "Delphi 7 studio" et je commence à comprendre le mécanisme.

André