Synchronisation .WAV et Form

Version imprimable

04/09/2007, 21h31
andreditdd

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

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 :aie:
Un ptit coup de main siouplééé ;).

D'avance merci,

André
04/09/2007, 21h50
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 ...
04/09/2007, 21h56
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é

Ca n'ets pas tres difficile.
Code:

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:

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.

04/09/2007, 22h44
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é
05/09/2007, 11h32
andreditdd
Bon voila je travaille dessus depuis ce matin et le résultat n'est pas encore au rdv:

Quand je met ceci:
Code:

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:

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é
05/09/2007, 11h40
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 ;)

Voila le code:

Code:

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é

05/09/2007, 14h21
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.
05/09/2007, 16h00
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:

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é
05/09/2007, 19h42
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 :)

Yep !

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

Code:

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

06/09/2007, 10h54
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. :mrgreen:

André