temps de creation d'un thread

Bonjour a tous...

J'ai une classe

Code:

---

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:

---

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:

---

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!!!

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

Le code posant problème est le

Code:

---

MonThread.Execute;

---

Il faut faire :

Code:

---

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:

---

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.