EXEMPLES DE THREADS

Commentaire de Jean_Jean le 19/05/2012 14:22:54

Salut Bactérius,

Merci pour tes commentaires très pertinents. Je suis d'accord avec toi pour presque tout. Me passer de la méthode synchronize serait un rêve, mais il ne faudrait pas que ça alourdisse de trop le code.

En fait j'ai écris ce code assez rapidement et ne voulais pas en faire une usine à gaz. C'est loupé! J'ai presque passé plus de temps sur le Pdf pour expliquer ce que je voulais faire. Le code se compliquait au fur et à mesure de mes essais.

Le prochain projet (j'ai encore plein de choses à expérimenter) tiendra compte de simplifications sur l'organisations en unités séparées.  Bien sûr j'essaierai de tenir compte de tes remarques...

A+

Commentaire de ManChesTer le 21/05/2012 02:08:53 administrateur CS

Salut,

Une petite astuce qui fonctionne:

type
  MyThread = class(TThread)
  public
    constructor Create(CreateSuspended:boolean);
    destructor Destroy; override;
    ResultAdress:Longint;
    Resultat:Boolean;
  protected
    procedure Execute; override;
  end;


constructor MyThread.Create(CreateSuspended:boolean);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate:=false;
  Getmem(Mathread.ResultAdress,unbuffersize)
...
end;

destructor TPersoThread.Destroy;
begin
resultat:=false;
freemem(Mathread.ResultAdress);
inherited;
end;

procedure MyThread.Execute;
var sec : longint64;
begin
  repeat
    Sleep(100);
    strpcopy("Je tourne depuis "+inttostr(sec)+' Secondes");
    Resultat:=True;
  until Terminated;
end;


Procedure Tform1.LireDonees_MyThread; // depuis un ttimer par ex...
Begin
If Mythread.Resultat then
begin
  Form1.Caption:=Strpas(MyThread.ResultAdress);
  Mythread.Resultat:=false;
end;
end;

on peut aussi complexifié en utilisant par exemple des record ou autres...
l'usage de ReallocMem & co est permis mais ! aux synchros.
En bref ca évite d'utiliser les disques ou les msg intempestifs.

Bon Coding...

ManChesTer.

Commentaire de ManChesTer le 21/05/2012 02:13:26 administrateur CS

Hmm décidement...

Le strpcopy vers le buffer évidement,


Bon Coding...

ManChesTer.

Commentaire de blueperfect le 21/05/2012 22:11:54

Je prends le commentaire en cours de route :

Etant moi-même sur le problème, je ne m'attarde pas sur tes sources...

Ce que j'en relève, est cependant important :

D'abord Synchronize...
Tu peux l'éviter en gérant l'affichage d'une autre manière : avec le fameux TControlCanvas...
Tu lance un thread qui construit un TBitmap, et un autre qui toutes les 25ms utilise un TControlCanvas (et Lock/unlock) pour afficher ce TBitmap sur un control (qui peut être la fiche)... Plus de Invalidate, et pas de timer...plus de VCL intempestive...de plus, l'intérêt (le gain de vitesse) est surprenant lorsque les threads produisent eux-même des  "sous-bitmap'...

Pour ton erreur de fin de traitement : le thread DOIT checker Terminated (comme le dit la doc), mais lorsque tu quitte l'application (ce qui ferme la fiche), le thread n'est pas "terminated", et devient instable... Installe un système de sémaphore (un simple pointeur sur un booléen) que tu renseigne à vrai en sortie de Execute, ou dans DoTerminate...Ne quitte ta fiche que lorsque le flag est positionné (par une boucle while not(thread.StopFlag^) do Sleep(1); )...

Si tu comptes stocker et échanger des variables entre threads (des structures, des chaines, des variants...), regarde mon objet TVariables... Tout l'intérêt réside dans l'utilisation d'une TThreadList pour stocker les Variants...

@+

Commentaire de blueperfect le 21/05/2012 22:16:23

rectification :
'<>' pas '='

while not(self.Terminated) and (Forms.Application.ComponentState <> Classes.csDestroying)
do .....;