VPF::TBitmap. Из массива, в массив и получение пикселя.

CynicRus

Дата 8.4.2014, 10:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: 2
Всего: 5

Приветствую уважаемых форумчан. Возникла проблема. Есть класс с полями Width,Height и полем Data - которое является указателем на массив TRGBTriple.

Загружаю в него так:

Код


procedure TDTMBitmap.LoadFromBitmap(Bitmap: TBitmap);
var
  i,j,l: integer;
  Pixels: PPixelArray;
begin
   Reset;
   Width:=Bitmap.Width;
   Height:=Bitmap.Height;
    //SetSize(Bmp.Width,Bmp.Height);
   GetMem(FData,Width * Height * SizeOf(TRGBTriple));
   l:=width*height;
   Bitmap.PixelFormat := pf24bit;
  for i := bitmap.Height - 1 downto 0 do
  begin
   Pixels:=bitmap.ScanLine[i];
   for j :=bitmap.Width - 1  downto 0  do
    begin
     //move(FData,Pixels^,Bitmap.Width);
       FData^[l]:=Pixels[j];
       dec(l);
    end;
  end;
end;

Выгружаю обратно в TBitmap:

Код


var
 i,j,dd: integer;
 Pixels: pPixelArray;
begin
   dd:=width*height;
   bmp.PixelFormat := pf24bit;
   bmp.Width  := width;
   bmp.Height := height;
   for i := Bmp.Height - 1 downto 0 do
  begin
   Pixels:=Bmp.ScanLine[i];
  // move(Pixels,FData^[I*Width],Width);
   for j :=Bmp.Width - 1  downto 0  do
    begin
    Pixels[j]:=FData^[dd];
    dec(DD);
    end;
  end;
end;

Всё прекрасно работает, загружается куда надо, сохраняется как надо. Но, есть необходимость получать цвет пикселя по координатам на картинке.

Пробую вот так:

Код


result:=RGBTripleToColor(Data^[y*width+x]);

Функция преобразования цвета:

Код


function TDTMBitmap.RGBTripleToColor(const RGBTriple: TRGBTriple): TColor;
begin
Result:= RGBTriple.rgbtBlue shl 16 + RGBTriple.rgbtGreen shl 8 +
 RGBTriple.rgbtRed;
end;

Получается некий цвет пикселя.
Проверяю:
загружаю из файла в обычный TBitmap картинку, загружаю её в свой класс. Беру по Canvas.Pixels[x,y] цвет пикслея, беру из своего класса цвет пикселя - а они разные. И чего-то я могз себе сломал. вот что я не так делаю? Неправильно загружаю - выгружаю из массива? Тогда как это сделать правильно? Или же я неправильно определяю индекс в воображаемой матрице из моего массива?

Alexeis

Дата 8.4.2014, 12:06 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Возможно не учитывается то что компоненты цвета в битмапе pf24bit идут не в порядке RGB, а в порядке BGR . Canvas.Pixels[x,y] же всегда конвертирует RGB.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

CynicRus

Дата 8.4.2014, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: 2
Всего: 5

Ан нет, решение тривиальнее. Так как индексация идёт с 0, следовало при загрузке в массив переменную L указать как width*height - 1. И всё заработало как часы.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »