在Image1: TImage中载入你的图;
var
bmp : tbitmap ;
i,j : integer ;
begin
bmp := tbitmap.create ;
bmp.canvas.draw(0,0,Image1.Picture.Graphic) ;
bmp.width := image1.width ;
bmp.height:= image1.height;
bmp.PixelFormat := 你自己定 ;
for i:=0 to Image1.height do
for j:=0 to Image1.width do
输出 := 按格式取;
bmp.free ;
end ;
