如何得到图象的每一个象素,颜色值,放到数组里？ (50分)

如何得到图象的每一个象素,颜色值,放到数组里

var
myarr : array of array of Integer; //定义动态数组
i, j : Integer;
begin
SetLength(myarr, Image1.Width + 1, Image1.Height + 1);
for i := Image1.Left to Image1.Width + Image1.Left do
for j := Image1.Top to Image.Height + Image1.Top do
myarr[i, j] := ColorToRGB(Image1.Canvas.Pixels[i, j]);
end;

如何将rgb模式转化为网页色彩模式#……

接受答案了.