Доброго времени суток!
У меня возникла проблема, которую я сам не могу решить вот уже несколько часов кряду. В программе используется процедура, которая "конвертирует" входящий bitmap
в массив байт для более удобной работы с bitmap
. Массив, естественно, динамический, и для задания его размера используется привычная SetLength
. Однако я решил заменить SetLength
на вызов GetMem
с целью немного ускорить работу процедуры конвертации. Вот здесь и проблема.
Код ниже - "оригинальный", с использованием SetLength
. Работает без нареканий.
Переменная BmpArray
- это глобальная переменная модуля.
type
PQuadArray = ^TQuadArray;
TQuadArray = Array [0..(MaxInt div SizeOf(TRGBQuad))-1] of TRGBQuad;
...
var
BmpArray: Array of PQuadArray;
...
procedure ConvertBmpToBytes(const Bitmap: TBitmap);
var
BPP, BytesPerLine: Integer;
X, Y: Integer;
PPixels, PBytes: Pointer;
begin
BPP := SizeOf(TRGBQuad);
SetLength(BmpArray, Bitmap.Width * Bitmap.Height * BPP);
BytesPerLine := Bitmap.Width * BPP;
for Y:=0 to Bitmap.Height - 1 do
begin
PBytes := @BmpArray[Y * BytesPerLine];
PPixels := Bitmap.ScanLine[Y];
CopyMemory(PBytes, PPixels, BytesPerLine);
end;
end;
Ниже приведен код, использующий GetMem
. Заметьте, что тип массива изменился.
type
PNewArray = ^NewArray;
NewArray = Array [0..0] of PQuadArray;
var
BmpArray: PNewArray;
procedure ConvertBmpToBytes(const Bitmap: TBitmap);
var
BPP, BytesPerLine: Integer;
X, Y: Integer;
PPixels, PBytes: Pointer;
begin
BPP := SizeOf(TRGBQuad);
// SetLength(BmpArray, Bitmap.Width * Bitmap.Height * BPP);
GetMem(BmpArray, Bitmap.Width * Bitmap.Height * BPP);
BytesPerLine := Bitmap.Width * BPP;
for Y:=0 to Bitmap.Height - 1 do
begin
PBytes := @BmpArray[Y * BytesPerLine];
PPixels := Bitmap.ScanLine[Y];
CopyMemory(PBytes, PPixels, BytesPerLine);
end;
end;
Собственно, проблема в том, что вызов CopyMemory
после определенного значения счетчика Y
дает сбой - приложение "падает", FastMM
иногда выдает сообщение вида
FastMM has detected an error during a GetMem operation. The block header has been corrupted.
однако, это мне ни о чем не говорит - память под массив выделена корректно (или я ошибаюсь?), ScanLine
входящего bitmap
также корректен (предыдущий же код отрабатывает!). В общем, прошу помощи, ибо возможно, где-то что-то я упустил.
Заранее благодарю!
Важное дополнение к полученному ответу
Благодаря ответу участника Zed я наконец-то понял, в чем изначально была причина проблемы с GetMem
: в моем коде, в строке @BmpArray[Y * BytesPerLine];
был выход за пределы массива, так как переменная BytesPerLine
содержала помимо ширины bitmap
также и количество байт на пиксель, что, безусловно, приводило к выходу за границы массива при последовательном чтении данных из входящего bitmap
.
Вместе с тем, я не совсем понимаю, почему в первом варианте кода с применением SetLength
, подобный выход за пределы массива не выливается в "падение" программы. Возможно, дело в том, каким именно образом Delphi
внутренне работает с памятью для динамических массивов, но для более точного исследования мне не достает знаний. В любом случае вывод один - быть предельно внимательным при программировании.
SetLength
), как я указал в самом вопросе - очень даже работоспособный. Со вторым вариантом (которыйGetMem
) наблюдаются проблемы, характер которых мне непонятен. Вернее, понятно, что дело связано с память, но как именно связано? А перегоняю пиксели в массив для дальнейшей работы с ними (пискселями). Подобный подход значительно ускоряет работу с графикой в целом.BmpArray
как массив указателей, соответственно, вам надо аллоцировать память под каждый элемент этого массива. И подBmpArray
вы изначально выделяете больше места, чем требуется.