[fen1ks]

В общем есть картинка bmp формата, нужно разбить эту картинку на RGB и загнать в массив (скорее всего 3 мерный где каждый элемент это r,g,b соответсвенно) для дальнейшей работы с изображением через массив.
Дело в том что как работать с черно-белым понимаю, а как цветное на RGB разбить немного не понимаю, подскажите

[NumLock]

к сожалению не могу представить бмп в виде 3-х мерного массива. а вот pixels[x,y] вполне даже

[fen1ks]

мне нужен именно rgb для дальнейшей работы

[vya]

структура BMP http://ru.wikipedia.org/wiki/BMP
bfOffBits - смещение до массива с изображением.
Размер массива:= рbfSize - bfOffBits

Если картинка 32 битная, то каждая ячейка массива картинки будет равна BGRZ (Z используется редко) каждое значение размером в 1 байт (итого 4).

[lmikle]

Берем пример использования ScanLine и внимательно изучаем.

[fen1ks]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

CONST   PixelCountMax = 32768;   TYPE   pRGBArray = ^TRGBArray;   TRGBArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;   ...   var   Form1: TForm1;   OriginalBitmap:TBitmap;   ProcessedBitmap:TBitmap;   i,j:integer;   RowOriginal:pRGBArray;   RowProcessed:pRGBArray;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

procedure CreateBMP; begin if OriginalBitmap.PixelFormat <> pf24bit then   begin     ShowMessage('Изображение должно быть 24-х битным');     Exit;   end;   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     RowProcessed[i].rgbtRed:=RowOriginal[i].rgbtRed;     RowProcessed[i].rgbtGreen:=RowOriginal[i].rgbtGreen;     RowProcessed[i].rgbtBlue:=RowOriginal[i].rgbtBlue;   end; end; end;   procedure TForm1.Button1Click(Sender: TObject); begin   OriginalBitmap.LoadFromFile('a.bmp');   createbmp; end;   procedure TForm1.FormCreate(Sender: TObject); begin    OriginalBitmap:=TBitmap.Create; end;

изображение a.bmp 800x600, программа выдает ошибку, подскажите

[lmikle]

На какой строке и какую (точно) ошибку?
Или ты думаешь, что здесь телепаты сидят?

[fen1ks]

Проект запускается, при нажатии Button1 вылазиет сообщение

http://ipicture.ru/uploads/100914/U6eT6L4Wzt.jpg

Access violation at address 00424BCC in module 'Project1.exe'. Read of address 00000028.

http://ipicture.ru/uploads/100914/5sNd55jVIM.jpg

[lmikle]

Ну, вообще, такая ошибка характерна для обращения к неинициализированному учаску памяти. Или заблокированному...

Что-то я не вижу в твоем коде создание ProcessedBitmap и выставления его размеров...

[fen1ks]

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

Что-то я не вижу в твоем коде создание ProcessedBitmap и выставления его размеров...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); begin   OriginalBitmap.LoadFromFile('0003.bmp');   ProcessedBitmap.width:=800;   ProcessedBitmap.height:=600;   createbmp; end;   procedure TForm1.FormCreate(Sender: TObject); begin    OriginalBitmap:=TBitmap.Create;    ProcessedBitmap:=TBitmap.Create;   end;

если вот так, то по нажатию на кнопку ничего не происходит и выдает
Process is not accessible
Thread Exit: Thread ID: 3852. Process Project1.exe (3536)

вот юнит с картинкой
http://www.megaupload.com/?d=XX55QNQD