Les threads en delphi

Commenter

Contenu du snippet

Comme tout à l'heure ,
ce code est un copié -coller d'un tutorial
que j'ai réalisé il n'y a donc pas d'image ni de tableau

Pour l'avoir en texte formaté
http://www.remixtech.com/Thread.php

Source / Exemple : 


Les threads en Delphi ...

1 ) Les threads introduction , découverte ...
Ancien développeur en Visual Basic , vous venez de migrer vers Delphi ou encore C++ , vous découvrez alors de nombreuses fonctions tirées de l'A.P.I Windows 32 voir Unix , 

Explication d'un Thread :

Un thread est une division de l'application , il est conseillé de s'en servir ,dans les taches complexes , qui risquent de bloquer l'interface ...

Par exemple si le Thread ci dessus bloque ,ou ne répond pas pendant 10 min , votre programme restera actif , rien de plus simple ....

Par contre si l'application Visual Basic doit faire une Ecriture sur le disque , pendant la durée de cette écriture , le programme ne répondra plus , il faut noter aussi que le thread permet aussi de ne pas faire bloquer windows ....

Il est conseillé d'utiliser les threads , lors de grosses taches , comme attente d'un message de la part d'un client avec TCPIPserveur, ou encore une écriture sur le disque plutôt longue ...

 

2 ) Créations et utilisation d'un thread en delphi ...
Cette exemple est tiré des threads de Fast Mail Checker

Dans la déclaration type :

ThreadPOP = class(TThread) //On crée une classe dérivé de TThread
private // On déclare les variables Privates et leurs dérivations
FServeur,FUser,FPass: string; 
FPort : Integer ;
Fedit : Tedit;
Fig : integer;
protected // Comme dans chaque class voici les actions protégées
constructor Create(CreateSuspended: Boolean;serveur:string;port:integer;user:string;pass:string;Edit:Tedit;ig:integer);
procedure Execute; override;
procedure VaChercher;

L'action create , à la création du composant : 

constructor ThreadPOP.Create(CreateSuspended: Boolean;serveur:string;port:integer;user:string;pass:string;Edit:Tedit;ig:integer);
// ^- ci dessus les informations d'appelles pour la création du composant 
begin
inherited Create(CreateSuspended); // On prend les informations du descendant si il doit reprendre l'action d'un thread annuler
FreeOnTerminate := True; // On libère la mémoire à la sortie 
Priority := tplower; // Priorité basse , tableau ci dessous
FServeur := serveur ; // on place les variables d'appelles dans les variables du thread
FUser := user ;
FPass := pass ;
FPort := port ;
Fedit := edit ;
Fig := ig ;
if CreateSuspended then // si il y a reprise alors on reprend ...
Resume;
end; Valeur  Propriété  
tpidle Exécution du thread uniquement quand le système d'exploitation est en attente par exemple , si le proc est utilisé à 20 % le reste est fournit au thread 
tplowest Deux points en dessous de la normale 
tplower Un point en dessous de la normale 
tpnormal La priorité du thread est normale 
tphigher Un point au dessus de la normale 
tphighest Deux points au dessus de la normale 
tptimecritical Le thread à la priorité la plus élevé 

Attention gonfler une application , peut avoir des effets non négligeable , blocage de l'Operating System , ou même encore blocage de l'application ... 

procedure ThreadPOP.Execute; // lors de l'execution du thread
begin
synchronize(VaChercher); // appelle à la fonction vachercher
//la methode synchronize empeche les conflits avec la VCL
end; 

procedure ThreadPOP.VaChercher;
begin
Fedit.Text:=fserveur; //écrit Fserveur dans Fedit
end; 

3 ) Fonctions avancées et comprehension
Tout d'abord voici les paramètres de la fonction thread : 

Paramètres Propriété 
IpThreadAttribute Définition des paramètres de sécurité 
DwStackSize Contient les infos de la taille de la PILE 
IpStartAddress Pointeur vers la fonction de traitement appelle conventionelle stdcall  
IpParameter Paramètres à passer avec la fonction de traitement  
dwCreationFlags Drapeau de création du Thread 
IpThreadID Variable DWORD contenant l'ID du thread 

var ThreadID : THandle; 
ThreadH : THandle; 

ThreadH:=CreateThread(nil,0,@ProcedureAappeler,Edit1,0,ThreadID);

procedure ProcedureAappeler(Edit : TEdit); stdcall;
begin
end;

Fonctions :

Fonction Description 
ExitThread Le thread mets fin à sa propre exécution 
TerminateThread TerminateThread(GetCurrentThread,0); On finit un thread grace au Handle , attention la mémoire n'est pas libérée ... 
DwStacksize Dans create thread on peut changer cette fonction pour faire varier la taille de la PILE adressé au thread ... 
GetThreadPriority Récupère la priorité du thread function GetThreadPriority(hThread : THandle): Integer; stdcall;  
setThreadPriority On change la priorité du thread 
GetProcessTime Connaitre le temps d'execution du thread 
Sleep Endore le thread pour un temps défini 
SleepEx Endore le thread pour un Quantum 
WaitMessage Attendre pour un message de extérieur 

La classe TThread :

Propriétés ,fonctions etc ... Description 
SuspendThread Place un thread en état endormi 
ResumeThread Réveille un thread 
WaitFor
 Attend pour la fin d'éxecution d'un thread 
FreeOnTerminate Libère la mémoire à la fin 
Suspended Permet de savoir si le Thread est endormi  
ThreadID Identificateur du thread 
Priority Priorité du thread 
Handle Handle du thread 
OnTerminate Evenement , quand il y'a fin du thread  
DoTerminate En surchargeant cette méthode on peut éffectuer des opérations avant Onterminate 
Execute Contient le traitement du thread 
Synchronize Protége l'execution d'un méthode 
ReturnValue Valeur de retour du thread 
Terminated Teste si le thread est terminé

Conclusion :


Voila pour le tut

A voir également

Du même auteur (Remixgame)