Discussion :

[code34]

Bonjour,

Je débute, et j'utilise une classe TThread pour gerer mes threads. Le probleme c'est que je n'arrive pas à recuperer le handle du thread pour par la suite le suspendre ou le resumer.

Code :

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

1
2
3
4
5
6
7
 
ex:
boulou: Thandle;
 
boulou := MonThread.Handle;  <<apparamment on recupere pas le handle comme ça ??? Il me dit que Handle n'est pas une méthode: "identificateur de méthode inconnue"
 
SuspendThread(boulou);

Si vous avez une idée ?

[Nono40]

Tu n'as pas besoin du Handle pour faire un Resume ou une pause :

Code :

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

1
2
3
4
// Suspension :
MonThread.Suspend;
// Reprise
MonThread.Resume;

[code34]

Le probleme c'est que quand je fais comme ça, il me dit:

forme d'appel de méthode autorisée seulement pour les méthodes de classe.

Je précise au passage que j'ai une unit spécial pour le thread(unit2), et que je fais donc appel à cette méthode à partir de unit1.

Au niveau de la déclaration

Code :

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

1
2
3
4
5
6
7
8
 
type
  TMonThread = class(TThread)
  private
  public
    constructor Create;
    procedure Execute; override;
  end;

Au niveau du constructeur, j'ai fais ça:

Code :

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

1
2
3
4
5
6
 
constructor TMonThread.Create;
begin
  inherited Create(False);
  FreeOnTerminate := True;
end;

[Nono40]

Donne-nous le code dans lequel tu crées le Thread, et le code de la ligne qui te donne l'erreur.

[code34]

La ligne pour creer le thread c'est

Code :

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

1
2
3
4
5
 
procedure TForm1.Button1Click(Sender: TObject);
begin
TMonThread.Create;
end;

et la ligne qui provoque l'erreur c'est:

Code :

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

1
2
3
4
5
 
procedure TForm1.Button2Click(Sender: TObject);
begin
TMonThread.Suspend;
end;

[Nono40]

Ce n'est pas type qu'il faut suspendre mais l'instance du type :

Code :

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

1
2
3
4
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  MonThread.Suspend; 
end;

[code34]

Ce n'est pas type qu'il faut suspendre mais l'instance du type :

Code :

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

1
2
3
4
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  MonThread.Suspend; 
end;

Je pensais que MonThread etait l'instance de classe TThread. Comment fait on pour recuperer l'instance, alors ?

[Nono40]

Je pensais que MonThread etait l'instance de classe TThread. Comment fait on pour recuperer l'instance, alors ?

Mais tu as tout à fait raison. MonThread est l'instance de ta classe de thread TMonThread. Mais regarde ton code de plus pret, tu as écrit :
TMonTread.Suspend;

Supprime le T pour appeler la méthode resume sur l'instance et non la classe... faute de frappe je suppose...

[code34]

Merci pour ton aide