Discussion :

[Jipété]

Bon, en l'état, ton code ne vaut rien : je commence par me faire jeter avec

Code :

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

1
2
  if BmpS.PixelFormat <> pf24bit then
    raise Exception.Create('Uniquement le format pf24bit est supporté');

or cette erreur va bloquer le reste...
Je passe tout en 32 bits et ça progresse mais j'ai des rendus foireux genre des images mode 24 bits.

Je repars de ta source, je rajoute BmpS.PixelFormat := pf24bit; //jpt : récupéré dans initialisations avant le contrôle, ça passe, je clique sur le bouton pour convertir mais c'est l'image source à gauche qui est convertie !
Et toute en noir ! ! !
Comme tu le décris dans ton dernier post, d'ailleurs.

Donc je repasse en 32 bits, et voilà le résultat :


Au vu de ce type d'image, je me dis qu'il y a des pixels pas remplis, ou des RGB sur 24 bits quand on devrait avoir des RGBA sur 32 bits.

[Invité]

or cette erreur va bloquer le reste...
Je passe tout en 32 bits et ça progresse mais j'ai des rendus foireux genre des images mode 24 bits.

Justement le programme demande une image RGB 24bit actuellement le code ne supporte que ce format et comme précisé avant il n'est plus toléré de changer l'image de l'entrée cette opération n'est pas saine .

Au vu de ce type d'image, je me dis qu'il y a des pixels pas remplis, ou des RGB sur 24 bits quand on devrait avoir des RGBA sur 32 bits.

Pour le faire fonctionner avec le format 32bit réactive le champ rgbReserved dans le code de la redéfinition de la structure tagRGBQUAD que j'avais fait pour m'éviter de me voir traquer et changer tous les noms des champs des couleurs dans le code.

Code :

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

1
2
3
4
5
6
  tagRGBQUAD = packed record
    rgbBlue: Byte;
    rgbGreen: Byte;
    rgbRed: Byte;
   // rgbReserved: Byte;
  end;

[Jipété]

Pour le faire fonctionner avec le format 32bit réactive le champ rgbReserved dans le code de la redéfinition de la structure tagRGBQUAD que j'avais fait pour m'éviter de me voir traquer et changer tous les noms des champs des couleurs dans le code.

Code :

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

1
2
3
4
5
6
  tagRGBQUAD = packed record
    rgbBlue: Byte;
    rgbGreen: Byte;
    rgbRed: Byte;
   // rgbReserved: Byte;
  end;

Mais c'est déjà comme ça dans LCLType ligne 1328 et les 8 suivantes :

Code :

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

1
2
3
4
5
6
7
8
9
  PRGBQUAD = ^TRGBQUAD;
  tagRGBQUAD = record
          rgbBlue : BYTE;
          rgbGreen : BYTE;
          rgbRed : BYTE;
          rgbReserved : BYTE;
       end;
  TRGBQuad = tagRGBQUAD;
  RGBQUAD = tagRGBQUAD;

Je reviendrai là-dessus, là, je vais faire un tour du côté de mon prog de transparence cassé par l'OS en 64 bits dont j'ai causé ce matin.