Discussion :

[Micromalice]

Bonjour a tous...

J'ai une classe

Code :

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

1
2
3
4
5
6
 
TPlaySon = class(TThread)
public
   Path : string;
   procedure execute; override;
end;

Est possible que la vitesse d'execution de la procedure play:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
const 
   SOUND = 'C:\son.wav';
 
procedure TPlaySon.Execute;override;
begin
    PlaySound(SOUND,0,SND_FILENAME);
end;
 
 
procedure play;
Begin
     MonThread := TPlaySon.create(false);
end;

Soit plus rapide que celle ci

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
 
const 
   SOUND = 'C:\son.wav';
 
procedure TPlaySon.Execute;override;
begin
    PlaySound(path,0,SND_FILENAME);
end;
 
procedure play;
Begin
    MonThread := TPlaySon.Create(true);
    MonThread.path := SOUND
    MonThread.Execute;
end;

de l'ordre de 93ms pour la 1ere et 435ms pour la seconde!!!

[sjrd]

Ben oui Parce que dans le deuxième cas tu n'utilises même de thread

Le code posant problème est le

Code :

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

MonThread.Execute;

Il faut faire :

Code :

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

MonThread.Resume;

Tout est expliqué dans l'aide

Mais il serait mieux de faire un constructeur à TPlaySon, qui prenne en paramètre le son à jouer.

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
type
  TPlaySon = class(TThread)
  private
    FPath : string;
  protected
    procedure Execute; override;
  public
    constructor Create(const APath : string);
  end;
 
implementation
 
constructor TPlaySon.Create(const APath : string);
begin
  inherited Create(False);
  FreeOnTerminate := True;
  FPath := APath;
end;
 
procedure TPlaySon.Execute;
begin
  PlaySound(SOUND,0,SND_FILENAME);
end;
 
procedure Play;
begin
  TPlaySon.Create(SOUND);
end;

Mais tout ça est purement et simplement inutile ! Il suffit d'utiliser PlaySound en mode asynchrone ! Voir l'aide de cette API pour plus de détails.