Показать сообщение отдельно
  #13  
Старый 15.11.2011, 10:45
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

1000*750*3=2250000 (ширина, высота, 3 байта значений R, G, B цвета пикселя)
пример включает в себя создание Bitmap, загрузку в него изображения, получение свойств и получение массива байт.
можно упростить до 4-х строк:
Код:
ADC:=CreateCompatibleDC(0);
SetLength(lpvBits, 2250000);
GetDIBits(ADC, ABitmap.Handle, 0, 750, lpvBits, ABitmapInfo, DIB_RGB_COLORS);
// lpvBits: array [0..ABitmapInfo.bmiHeader.biSizeImage-1] of R, G, B; - условно
DeleteDC(ADC);
ABitmapInfo тоже руками.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием