Lancer plusieurs procédure en même temp

**Poisson Rouge** · 28/07/2011, 00h00

Bonjour, j'essaie de lancer plusieurs procédure en même temp sans à avoir à attendre que la procédure précédente soit terminé
Exemple:

procedure TForm1.Button1Click(Sender: TObject);
begin
procedure1();
procedure2();
end;

Merci d'avance pour votre aide

**benymypony** · 28/07/2011, 00h17

Envoyé par Poisson Rouge

Bonjour, j'essaie de lancer plusieurs procédure en même temp sans à avoir à attendre que la procédure précédente soit terminé
Exemple:

Merci d'avance pour votre aide

Je te conseil plutôt de te pencher sur les Threads.
Ça te permettra de lancer plusieurs procédures en même temps et de garder ton application réactive.

Un petit lien sur la fonction BeginThread, facile à implémenter :

Code :

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

http://delphipage.free.fr/threads.html

Beny

**Paul TOTH** · 28/07/2011, 06h53

le site propose directement l'usage de CreateThread, ça fonctionne mais il faut obligatoirement préciser "IsMultiThread := True;" sous peine d'erreurs d'allocation mémoire

... c'est ce que fait BeginThread() d'ailleurs

**edam** · 28/07/2011, 09h16

ces procédures sert à quoi? si tu permet

**delagoutte** · 28/07/2011, 10h56

Tu peut également utiliser asynccalls
(voir http://cc.embarcadero.com/item/25420)

qui te permettra de lancer tes procédure de façon asynchrone et donc non bloquante.

Attention tout de même, ce n'est pas la solution ultime. il y pas mal de cas ou selon ce sue font tes procédures cela ne sera pas "compatible"

**Poisson Rouge** · 28/07/2011, 15h22

Merci pour vos réponse, j'ai réussi à faire ce que je voulais avec

http://delphipage.free.fr/threads.html

**ShaiLeTroll** · 28/07/2011, 16h02

@Poisson Rouge ?
Qu'as-tu choisi ?
- API Windows CreateThread ?
- Function RTL BeginThread ?
- VCL TThread ?

Envoyé par edam

ces procédures sert à quoi? si tu permet

AsyncCall, c'est une sur-encaspulation du TThread qui permet d'éviter de une classe héritée de TThread et d'implémenter une méthode Execute !
AsyncCall accepte une fonction avec un paramètre variable, lance le Thread, renvoie une Interface qui permet de tester l'état du thread !
C'est bcp de code pour pas grand chose à mon avis !

Il est bon de rappeler que TThread qui en réalité fait appel à l'API CreateThread et lui passe dans lpStartAddress la procédure Classes.ThreadProc qui appel Execute ... DelphiPage explique rapidement le fonctionnement d'un Thread Windows avant d'aborder la classe tout faite TThread, c'est une bonne démarche mais dommage que cela ne mentionne même pas l'obligation d'appeler CloseHandle sur le Handle renvoyé par CreateThread une fois que le thread a terminé son travail !

**edam** · 28/07/2011, 19h51

@ShaiLeTroll: j'ai posé la question @Poisson Rouge, car si ces procédure ne sont pas destiné à l'affichage,ou des calcul long j'ai voulu simplement savoir sa sert à quoi que 2 procédure ou plus font des tache en parallèle. .