Les threads en delphi

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 593 fois - Téléchargée 32 fois

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

Ajouter un commentaire

Commentaires

cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
24 -
Dans la procédure Execute, tu fais appel à la procédure VaChercher. Or, cette dernière va tenter d'actualiser un contrôle visuel qui peut, également au même moment, être utilisé par le thread principal de l'application. L'appel de la méthode Synchronize avec comme paramètre VaChercher est (fortement) recommandé pour éviter toute collision.
Le fait de passer une référence (Edit: TEdit) au constructeur (déclaré ici en Protected ?!...) ne dispense pas d'appliquer ce principe de base. Ce n'est qu'une manière détournée de ne pas référencer directement le contrôle apparaissant sur une fiche.
La méthode Synchronize ne protège pas l'exécution d'une méthode, mais elle permet de synchroniser un thread secondaire avec le thread principal en évitant, avant tout, que plusieurs processus essayent d'accèder, en même temps, aux mêmes éléments en mémoire.
Remixgame
Messages postés
57
Date d'inscription
mardi 12 février 2002
Statut
Membre
Dernière intervention
2 août 2007
-
C'est vrai , en effet ce tutorial date , je vais le corriger au plus vite
cs_zmc
Messages postés
151
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
26 avril 2008
-
Vraiment bien ;) sinon a quand un tutorial sur le compo client IRC indy ? (si je me trompe pas tu a deja ecrit un tut sur smtp, pop3 et cie)

a+
cs_iubito
Messages postés
629
Date d'inscription
mercredi 3 juillet 2002
Statut
Membre
Dernière intervention
9 octobre 2006
-
alors j'ai justement besoin des multithreads. mais alors là je capte pas vraiment, je met dans kel fichier ? une nouvelle form ? bref suis perdu là :(
cs_mounjetado
Messages postés
69
Date d'inscription
lundi 13 mars 2006
Statut
Membre
Dernière intervention
4 août 2008
-
iubito si tu n'as pas eu la réponse entre-temps, tu déclares un type thread par unité et autant d'instances de chaque thread dont tu as besoin dans ton application dans l'unité de ta fiche.
bon courage pour la suite...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.