Discussion :

[phoenixgreg]

Bonjour tout le monde,

j'ai appliquée cette méthode http://delphi.developpez.com/faq/?pa...-un-thread-VCL

Code :

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

1
2
3
4
5
6
7
 
TThreadLibCom := TLibComThread.Create(true);
      TThreadLibCom.Priority := tpHighest;         // Thread of high priority.  // Force closure
      TThreadLibCom.Resume;
      i_confirm := MessageDlg(SHSL_Site_RetrieveConfigFinished,mtInformation, [mbOk], 0); // si j'enlève cette ligne la fermeture du thread ne se fait pas correctement
      TThreadLibCom.Terminate;
      ExitCode := TThreadLibCom.WaitFor;

j'ai un comportement que je n'arrive pas à expliquer dans mon code, comme vous pouvez voir dans le code ci-dessus, je créé mon Thread puis Terminate etc .. la chose est que si j'enlève la ligne :

Code :

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

1
2
 
i_confirm := MessageDlg(SHSL_Site_RetrieveConfigFinished,mtInformation, [mbOk], 0);

, la méthode Execute de mon Thread n'est pas appelée et du coup mon thread ne sert à rien, je suppose que le MessageDlg y est pour quelque chose.

Vous voyez une solution ?

merci

[franckcl]

Bonjour,

Dans ton code, tu exécutes le thread et tu le stoppes aussitôt.
Je ne sais pas ce que tu cherches à faire mais si tu veux éviter l'affichage du message, essaie de le remplacer par un sleep(100) par exemple.
D'autre part, lorsque tu appelles le constructeur Create tu passes le paramètre CreateSuspended à true ce qui veut dire que ton Thread n'est pas exécute à la création. Tu peux aussi essayer de mettre false à la place de True.


Franck

[phoenixgreg]

Salut franckcl,

en fait je fait juste en sorte de stopper une dll que j'appelle, et donc je stoppais le thread pour ajouter mettre la Priority en "haute", voici mon code Execute :

Code :

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

1
2
3
4
5
6
7
 
procedure TLibComThread.Execute;
begin
  MainForm.PC.ClosePortLIBCOM();
  MainForm.PC.DestroyLibCom();
  { Placez le code du thread ici }
end;

Donc en effet avec un sleep de 300 et évitant de stopper le thread à sa création, j'arrive à passer par toutes les méthodes que je voulais.
On va laisser cela comme ça du coup ^^.

Merci à toi.

[Andnotor]

On va laisser cela comme ça du coup ^^.

Du coup, le thread ne sert plus à rien (il ne servirait de toute façon à rien du fait du WaitFor).
Il manque aussi la libération de l'objet TLibComThread.

Sinon, es-tu sûr qu'il soit thread-safe ce composant ?

[foetus]

Du coup, le thread ne sert plus à rien (il ne servirait de toute façon à rien du fait du WaitFor).

C'est vrai, mais le plus grave c'est le fait que phoenixgreg doit serrer les fesses pour espérer que la libération du port COM et la fermeture de la DLL se fasse en moins de 300 millisecondes

[Andnotor]

mais le plus grave c'est le fait que phoenixgreg doit serrer les fesses pour espérer que la libération du port COM et la fermeture de la DLL se fasse en moins de 300 millisecondes

Non. Le seul problème serait si le thread n'avait toujours pas démarré après 300 ms (on retombe sur le problème original).
Une fois qu'il a démarré, Terminate ne sert plus à rien (il n'y a pas de boucle), OnExecute ira normalement à son terme et la tâche principale sera bloquée pour une durée indéterminée jusqu'à ce que WaitFor soit libéré