Discussion :

[riou93]

Salut, j'aimerais savoir s'il est possible d'assigner une forme à un thread en fait je voudrais avoir pour chaque thread qui se lance une Form et lorsque je clik sur un bouton de ce thread je puiss arreter le thread mais egalement sa form .
J'ai essayé de lui attribuer comme propriéte la form mais a chaque fois j'ai plusieurs Violation d'acces que je n'arrive pas à resoudre?

Merci pour votre aide

[MD Software]

Normalement, c'est possible.
Tu es sûr que tu créés bien chaque form ?

[riou93]

Oui normalement j'ai suivi l'exemple sur le tutorial
http://lberne.developpez.com/delphi/...us_threads.pdf
sauf que ma form a en plus un bouton du coup lorsque j'apel mon thread ca donne :

Code :

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

1
2
3
4
5
6
7
 
Monprocess := TMonThread.Create(true);
              Monprocess.formPrincipale := self;
              ChangeControlScale(Monprocess.formprogress);
              Monprocess.formprogress.spSkinGroupBox1.Caption := Format(sTache, [TacheActive.Nom]);
              Monprocess.UpdateProgress;
              Monprocess.Resume;

Mais à l'execution quand j'execute et que je clik sur arreter (bouton de ma formprogress) ca me fait une violation d'acces

[Teo]

Tu es sur que le click ne genere pas la manipulation d'une resource
utilisé par le thread ?
La manipulation des resources partagées via le thread
doit etre protégées c'est le cas ?

Un bout de ton code clik (arret FormProgress)
et Execute du thread

[Bloon]

Lorsque tu accèdes à ta fenêtre depuis le thread, il faut faire un appel synchronisé, par exemple :

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
type
  TMonThread = class(TThread)
  private
    f : TForm1;
    procedure majLabel;
  protected
    procedure Execute; override;
  end;
 
 
{ TMonThread }
 
procedure TMonThread.Execute;
begin
  while (not terminated) do
  begin
    synchronize(majLabel);
    sleep(500);
  end;
end;
 
procedure TMonThread.majLabel;
begin
  f.label1.Caption := dateTimeToStr(now);
end;

Bloon

[riou93]

En fait, pour arreter ma tache et mon thread en même temps (ce qui se passe dans le bouton Stop)

Code :

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

1
2
3
4
5
6
7
 
try
if thread <> nil then
 begin
   TMonprocess(thread).HaltExecution;
 end;
except

Mais la violation d'acces me parait bizarre parce qu'elle ne se fait pas sur un evenement qui survient sur l'application, mais un evenement fait sur Windows(style sur un dossier ou sur mon bureau).
Y'aurait il un moyen de vider la pile des messages qu'une form peut recevoir.
Peut être que ma violation d'acces est du à un message envoyer par windows à mon application.
Donc je souhaiterais pour tester purger les messages ou lancer les messages de maniere prémature