Discussion :

[z4k4r14]

Salut à tous,
J'ai lu quelques tutoriels et exemples qui parle de thread en Delphi mais c’est très compliqué tous ce que je veux faire c'est exécuter une simple fonction dans un thread séparé et avoir le résultat dans mon application ..
Edit: j'ai trouvé la solution
http://www.phidels.com/php/index.php...41c2b4a01461ac

[ShaiLeTroll]

Le sujet DELPHI XE + scrute dossiers et sous dossiers utilise un Thread !
le thread propose la méthode Add pour fournir des éléments au fur et à mesure, avec une protection de l'accès concurrentiel avec la boucle Execute

le sujet Première tentative de multithread, ouch ! propose plusieurs approche de synchronisation, par événement, par liste de travail, ainsi que toute la démarche de recherche pour créer un thread avec la problématique d'accès concurrentiel inter-thread

le sujet [XE] Calculer le temps de traitement d'une fonction montre le principe d'encapsulation pour créer un proxy d'appel à une fonction, ce principe peut être adapté au thread, comme le code ci-dessous

Tout cela peut se résumer, à transformer la fonction en procedure TThread.Execute
D'ajouter un membre publique qui contiendra la résultat rempli par TThread.Execute
D'utiliser OnTerminate ou son propre Event pour savoir quand lire le résultat
Le Passage de paramètre se fait de la même façon, via le constructeur et des membres privés, exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
type
  TZLResultEvent = procedure(Sender: TObject; const ResultValue: string) of object;
 
  TZakaria = class(TThread)
  private
    FParam1: Double; 
    FParam2: Integer;
    FResult: string;
    FOnResult: TZLResultEvent;
 
    procedure DoResult();
  protected
    procedure Execute(); override;
  public 
    constructor Create(AParam1: Double; AParam2: Integer; AOnResult: TZLResultEvent);  
  end; 
 
constructor TZakaria.Create(AParam1: Double; AParam2: Integer; AOnResult: TZLResultEvent);    
begin
  inherited Create(False);
  FreeOnTerminate := True;
 
  FParam1 := AParam1; 
  FParam2 := AParam2; 
  FOnResult := AOnResult;  
end;
 
procedure TZakaria.Execute(); 
begin
  if AParam2 = 0 then
    FResult := FloatToStr(AParam1 * AParam1);
  else
    FResult := FloatToStr(AParam1 / AParam2);
 
  Synchronize(DoResult);
end;
 
procedure TZakaria.DoResult(); 
begin
  if Assigned(FOnResult)
    FOnResult(Self, FResult);  
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  TZakaria.Create(1.01, 2, ZLResultEventHandler);
end;
 
procedure TForm1.ZLResultEventHandler(Sender: TObject; const ResultValue: string);
begin
  ShowMessage(ResultValue);
end;