Discussion :

[NABIL74]

Bonjour,

J'ai un thread pour faire une vérification. Lors de de son exécution, je vérifie une valeur: si elle n'est pas la valeur que j'attends, l'application se referme(Application.Terminate). Voici mon code:

Code :

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

1
2
3
4
5
6
7
type
  TUSBThread = class(TThread)
 
  protected
    procedure Execute; override;
 
  end;

Code :

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

1
2
3
var
 
MonUSBThread : TUSBThread ;   //THREAD -------------

Le bouton pour lancer ce Thread:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
MonUSBThread := TUSBThread.Create(True); 
MonUSBThread.FreeOnTerminate := True; 
MonUSBThread.Priority := tpNormal;  
MonUSBThread.Resume; 
end;

Procedure d'éxécution du thread:

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
procedure TUSBThread.Execute;
 
var FichierIni: Tinifile;
MaValeur : String  ;
 
begin
 
Form1.RefreshData;  // Procedure personnelle
 
Sleep(500);
 
FichierIni := TIniFile.Create(ExtractFilePath(Application.ExeName)+'.\MonFichier.ini');
MaValeur := (FichierIni.ReadString('Nom','Controle', ''));
 
if NOT  (MaValeur = 'xxxx')  then begin
MonUSBThread.Terminate;
Application.terminate ;
end;
 
Fichierini.Free;
 
end;

Le code s'exécute sans aucun soucis sauf dans la partie :

Code :

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

1
2
3
4
if NOT  (MaValeur = 'xxxx')  then begin
MonUSBThread.Terminate;
Application.terminate ;
end;

si "MaValeur" n'est pas égale à "xxxx " , alors l'application continue à tourner, elle ne se referme pas.
Il y a sûrement une erreur de ma part.

Merci pour votre aide.

Bonne journée.

[Charly910]

Bonjour,

je pense que tu devrais mettre la libération du ini avant le If NOT.

Mais pour essayer de trouver la solution, tu pourrais écrire MaValeur dans un fichier Log pour voir si sa valeur est correcte. et ensuite regarder si tu passes bien dans le If ?

A+
Charly

[SergioMaster]

Bonjour,

je vérifierai quand même la valeur de ExtractFilePath(Application.ExeName)+'.\MonFichier.ini'à vrai dire, le .\ me gêne

un petit code rapide pour tester
1- ExtractFilePath(Application.ExeName)+'.\MonFichier.ini' donne C:\Users\Serge\Documents\Embarcadero\Studio\Projets\Win32\Debug\.\MonFichier.ini
2- ExtractFilePath(ExtractFileDir(Application.ExeName))+'Monfichier.ini' donne C:\Users\Serge\Documents\Embarcadero\Studio\Projets\Win32\Monfichier.ini

je pense que c'est le 2 que tu veux obtenir ?

[NABIL74]

Bonjour,

je pense que tu devrais mettre la libération du ini avant le If NOT.

Mais pour essayer de trouver la solution, tu pourrais écrire MaValeur dans un fichier Log pour voir si sa valeur est correcte. et ensuite regarder si tu passes bien dans le If ?

A+
Charly

Bonjour,
Merci pour vos réponses surtout que vous êtes en week-end.

Je ne pense pas que cela vient du fichiers ini. Je suis presque persuadé que l'erreur vient de la construction du thread lui-même. Il ne "se tue" pas même
quand l'application se referme, il continue à tourner.

@ Serge,

Le chemin ne pose pas problème, la preuve, si je mets le code du thread dans un Bouton, il marche sans aucun soucis sauf que l'application se fige et c'est pour cette raison que je lai mis dans un thread.

A+

[Andnotor]

Les thread est assez mal fait, on n'accède pas à la VCL sans synchronisation.

si je mets le code du thread dans un Bouton, il marche sans aucun soucis sauf que l'application se fige

C'est peut-être par là qu'il faudrait commencer non ?

[NABIL74]

Les thread est assez mal fait, on n'accède pas à la VCL sans synchronisation.

C'est peut-être par là qu'il faudrait commencer non ?

Bonsoir,

Oui t'as raison Andnotor. Pour être franc, je n'ai pas beaucoup travaillé avec les threads .

La procedure Execute:

Code :

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

1
2
3
4
5
6
procedure TUSBThread.Execute;
 begin
 Form1.RefreshData;  // Procedure personnelle

Synchronize(ControleDATA); //synchronisation 
end;

Une nouvelle procedure pour la synchronisation :

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
procedure ControleDATA;
var FichierIni: Tinifile;
MaValeur : String  ;
 
begin
 
FichierIni := TIniFile.Create(ExtractFilePath(Application.ExeName)+'.\MonFichier.ini');
MaValeur := (FichierIni.ReadString('Nom','Controle', ''));
 
if NOT  (MaValeur = 'xxxx')  then begin
//MonUSBThread.Terminate;
Application.terminate ;
end;
 
Fichierini.Free;

Est-ce correcte cela stp?

Merci pour ton aide.

[Andnotor]

Tu dois d'abord déterminer pourquoi l'application se fige avant de rajouter une couche avec une tâche secondaire.

Sinon, Form1.RefreshData et Application.terminate doivent être synchronisés. La lecture du fichier et le test (plutôt à base de AnsiSameText) peuvent être asynchrones.

[NABIL74]

Bonjour,

Tu dois d'abord déterminer pourquoi l'application se fige avant de rajouter une couche avec une tâche secondaire.

Andnotor, la procedure Form1.RefreshData est une procédure de calcul. L'application se fige (pendant quelques secondes: 5 - 7 secondes) quand je lance cette procedure , mais après ce temps, l'application tourne normalement.

Le code du thread que j'ai publié, fonctionne correctement sauf que l'application ne se referme pas.

Ton avis? Faut-il corriger ce thread stp?

Merci

[Andnotor]

Andnotor, la procedure Form1.RefreshData est une procédure de calcul.

Peu importe, tu fais appel à Form1. Que se passe-t-il si Form1 est fermée alors que le calcul est en cours (durant ces 5-7 secondes) ?
RefreshData devrait être membre de TUSBThread.

Le code du thread que j'ai publié, fonctionne correctement sauf que l'application ne se referme pas.

Application.terminate doit être synchronisé.

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
procedure TUSBThread.Execute;
var
  MaValeur :String;
 
begin
  RefreshData;  // Procedure locale
 
  with TIniFile.Create(ParamStr(0) +'MonFichier.ini') do
  try
    MaValeur := ReadString('Nom','Controle', '');
 
    if not AnsiSameText(MaValeur, 'xxxx') then
      Synchronize(procedure
                  begin
                    Application.Terminate;
                  end);
  finally
    Free;
  end;
end;

Si ça ne fonctionne pas, le problème est ailleurs.

[NABIL74]

Bonsoir,

Peu importe, tu fais appel à Form1. Que se passe-t-il si Form1 est fermée alors que le calcul est en cours (durant ces 5-7 secondes) ?

L'application se referme normalement.

Ton dernier code ne termine pas l'application par contre ton idée ('on n'accède pas à la VCL sans synchronisation') , m'a permis d’atterrir là où je veux aller.
Après plusieurs test, mon code du post #6 fait l'affaire.

Merci beaucoup pour ton aide Andnotor
Il toujours fort ce Andnotor

Bonne soirée.