Passage de paramètre dans un DoParallel

Version imprimable

Bonjour,

voici un bout de code:
Code:

1 2 3 4 5 6 7 8 9 Procedure TForm1.AfficheCarteStandard; begin FBmp.BeginUpdate(True); ProcThreadPool.DoParallel(@AfficheLigneStandard, 0, FBmp.Height - 1, nil, ProcThreadPool.MaxThreadCount); FBmp.EndUpdate(); end;
J'ai vu dans la docs de Lazarus, que l'on peux passer un pointeur sur ce que l'on veux la ou j'ai mis un nil...

Si la la place de mon nil, je passe l'adresse d'un Btimap, comment je peux l'exploiter dans la routine appeler, ce n'est pas très clair pour, moi !

Si vous avez une info pour m'aider, je suis preneur ?

Salut

Tu exploites simplement le pointer dans ta routine en faisant un transtypage en fonction du type de données. Sans avoir testé je dirais un truc dans le genre

Code:

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
procedure DoTVLineParallelProc(Index: PtrInt; Data: Pointer; Item: TMultiThreadProcItem); 
var 
  x : LongWord;
  buffer : PByte;
begin
  Buffer := PByte(Data);
  Inc(buffer, (Index * FBmp.Width * 4));
 
  if odd(Index) then
  begin
    For x:= 0 to FBmp.Width-1 do
    begin
       Buffer^:= 0;          // R
       inc(Buffer);
       Buffer^:= 0;         // G
       inc(Buffer)
       Buffer^:= 0;         // B
       inc(Buffer)
       Buffer^:= 255;     // A
       inc(Buffer)
    end;
  end;
end;
 
Procedure TForm1.DoParallelJob;
begin
  FBmp.BeginUpdate(True);
 
  ProcThreadPool.DoParallel(@DoTVLineParallelProc, 0, FBmp.Height - 1, FBmp.RawImage.Data, ProcThreadPool.MaxThreadCount);
 
  FBmp.EndUpdate();
end;

12/02/2019, 21h29
der§en

Merci je m’en vais tester ceci dés demain matin :mouarf: