Скачать: CL | DM;

Использование 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 :^)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c