Discussion :

[der§en]

Bonjour,

J'utilise "doParallel" pour modifier les couleurs traitées dans un GetLineStart.
Voici les deux routines qui me servent à contrôler et modifier mes couleurs. Quand je sauvegarde mon PNG puis que je vérifie, les modifications n’ont pas été prise en compte.
Mon code étant relativement simple, j'avoue que je ne comprends pas ce qui bloque.

Auriez-vous une idée ?

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
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ProcThreadPool.DoParallel(@CompterPixelsLigne, 0, fPNG.Height - 1, fPNG);
 
  fPNG.SaveToFile(FICHIER_DE_COPIE);
 
  Image1.Picture.Assign(fPNG);
end;
 
procedure TForm1.CompterPixelsLigne(Index: PtrInt; Data: Pointer; Item: TMultiThreadProcItem);
var
  X: DWord;
  L : PInteger;
  P: integer;
  S: string;
begin
  L := Pinteger(TPortableNetworkGraphic(Data).RawImage.GetLineStart(Index));
 
  P := L^;
  inc(L);
 
  For X := 1 to TPortableNetworkGraphic(Data).Width - 1 do
  begin
    S := Format('$%.6x', [(L^ and $FFFFFF)]);
 
    if NOT AnsiMatchText(S, Refcolors) then
      L^:= P;
 
    P := L^;
    inc(L);
  end;
end;

[Jipété]

Yop !

Sous toute réserve :

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
 
procedure TForm1.CompterPixelsLigne(Index: PtrInt; Data: Pointer; Item: TMultiThreadProcItem);
var
  X: DWord;
  L : PInteger;
  P: integer;
  S: string;
begin
  TPortableNetworkGraphic(Data).BeginUpdate; // <<<<<
  L := Pinteger(TPortableNetworkGraphic(Data).RawImage.GetLineStart(Index));
 
  P := L^;
  inc(L);
 
  For X := 1 to TPortableNetworkGraphic(Data).Width - 1 do
  begin
    S := Format('$%.6x', [(L^ and $FFFFFF)]);
 
    if NOT AnsiMatchText(S, Refcolors) then
      L^:= P;
 
    P := L^;
    inc(L);
  end;
  TPortableNetworkGraphic(Data).EndUpdate; // <<<<<
end;

[BeanzMaster]

Salut

Petit question pourquoi te servir de TPortableNetworkGraphic ? et pas de TBitmap directement ? ensuite pourquoi ne pas tenir compte du premier pixel ? car si il est identique à RefColor il ne sera jamais modifié. RefColor tu le définis ou et comment ?
Est ce que le TImage affiche bien tes modifications ?
Ensuite attention le PNG accepte la transparence (32 bits) donc est ce que le pixel format est bien en 24 bits dans ton cas. Car sinon il faut définir P également comme cela P := (L^ and $FFFFFF)
Pourrais tu nous faire juste un petit projet reproduisant ce problème que l'on puisse jeter un oeil, si jamais ?

A+
Jérôme

[der§en]

Salut

Petit question pourquoi te servir de TPortableNetworkGraphic ? et pas de TBitmap directement ? ensuite pourquoi ne pas tenir compte du premier pixel ? car si il est identique à RefColor il ne sera jamais modifié. RefColor tu le définis ou et comment ?
Est ce que le TImage affiche bien tes modifications ?
Ensuite attention le PNG accepte la transparence (32 bits) donc est ce que le pixel format est bien en 24 bits dans ton cas. Car sinon il faut définir P également comme cela P := (L^ and $FFFFFF)
Pourrais tu nous faire juste un petit projet reproduisant ce problème que l'on puisse jeter un oeil, si jamais ?

A+
Jérôme

Je me sers de TPortableNetworkGraphic car mon image source est un PNG.

Ensuite ma routine est là pour remplacer les couleurs qui ne font pas partie de ma liste ; en procédant ainsi, j'élimine toutes les couleurs indésirables.

Je ne l'ai pas mis, mais je finalise mon contrôle par ligne en vérifiant le premier pixel aussi.
Le TImage affiche bien mes modifications car dès que je relance le comptage des couleurs, je passe bien de 1456 à mes 24 couleurs attendues.

[der§en]

Merci, j'ai bêtement oublie cette option

[Jipété]

Merci, j'ai bêtement oublié cette option

Quelle option ? Ma réponse ou celle de Jérôme

[der§en]

Quelle option ? Ma réponse ou celle de Jérôme

A toi

[der§en]

Par contre, je constate un truc agaçant, c'est que mon image en sortie passe de 32 à 24 bits, alors même que bien forcée à pf32bit.

[Andnotor]

@der§en,

Là aussi tu peux te passer de cette conversion en string (l'idéal serait que Refcolors soit un entier).

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
procedure TForm1.CompterPixelsLigne(Index: PtrInt; Data: Pointer; Item: TMultiThreadProcItem);
var
  ...
  RefC :integer;
begin
  ...
  RefC := StrToInt(Refcolors);
 
  For X := 1 to TPortableNetworkGraphic(Data).Width - 1 do
  begin
    if (L^ and $FFFFFF) <> RefC 
    then L^:= P
    else P := L^;
 
    inc(L);
  end;
end;

[/QUOTE]

[der§en]

RefColors est une array contenant ma liste de mes 24 couleurs de référence.