VPF::Bitmap.PixelFormat:=pf24bit; - Форум программистов

Alex

Дата 11.11.2004, 23:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162

Для pf24bit-изображений необходимо определить:

Код


CONST 
PixelCountMax = 32768; 

TYPE 
pRGBArray = ^TRGBArray; 
TRGBArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;

Примечание: TRGBTriple определен в модуле Windows.PAS.

Для того, чтобы к существующему 24-битному изображению иметь доступ как к изображению, созданному с разрешением 3 байта на пиксел, сделайте следующее:

Код


... 
VAR 
 i           :  INTEGER;  
 
 j           :  INTEGER;  
 
 RowOriginal :  pRGBArray;  
 
 RowProcessed:  pRGBArray;  
 
  
BEGIN 
 IF   OriginalBitmap.PixelFormat <> pf24bit THEN   
 
  
 RAISE EImageProcessingError.Create('GetImageSpace:  ' +  
 
  
 'Изображение должно быть 24-х битным.');  
 
  
 {Шаг через каждую строчку изображения.}  
 
 FOR j := OriginalBitmap.Height-1 DOWNTO 0 DO  
 
  
 BEGIN  
 
  
 RowOriginal  := pRGBArray(OriginalBitmap.Scanline[j]);  
 
 RowProcessed := pRGBArray(ProcessedBitmap.Scanline[j]);  
 
 FOR i := OriginalBitmap.Width-1 DOWNTO 0 DO  
 
  
 BEGIN  
 
  
 //           Доступ к RGB-цветам отдельных пикселей должен осуществляться следующим образом:  
 
 //           RowProcessed[i].rgbtRed     := RowOriginal[i].rgbtRed;  
 
 //           RowProcessed[i].rgbtGreen   := RowOriginal[i].rgbtGreen;  
 
 //           RowProcessed[i].rgbtBlue    := RowOriginal[i].rgbtBlue;  
 
  
 END  
 
  
 END  
 
  
END 
...

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

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