Discussion :

[ms91fr]

En faite, j'ai crée un thread d'arrier-plan qui ouvre une 'form' contenant des tables tres importantes et qui mettent beaucoup de temps à s'ouvrir...
Lorsque je kill le thread en cours d'execution, j'ai une erreur fatale !!
est-ce que c'ets possible de l'arreter ???

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
procedure init_objets.Execute;
var fini : boolean;
begin
  fini := false;
  while (not Terminated) and (fini = false) do
  try
    Application.CreateForm(TDatasog3, Datasog3);
    Application.CreateForm(TDatasog, Datasog);
    datasog.Tvente.Active := true;
    datasog.TEcriture.Active := true;
    datasog.TVentligne.Active := true;
    fini := true;
    terminate;
    showmessage('Processus terminé');
  except
    terminate;
  end;
end;

Merci

[gord's]

ta variable 'fini' esr redondante avec le terminated, et en plus comme tu ne la change pas dans le except, tu ne peux sortir de ta boucle que si le traitement se déroule sans exception

la boucle while not terminated n'est utile que pour un thread qui doit 'servir' plusieurs fois. Et de toute évidence, elle ne sert à rien pour toi puisque tu appelles systematiquement terminate.

Que veux tu dire par 'killer le thread' ?

[dev03]

Essais ça.

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
 
 
procedure init_objets.Execute;
begin
   try
      Datasog3 := TDatasog3.Create(Nil);
      Datasog  := TDatasog .Create(Nil);
      datasog.Tvente.Active     := true;
      datasog.TEcriture.Active  := true;
      datasog.TVentligne.Active := true;
      showmessage('Processus terminé');
   Finally
      Datasog.Free;
      Datasog3.Free;
      terminate;
   end;
end;

Cordialement.

[ms91fr]

MERCI pour tout.

Le programme fonctionne a merveille