Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться со Scanline [D5]

real_dimedrol © (2003-02-15 12:40:00)
Кому не лень, помогите разобраться в методе Scanline. Указатель на массив чего он возвращает? Если бы это были элементы типа TColor то приведенный ниже фрагмент показал бы равные значения count1 и count2, но тут что-то не так просто, а в чем именно дело я понять не могу. Итак:

procedure TForm1.Button1Click(Sender: TObject);

type arr=array[0..1200] of longint; parr=^arr;

var h:tbitmap;i,j:integer;mat:parr;count1,count2:longint;

begin
count1:=0;
count2:=0;
h:=tbitmap.create;
h.loadfromfile("noname.bmp");//Это любой рисунок, содержащий черные пикселы
//Сканируем рисунок методом Scanline
for i:=0 to h.height-1 do
begin
mat:=h.ScanLine[i];
for j:=0 to h.width-1 do
if mat[j]=0 then inc(count1);
end;
//Проверяем массив Pixels
for i:=0 to h.width-1 do
for j:=0 to h.height-1 do
if h.canvas.pixels[i,j]=0 then inc(count2);
showmessage(format("При помощи метода Scanline обнаружено %d черных пикселов, в массиве Pixels их %d",[count1,count2]));
h.free;
end;

Mihey (2003-02-15 18:13:00) [1]
Ссылка на DOC с вольным переводом статьи по Scanline, там немного незакончено, но основнаой объём переведён. Скачать можно отсюда:

www.hot.ee/mvps3/scanline.zip

MBo (2003-02-15 15:22:00) [2]
pixels преобразует координаты в цвет, возврашая TColor, а
Scanline просто дает указатель на строку развертки Bitmap, а вот интерпретировать данные нужно самому - это зависит от цветового формата, для 256-цветного режима каждый байт представляет 1 точку и т.д.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »