Discussion :

[der§en]

Bonjour,

voici un bout de code:

Code :

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

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 ?

[BeanzMaster]

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 :

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
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;

[der§en]

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