Discussion :

[Pedro]

Salut tout le monde
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?

[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.

[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 ) que mon thread bloque mon appli...

[sjrd]

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 ) que mon thread bloque mon appli...

Pas étonnant 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).

[Pedro]

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

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

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 Je ne sais pas faire...
Je pense que je vais tout recréer à chaque fois mais ça risque d'être long et ça ne me plait pas vraiment...

[sjrd]

Section critique Je ne sais pas faire...
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

[MD Software]

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

[Pedro]

Va voir l'aide sur TCriticalSection

Je te remercie

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

? Que veux-tu dire ?

[Pedro]

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

[sjrd]

Bon voilà un bon bout de code :

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

[Pedro]

Un grand sjrd
Arrgh que vois-je!! Un goto? Non... Je ne peux plus...respirer.. Je... J'étouffe... Je fonds... Arrrhhh...
Jamais de la vie je n'utiliserais de Goto... Même sous la menace d'une arme...
Je vais essayer comme ça ce soir (sans le Goto )

[sjrd]

Eh oui, un goto 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

Donc vive les goto !... quand ils ont leur place bien sûr.

[Pedro]

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

[edam]

"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 :

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

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 :

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

MonThread.Reinitialize(true);

bon dev et mort au goto

[Pedro]

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

bon dev et mort au goto

Tout pareil!

[Reisubar]

"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.

[sjrd]

bon dev et mort au goto

Tout pareil!

Bande d'assassins !

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.

[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.

[sjrd]

Rage against the Goto

T'exagères

Bon, trève de plaisanteries, tu passes en

[Pedro]

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

T'exagères

T'as raison