Я пытаюсь получить доступ к строке сканирования растрового изображения в соответствии с статьей на Embarcadero. Использование строк сканирования, таких как
for y := 0 to n do
begin
line := bitmap.scanline [y];
for x := 0 to n do line [x] := value;
Я реализовал раньше. Я заметил, что доступ к строке сканирования занимает относительно много времени, и упомянутая выше статья предлагает решение этой проблемы. Я не могу реализовать это правильно. Мой код:
unit SCTester;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
ExtCtrls;
type
TRGBQuad = packed record
b: uInt8;
g: uInt8;
r: uInt8;
alpha: uInt8;
end; // Record: TQuad //
// Override the definitions in Graphics.pas
TRGBQuadArray = packed array [0..MaxInt div SizeOf (TRGBQuad) - 1] of TRGBQuad;
PRGBQuadArray = ^TRGBQuadArray;
TForm1 = class(TForm)
Image: TImage;
procedure ImageDblClick(Sender: TObject);
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ImageDblClick(Sender: TObject);
var Bitmap: TBitmap;
q: TRGBQuad;
x, y: NativeInt;
FirstLine: PRGBQuadArray;
idx: NativeInt;
LineLength: NativeInt;
begin
q.r := 0; q.g := 0;
Bitmap := TBitmap.Create;
Bitmap.Height := Image.Height;
Bitmap.Width := Image.Width;
Bitmap.PixelFormat := pf32Bit;
FirstLine := Bitmap.ScanLine [0];
LineLength := (NativeInt (Bitmap.Scanline [1]) - NativeInt (FirstLine)) div SizeOf (TRGBQuad);
try
for y := Bitmap.Height - 1 downto 0 do
begin
for x := 0 to Bitmap.Width - 1 do
begin
q.b := (x xor y) mod 255;
idx := y * LineLength + x;
FirstLine [idx] := q;
end; // for
end; // for
Image.Picture.Assign (Bitmap);
finally
Bitmap.Free;
end; // try..finally
end;
end.
И я всегда получаю незаконный доступ, когда y=1 и x=0. LineLength имеет отрицательное значение (ширина растрового изображения), но этого можно было ожидать. Что я делаю не так?
EDIT: приведенный выше код изменен, чтобы отразить замечания, обработанные до сих пор.
idx
следует объявить какNativeInt
, чтобы ваш код можно было использовать и в x64.LineLength
не должно быть отрицательным (отсюда и незаконный доступ). Мой вывод таков, что вы запускаете этот код в 64-битном режиме. - person LU RD   schedule 01.05.2012LineLength
отрицательно, это нормально. - person kludg   schedule 01.05.2012NativeInt
. - person LU RD   schedule 01.05.2012LineLength := (Longint (Bitmap.Scanline [1]) - Longint (FirstLine))
наLineLength := (NativeInt (Bitmap.Scanline [1]) - NativeInt (FirstLine))
, а все объявленияLongInt
наNativeInt
. - person LU RD   schedule 01.05.2012