Использование SetBitmapBits с динамическим массивом

← →
novarm44 (2002-10-12 01:33) [0]

При подстановке в SetBitmapBits матрицы с фиксированным количеством столбцов и рядов все работает без проблем, а при использовании:

var PixelMat:array of array of TColor;
...
SetBitmapBits (Form1.Image1.Picture.Bitmap.Handle,length(rmat)*length(rmat[0])*3,@PixelMat); Form1.Image1.Refresh; //sizeof в таком случае не работает

выводит белый экран

При подстановке PixelMat вместо @PixelMat начинает выводить бред всякий.

← →
PVOzerski © (2002-10-12 05:16) [1]

Точно не знаю, но есть подозрение. Динамический 2-мерный массив на самом деле
есть не что иное как структура, один из элементов которой - указатель на блок
памяти, заполненный структурами, содержащими, в частности, указатели на блоки памяти,
заполненные данными (tColor в Вашем случае). Как видите, внутренняя организация его
радикально отличается от таковой статического 2-мерного массива, так "бред" закономерен.
Я бы попробовал переделать массив в 1-мерный (рассчитывать столбцы и строки вручную,
по смещению) и передавать в SetBitmapBits адрес 0-го элемента. А то и вообще плюнуть
на эти навороты поздних версий Delphi и работать через GetMem :^)

Использование SetBitmapBits с динамическим массивом Найти похожие ветки