[Thread] Réinitialiser un thread

Version imprimable

01/06/2005, 13h41
Pedro

[Thread] Réinitialiser un thread

Salut tout le monde :D
Voila, je voudrais savoir comment faire pour dire à un thread de se remettre à zéro.
Mon application:
Lors du lancement de l'application, je crée un thread en Suspended qui contient des composants de BDD dans lesquels il va chercher... Si je les crée dans ce thread, c'est que j'ai pas mal d'initialisation à faire et je voudrais le faire une bonne fois pour toutes...
Je voudrais pouvoir réinitialiser le thread pour le faire repartir du début de la recherche quand je veux...
Comment faire?
01/06/2005, 13h48
MD Software

Réinitialiser signifierait donc repartir du début de la méthode execute.
Je te dirais bien de détruire le thread et d'en relancer un autre, mais j'imagine que tu ne veux pas. Sinon, je ne vois pas comment tu pourrais faire.
01/06/2005, 13h52
Pedro

Ben c'est ce que j'ai fait: lancer Execute Depuis des méthodes de mon cru... Mais j'ai l'impression (qui est réelle :wink: ) que mon thread bloque mon appli...
01/06/2005, 14h07
sjrd

Citation:

Envoyé par Pedro204

Ben c'est ce que j'ai fait: lancer Execute Depuis des méthodes de mon cru... Mais j'ai l'impression (qui est réelle :wink: ) que mon thread bloque mon appli...

Pas étonnant :wink: la méthode Execute n'est pas un thread en soi. C'est le contenu du thread car c'est cette méthode qui est passée en paramètre à CreateThread.
Ce que tu peux par contre faire, c'est mettre au point une méthode qui utilise une section critique pour mettre une variable booléenne de ta classe TThread à True.
Ensuite, dans ta méthode Execute tu vérifie de temps en temps cette variable et si elle est à True, tu la remets à False (en utilisant la même méthode, pour utiliser la section critique) et tu retournes au début de ta méthode (avec une boucle ou un goto).
01/06/2005, 14h10
Pedro

Citation:

Envoyé par sjrd

Pas étonnant :wink: la méthode Execute n'est pas un thread en soi.

C'est exactement ce que je me disais...

Citation:

Envoyé par sjrd

Ensuite, dans ta méthode Execute tu vérifie de temps en temps cette variable et si elle est à True, tu la remets à False (en utilisant la même méthode, pour utiliser la section critique) et tu retournes au début de ta méthode (avec une boucle ou un goto).

Section critique :arrow: Je ne sais pas faire... :oops:
Je pense que je vais tout recréer à chaque fois mais ça risque d'être long et ça ne me plait pas vraiment...
01/06/2005, 14h17
sjrd

Citation:

Envoyé par Pedro204

Section critique :arrow: Je ne sais pas faire... :oops:
Je pense que je vais tout recréer à chaque fois mais ça risque d'être long et ça ne me plait pas vraiment...

Va voir l'aide sur TCriticalSection :ccool:
01/06/2005, 14h21
MD Software

Mais avant toute chose, as-tu vraiment besoin de "réinitialiser" ton thread ?
01/06/2005, 14h24
Pedro

Citation:

Envoyé par sjrd

Va voir l'aide sur TCriticalSection

Je te remercie :D

Citation:

Envoyé par MD Software

Mais avant toute chose, as-tu vraiment besoin de "réinitialiser" ton thread ?

? Que veux-tu dire :roll: ?
01/06/2005, 14h33
Pedro

Je veux éviter de détruire puis reconstruire mon thread parce que l'initalisation est assez longue (BDD)...

Bon voilà un bon bout de 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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
unit uThread;
 
interface
 
type
  TMonThread = class(TThread)
  private
    FReinitialize : boolean;
    FCriticSection : TCriticalSection;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended : boolean);
    destructor Destroy; override;
    procedure Reinitialize(Value : boolean = True);
  end;
 
implementation
 
constructor TMonThread.Create(CreateSuspended : boolean);
begin
  inherited;
  FReinitialize := False;
  FCriticSection := TCriticalSection.Create;
end;
 
destructor TMonThread.Destroy;
begin
  FCriticSection.Free;
end;
 
procedure TMonThread.Execute;
label Debut;
begin
Debut :
  ...
  if FReinitialize then
  begin
    Reinitialize(False);
    goto Debut;
  end;
  ...
end;
 
procedure TMonThread.Reinitialize(Value : boolean = True);
begin
  FCriticSection.Acquire;
  try
    FReintialize := Value;
  finally
    FCriticSection.Leave;
  end;
end;

01/06/2005, 14h44
Pedro

Un grand :merci: sjrd :D
Arrgh que vois-je!! Un goto? Non... Je ne peux plus...respirer.. Je... J'étouffe... Je fonds... Arrrhhh... :lol:
Jamais de la vie je n'utiliserais de Goto... :wink: :lol: Même sous la menace d'une arme...
Je vais essayer comme ça ce soir (sans le Goto :twisted: )
01/06/2005, 14h52
sjrd

Eh oui, un goto :wink: Je sais qu'il n'y a pas beaucoup de monde qui aime cette instruction, mais dans ce cas c'est le plus simple et le plus rapide (comparé à une boucle où tu seras obligé de faire une double-boucle avec des Continue et des Break à plein d'endroits :wink:

Donc vive les goto !... quand ils ont leur place bien sûr.
01/06/2005, 15h19
Pedro

Au lieu de faire une boucle, on peut le mettre aussi en Suspended non? C'est plus propre...

:zekill: "goto", c'est pas bon moi aussi je hai cette instruction de m...
si tu as besoin de trhéade que pour initialisé
dans le code de sjrd:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ..... procedure TMonThread.Execute; begin repeat ... if FReinitialize then begin // code d'initialisation Reinitialize(False); end; until terminated; ... end;
bien sûr dans votre code principale aprés création de thréade tu met

Code:

MonThread.Reinitialize(true);

bon dev et mort au goto

01/06/2005, 17h08
Pedro

Merci c'est le genre de truc que je comptais faire :D

Citation:

Envoyé par edam

bon dev et mort au goto

:lol: Tout pareil! :twisted:
01/06/2005, 17h17
Reisubar

Citation:

"goto", c'est pas bon moi aussi je hai cette instruction de m...

Mais non... Il suffit de les utiliser là ou il faut. Des analyseurs syntaxiques sont par exemple bourrés de goto, et personne ne trouve rien à redire, car c'est la meilleure solution de faire, tout simplement.
01/06/2005, 17h17
sjrd

Citation:

Envoyé par Pedro204

Citation:

Envoyé par edam

bon dev et mort au goto

:lol: Tout pareil! :twisted:

Bande d'assassins ! :evil:

Je confirme ma position : les goto peuvent être très utiles lorsqu'ils sont bien utilisés, souvent dans ce genre de cas où il faut retourner au début d'une procédure.
01/06/2005, 17h29
Pedro

Je dis ça uniquement parce qu'à la fac on m'a strictement interdit de l'utiliser... Je suis d'accord que parfois, c'est vraiment utile mais ce n'est vraiment pas propre et rigoureux.
Enfin, c'est mon avis et ce n'est pas le sujet initial du post. :wink:
01/06/2005, 18h20
sjrd

Citation:

Envoyé par Dans sa signature, Pedro204

Rage against the Goto :wink:

T'exagères :wink:

Bon, trève de plaisanteries, tu passes en http://www.developpez.be/forums/images/resolu.gif
02/06/2005, 13h09
Pedro

Ca y est, ça marche!
En utilisant la méthode sjrd et en l'adaptant sans trop de difficultés ça marche super :D
Maintenant je peux mettre résolu :wink:
Merci à tous :D

Citation:

Envoyé par sjrd

T'exagères

T'as raison :wink: