عکس در آرایه

[The.Ghost]

سلام
می خواستم بدونم که چه شکلی می تونم یک عکس را در یک آرایه 2 بعدی قرار بدهم
ممنون

[mirn96]

سلام . کد زیر رو یه امتحانی بکنید :

کد:

procedure TForm1.Button1Click(Sender: TObject);
var ax:array of array of integer;
bmp:TBitmap;
i,j:integer;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile('1.bmp');
SetLength(ax,bmp.Width,bmp.Height);
for j:=0 to bmp.Height-1 do
begin
for i:= 0 to bmp.Width -1 do
begin
ax[i,j]:=bmp.Canvas.Pixels[i,j];
end;
end;
///////////////////////////////////////
for j:=0 to bmp.Height-1 do
begin
for i:= 0 to bmp.Width -1 do
begin
form1.Canvas.Pixels[i,j]:=ax[i,j];
end;
end;
//////////////////////////////////////////
bmp.Free;
end;