//关键过程,将图片装载在TImage中,然后按照需要的顺序读取每个像素值,生成二进制列,然后转换成十六进制即可:
for tx_h:= 0 to 63 do
begin
for tx_w:= 0 to 127 do
begin
if ColorTobrt(form1.Image1.Canvas.Pixels[tx_w,tx_h]) > 127 then //设置的域值为127,函数ColorTobrt的作用是将像素的tcolor转变为亮度值。
begin
tx_m:=tx_m+'1';
form1.Image2.Canvas.Pixels[tx_w,tx_h]:=$FFFFFF;
end
else