Discussion :

[omen999]

bonjour,

mon application vcl crée des threads à partir de TThread pour gérer différents traitements
je voudrais que certains d'entre eux puissent suspendre le thread principal vcl à partir du thread secondaire
comme la méthode Suspend ne s'applique qu'à l'objet créé, j'avais pensé utiliser l'api pour y parvenir dans ce style:

Code :

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

SuspendThread(OpenThread(THREAD_SUSPEND_RESUME,False,GetWindowThreadProcessID(fmPrefs.Handle,nil)));

malheureusement, ça marche tellement bien que si le thread principal est bien suspendu,
le thread appelant l'est également (le code suivant cette ligne ne s'exécute pas)

est-ce un problème lié à delphi ou existe-il un autre moyen ?

merci par avance pour toutes vos suggestions

[ZZZzzz2]

bonjour,

mon application vcl crée des threads à partir de TThread pour gérer différents traitements
je voudrais que certains d'entre eux puissent suspendre le thread principal vcl à partir du thread secondaire
comme la méthode Suspend ne s'applique qu'à l'objet créé, j'avais pensé utiliser l'api pour y parvenir dans ce style:

Code :

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

SuspendThread(OpenThread(THREAD_SUSPEND_RESUME,False,GetWindowThreadProcessID(fmPrefs.Handle,nil)));

malheureusement, ça marche tellement bien que si le thread principal est bien suspendu,
le thread appelant l'est également (le code suivant cette ligne ne s'exécute pas)

est-ce un problème lié à delphi ou existe-il un autre moyen ?

merci par avance pour toutes vos suggestions

Si tu fais bien cet appel dans le 'Execute' de ton second thread alors je ne vois pas pourquoi cela interromperait également son exécution. Pour info tu as la variable 'MainThreadID' qui contient en permanence l'id de la thread VCL, tu n'es pas obligé de faire ton appel à 'GetWindowThreadProcessID(***)' et ça évitera une erreur éventuelle à ce niveau.

Autre chose, chez moi (pourtant Delphi7, qui supporte en théorie Win2000) je n'ai pas cette fonction "OpenHandle" ? et même dans l'aide SDK intégrée il est spécifié "The Win32 API does not provide a way to get the thread handle from the thread identifier"...
C'est étonnant alors qu'à priori cette API existe depuis Windows 2000
(http://msdn.microsoft.com/en-us/libr...35(VS.85).aspx)

[omen999]

je ne vois pas pourquoi cela interromperait également son exécution.

exact car je viens de me rendre compte que les traitements postérieurs utilisent des ressources vcl qui sont évidemment indisponibles puisque j'ai suspendu le mainthread
donc c'est résolu ou plutôt à délester
en delphi 4 (j'avais oublié de préciser), la propriété MainThreadID n'existe pas

Autre chose, chez moi (pourtant Delphi7, qui supporte en théorie Win2000) je n'ai pas cette fonction "OpenThread" ?

ça c'est normal, cette déclaration n'a pas été maj dans windows.pas
je l'avais ajoutée dans mon unité declarations

Code :

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

function OpenThread(dwDesiredAccess:DWORD;bInheritHandle:BOOL;dwThreadId:DWORD):THandle;stdcall;external 'kernel32.dll';

merci de ta réponse

[ZZZzzz2]

exact car je viens de me rendre compte que les traitements postérieurs utilisent des ressources vcl qui sont évidemment indisponibles puisque j'ai suspendu le mainthread
donc c'est résolu ou plutôt à délester
en delphi 4 (j'avais oublié de préciser), la propriété MainThreadID n'existe pas

ça c'est normal, cette déclaration n'a pas été maj dans windows.pas
je l'avais ajoutée dans mon unité declarations

Code :

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

function OpenThread(dwDesiredAccess:DWORD;bInheritHandle:BOOL;dwThreadId:DWORD):THandle;stdcall;external 'kernel32.dll';

merci de ta réponse

Ok pour OpenThread et content que ton problème soit résolu même si j'y suis pour rien ;-)