Merhabalar ben bir resim dosyasını okutuyorum 8bit olarak bunlar Byte olarak geliyor ama dogru rengi alamıyorum.
Hata Nerede acaba ?
Hata Nerede acaba ?
procedure TForm1.BitBtn1Click(Sender: TObject); type pbyte = PByteArray; // use a PByteArray for pf8bit color var x,y : Integer; renk:TColor; BitMap : TBitMap; P: pbyte; begin BitMap := TBitMap.create; try BitMap.LoadFromFile('A.bmp'); BitMap.PixelFormat:=pf8bit; for y := 0 to BitMap.Height - 1 do begin P :=BitMap.ScanLine[y]; for x := 0 to BitMap.Width -1 do Begin renk:=(P[x]); //Burda byte Tcolor ' dönüstüremedim end; inc(x ,3); end; finally BitMap.Free; end; end;