Comment lire les pixels dans l'image WIC

Question

Le code ci-dessous (à partir de ce fil: How to use Delphi 2010's new WIC capability on Canon files?) ouvre une image WIC dans une BitMap. Toutefois, si la plage dynamique des valeurs de pixels WIC est grande, ce code perd beaucoup d'informations, car il doit adapter la plage dynamique étendue dans la plage inférieure qu'un pixel Bitmap peut accepter.

procedure TForm116.Button1Click(Sender: TObject); 
var 
    WIC: TWICImage; 
begin 
    WIC := TWICImage.Create; 
    try 
    WIC.LoadFromFile('MyFilename.raw'); 
    Image1.Picture.Graphic.Assign(WIC); 
    finally 
    WIC.Free; 
    end; 
end; 

Quelqu'un peut-il me montrer un exemple de code qui me permettrait de lire les valeurs de pixel directement à partir du TWICImage, donc je peux accéder aux données d'image sans perte d'information? J'ai besoin des valeurs d'intensité (échelle de gris) de chaque pixel qui peuvent peut-être être calculées à partir des valeurs RVB si elles ne sont pas directement disponibles?

Quelque chose comme:

var 
    PixelValue: Integer; // Grayscale 

for Row := 0 to WIC.Width do 
    for Col := 0 to WIC.Height 
    PixelValue := WIC.GetPixelValue(Row, Col); 

Answer 1

Vous devriez pouvoir assign() le TWICImage à un TBitmap, puis accéder aux pixels du bitmap ou propriété ScanLine pour obtenir les données de pixels. Tout comme vous le feriez lors du chargement d'un fichier JPEG.

Par exemple (non testé pseudocode)

w := TWICImage.Create(); 
w.LoadFromFile(...) 
b := TBitmap.Create; 
b.assign(w); 
ptr := b.ScanLine[...]