Type TByteArray = Array[Word] of Byte; //Delphi自带的ByteArray不好用 pByteArray = ^TByteArray;procedure TForm1.Button1Click(Sender: TObject); Var Bmp: TBitmap; A:pByteArray; i: integer; begin Bmp:=Image1.Picture.Bitmap; A:=Bmp.ScanLine[20]; For i:=10 To 100 do A[i]:=100; end;这个是最简单的读写方法。 可以依照Bmp的PixelFormat属性定义 Array Of (RGB/RGBA/...)
TByteArray = Array[Word] of Byte; //Delphi自带的ByteArray不好用
pByteArray = ^TByteArray;procedure TForm1.Button1Click(Sender: TObject);
Var
Bmp: TBitmap;
A:pByteArray;
i: integer;
begin
Bmp:=Image1.Picture.Bitmap;
A:=Bmp.ScanLine[20];
For i:=10 To 100 do
A[i]:=100;
end;这个是最简单的读写方法。
可以依照Bmp的PixelFormat属性定义 Array Of (RGB/RGBA/...)