Использование SetBitmapBits с динамическим массивом [D5, Win95/98, WinXP]
novarm44 © (2002-10-12 01:33:00)
При подстановке в 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:00) [1]
Точно не знаю, но есть подозрение. Динамический 2-мерный
массив на самом деле
есть не что иное как структура, один из элементов которой -
указатель на блок
памяти, заполненный структурами, содержащими, в частности,
указатели на блоки памяти,
заполненные данными (tColor в Вашем случае). Как видите,
внутренняя организация его
радикально отличается от таковой статического 2-мерного
массива, так "бред" закономерен.
Я бы попробовал переделать массив в 1-мерный (рассчитывать
столбцы и строки вручную,
по смещению) и передавать в SetBitmapBits адрес 0-го
элемента. А то и вообще плюнуть
на эти навороты поздних версий Delphi и работать через GetMem
:^)
Наверх 
ЧАТ |
Орешник |
|
