Обработка изображения без TImage

@ziqp · Регистрация: 03.09.2015

Author24 — интернет-сервис помощи студентам

Всем привет.
Возможно ли обрабатывать картинку без TImage (он очень сильно замедляет скорость работы)?
Под обработкой я имею в виду:
Найти пиксель координаты X: 15, Y: 16 и узнать цвет RGB. Это все, что нужно при работе с картинкой.
Может есть альтернатива в Graphics::TBitmap *Bitmap=new Graphics::TBitmap вместо переноса на TImage? Если да, увеличит ли это скорость обработки?

@Dinkin · 26.12.2016, 17:10

Поиск пикселей очень прожорливая для ресурсов операция.
Сменив TImage на что то другое, врядли Вы получите больше скорости.
Смотрите в сторону уточнения координат поиска (типа на 1000 на 1000, а где то может 100 на 100 искать), да и пересмотрите код поиска, нет ли там чего оптимизировать.

@volvo · 26.12.2016, 17:30

Сообщение от ziqp

Может есть альтернатива в Graphics::TBitmap *Bitmap=new Graphics::TBitmap

Может и есть: Manipulating Pixels With Delphi's ScanLine Property, в зависимости от "битности" изображения. Но вряд ли это сильно увеличит скорость.

@RefSol · 26.12.2016, 18:44

ziqp, обрабатывайте через Graphics::TBitmap();
Данный класс позволяет обращаться напрямую к памяти, где хранятся элементы изображения (пиксели).
Позволяет сохранять и считывать изображение, изменять разрешение (цветовое) и ещё много чего.
Возможно построчно скопировать изображение в отдельный массив и обрабатывать его там
(например так)

C++

    data = new ColorSpace*[iHeight];
    for (int i = 0; i < iHeight; i++) {
      data[i] = new ColorSpace[iWidth];
      memcpy(data[i], picBMP->ScanLine[i], iWidth* sizeof(ColorSpace));
    }

Здесь picBMP->ScanLine[i] -- обращение к строке массива объекта из класса Graphics::TBitmap().

Далее с массивом data[i][j] -- можно работать хоть на ассемблере, с максимальной скоростью.

Помните, что обрабатывать изображение лучше в буфере, а пользователю выводить готовое путём быстрого (не по пиксельного) копирования. В этом случае торможение (оно всегда будет ведь на обработку и копирование требуется время) будет минимальным, не заметным для глаза. Главное что бы время вывода обновлённого изображения было меньше периода следования кадров. Если вывод на экран не требуется, то всё ещё проще.

@ziqp · 26.12.2016, 19:43 **[ТС]**

RefSol, можно по-подробнее?
Я делаю скриншот экрана пк так:

C++

//скриншот и подгрузка
unsigned DataHandle;
HPALETTE APalette;
Word Format;
Graphics::TBitmap *Bitmap=new Graphics::TBitmap;
HDC DC=GetDC(0);
try{
Bitmap->Height=Edit7->Text.ToInt();//Screen->Height
Bitmap->Width=Edit6->Text.ToInt();//Screen->Width
BitBlt(Bitmap->Canvas->Handle , 0, 0, Edit6->Text.ToInt(), //Screen->Width
Edit7->Text.ToInt(),DC, 0, 0, SRCCOPY); //Screen->Height
}
__finally
{
delete Bitmap;
ReleaseDC(0,DC);
}
//конец подгрузки

Как изменить для работы с пикселями?
Как затем найти R, G и B цвета по координатам: X:5, Y: 10? Со scanline работал.
С Image получал так:

C++

Image1->Picture->Bitmap->PixelFormat = pf24bit;
Byte *alpha = (Byte *)Image1->Picture->Bitmap->ScanLine[Y];
Byte *alpha2;
//alpha = GetPixel(Form1->Image1->Canvas->Handle, X, Y);
int red = alpha[X*3+2];
int green = alpha[X*3+1];
int blue = alpha[X*3];

@RefSol · 26.12.2016, 21:51

ziqp, для начала установите разрешение бит на пиксель, удобнее всего 24 бита

C++

1	currBMP->PixelFormat = pf24bit; // 24 разряда на пиксель

Потом копируйте как Вам уже сообщал в массив, предварительно создав структуру:

C++

#pragma pack (push, 1)
// цветовая палитра и оттенки (для преобразования TColor)
// покомпонентное представление
// в скобках указаны цвета для сучая палитры (RGB)
struct ColorSpace {
  uchar byteLo; // компонента младший байт (Lower)   (R) (Y)
  uchar byteAv; // компонента средний байт (Average) (G) (Cb)
  uchar byteHi; // компонента старший байт (Hight)   (B) (Cr)
};

C++

    // создаём буфер и копируем
    data = new ColorSpace*[currBMP->Height];
    for (int i = 0; i < iHeight; i++) {
      data[i] = new ColorSpace[currBMP->Width];
      memcpy(data[i], picBMP->ScanLine[i], currBMP->Width* sizeof(ColorSpace));
    }

Далее работаем с двумерным массивом дата,например:
data[i][j].byteLo; -- красный цвет пикселя (i,j)

Обратите внимание на выравнивание #pragma pack (push, 1), 3*8 = 24 бита.
(currBMP->PixelFormat = pf24bit; )

@ziqp · 27.12.2016, 15:26 **[ТС]**

Для чего нужен

C++

1	#pragma pack (push, 1)

?
Прочитал, что это устанавливает "размер выравнивания" в 1 байт

Добавлено через 7 часов 15 минут
Пишу:

C++

#pragma pack (push, 1)
// цветовая палитра и оттенки (для преобразования TColor)
// покомпонентное представление
// в скобках указаны цвета для сучая палитры (RGB)
struct ColorSpace {
  uchar byteLo; // компонента младший байт (Lower)   (R) (Y)
  uchar byteAv; // компонента средний байт (Average) (G) (Cb)
  uchar byteHi; // компонента старший байт (Hight)   (B) (Cr)
};

В самое начало после #pragma resource "*.dfm", но выдает ошибку:
[BCC32 Error] Unit1.cpp(16): E2303 Type name expected
Full parser context
Unit1.cpp(15): class ColorSpace

Добавлено через 2 минуты
Изменил uchar на unsigned char и все заработало. Теперь:[BCC32 Error] Unit1.cpp(76): E2451 Undefined symbol 'data'.
Какой тип нужен для него?

Добавлено через 16 минут
Сделал так:

C++

int iHeight = Bitmap->Height;
//data = new ColorSpace*[Bitmap->Height];
ColorSpace *data = new ColorSpace[Bitmap->Height];
    for (int i = 0; i < iHeight; i++) {
      data[i] = new ColorSpace[Bitmap->Width];
      memcpy(data[i], Bitmap->ScanLine[i], Bitmap->Width* sizeof(ColorSpace));
    }

Теперь 2 ошибки:
Где data, там [BCC32 Error] Unit1.cpp(79): E2034 Cannot convert 'ColorSpace *' to 'ColorSpace')
Где memcpy, там [BCC32 Error] Unit1.cpp(80): E2034 Cannot convert 'ColorSpace' to 'void *'
Не могу понять как устранить

@RefSol · 27.12.2016, 15:50

ziqp, ColorSpace **data = new ColorSpace*[Bitmap->Height];

@ziqp · 29.12.2016, 21:41 **[ТС]**

Все, ошибок нет. Написал так:

C++

Bitmap->PixelFormat = pf24bit;
ColorSpace **data = new ColorSpace*[Bitmap->Height];
int iHeight = Bitmap->Height;
for (int i = 0; i < iHeight; i++) {
      data[i] = new ColorSpace[Bitmap->Width];
      memcpy(data[i], Bitmap->ScanLine[i], Bitmap->Width* sizeof(ColorSpace));
    }

Теперь как можно вывести 3 цвета R G и B для, например, Y = 15 и X = 20?

@gumi250 · 04.01.2017, 11:50

Зачем такие сложности?
Вы делаете скриншот. Затем хотите узнать на этом скриншоте цвета нескольких пикселей. Цвета скольки пикселей в секунду вы хотите узнать? Это важный вопрос.
Скриншот делается скажем 1/1000 секунды. Самый простой метод Bmp->Canvas->Pixels [x][y] даст цвет пикселя, скажем за 1Е-5 сек. Если использовать Scanline и пиксели идут подряд, то будет еще раз в 100 быстрее. Это без всяких буферных массивов (которые вам вообще не нужны).

Сделали вы скриншот экрана (код вы писали выше), а далее:

C++

Byte *alpha = (Byte *)Bitmap->ScanLine[Y];
int red = alpha[X*3+2];
int green = alpha[X*3+1];
int blue = alpha[X*3];

@ziqp · 04.01.2017, 18:33 **[ТС]**

Огромное спасибо! Теперь когда те же нагрузки со scanline и Timage были 20%, сократились до 3%!

@ziqp 129 / 65 / 16 Регистрация: 03.09.2015 Сообщений: 832
		1
	Обработка изображения без TImage 26.12.2016, 16:42. Показов 1925. Ответов 10 Метки нет (Все метки) Всем привет. Возможно ли обрабатывать картинку без TImage (он очень сильно замедляет скорость работы)? Под обработкой я имею в виду: Найти пиксель координаты X: 15, Y: 16 и узнать цвет RGB. Это все, что нужно при работе с картинкой. Может есть альтернатива в Graphics::TBitmap *Bitmap=new Graphics::TBitmap вместо переноса на TImage? Если да, увеличит ли это скорость обработки? 0

@Dinkin 737 / 527 / 130 Регистрация: 31.05.2013 Сообщений: 2,975 Записей в блоге: 3
	26.12.2016, 17:10	2
	Поиск пикселей очень прожорливая для ресурсов операция. Сменив TImage на что то другое, врядли Вы получите больше скорости. Смотрите в сторону уточнения координат поиска (типа на 1000 на 1000, а где то может 100 на 100 искать), да и пересмотрите код поиска, нет ли там чего оптимизировать. 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	26.12.2016, 17:30	3
	Сообщение от ziqp Может есть альтернатива в Graphics::TBitmap *Bitmap=new Graphics::TBitmap Может и есть: Manipulating Pixels With Delphi's ScanLine Property, в зависимости от "битности" изображения. Но вряд ли это сильно увеличит скорость. 0

@RefSol 504 / 247 / 75 Регистрация: 31.10.2010 Сообщений: 742
	27.12.2016, 15:50	8
	ziqp, ColorSpace *data = new ColorSpace[Bitmap->Height]; 0

@ziqp 129 / 65 / 16 Регистрация: 03.09.2015 Сообщений: 832
	04.01.2017, 18:33 [ТС]	11
	Огромное спасибо! Теперь когда те же нагрузки со scanline и Timage были 20%, сократились до 3%! 0

Обработка изображения без TImage

Решение