【图像处理高级编程】-真彩色转256 色源程序

真彩色转256 色源程序

提示：这里可以添加技术概要

核心源码

procedure tform1.button2click(sender: tobject);
var bmp: tbitmap;

begin
bmp := tbitmap.create;
//bmp.assign(image1.picture.bitmap);
trueto256(image1.picture.bitmap, bmp);
image2.picture.bitmap := bmp;
bmp.free;
end;

unit unit2;
interface
uses
windows, graphics;
type
prgbcolor = ^trgbcolor;
trgbcolor = record
b, g, r: byte;
end;
pbyte = ^byte;
lcolor = record
color, times: integer;
end;

procedure trueto256(sbitmap: tbitmap; var dbitmap: tbitmap);

implementation

var
colorcount: array[0…4096] of lcolor; //为记录颜色使用频率的数组
colortable: array[0…4096] of byte; // 为记录颜色索引