Нужно BMP-изображение загнать в массив для дальнейшей работы с ним
получился вот такой код, только никак не могу найти ошибку, подскажите

[CODE]unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;

CONST
 PixelCountMax = 32768;

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

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 OriginalBitmap:TBitmap;
 ProcessedBitmap:TBitmap;
 i,j:integer;
 RowOriginal:pRGBArray;
 RowProcessed:pRGBArray;

implementation

{$R *.dfm}

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;
Form1.Canvas.Pixels[i,j]:=(RowProcessed[i].rgbtRed shl 16)+
(RowProcessed[i].rgbtGreen shl 8) +
RowProcessed[i].rgbtBlue;
end;

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;[/CODE]

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

вот юнит с BMP - изображением
http://www.megaupload.com/?d=XX55QNQD

> только никак не могу найти ошибку, подскажите

Ворнинги читать потомучто ленишся:
[DCC Warning] Unit1.pas(47): W1019 For loop control variable must be simple local variable
[DCC Warning] Unit1.pas(52): W1019 For loop control variable must be simple local variable

а вот так работает:



только совет - так программировать нельзя

спасибо, что именно нельзя?

Весь код плохой, от глобальных переменных до мемлика, неверного использования канвы, отсутствия закладки на размеры оригинального битмапа, неверную работу с цветом

понял, это просто черновой вариант

еще вопрос: мне нужен массив допустим s[i,j]=(RowProcessed[i].rgbtBlue shl 16)+ (RowProcessed[i].rgbtGreen shl 8)+RowProcessed[i].rgbtRed;

каким типом его описать?

> каким типом его описать?

s: array of array of Byte, вестимо.
хотя это и не идеальный вариант с точки зрения производительности.
правильнее было бы сделать с помощью ссылки на array [0..0] of Byte, и потом копировать не поэлементно, а с помощью, скажем, GetDIBits.

Если описываю
, на строке


выдает такую ошибку
[Pascal Error] Unit1.pas(61): E1012 Constant expression violates subrange bounds


> правильнее было бы сделать с помощью ссылки на array [0.
> .0] of Byte, и потом копировать не поэлементно, а с помощью,
>  скажем, GetDIBits.


можно пример использования GetDIBits в моем случае

> еще вопрос: мне нужен массив допустим s[i,j]=(RowProcessed[i].
> rgbtBlue shl 16)+ (RowProcessed[i].rgbtGreen shl 8)+RowProcessed[i].
> rgbtRed;
>
> каким типом его описать?

TRGBTriple как он и был изначально при 24 битах :)
Т.е.
var
 Data: array of TRGBTriple;

понимаю что что то глупое спрашиваю, но если
var
s: array of TRGBTriple;

то

s[i,j]=(RowProcessed[i].rgbtBlue shl 16)+ (RowProcessed[i].rgbtGreen shl 8)+RowProcessed[i].rgbtRed;

та же ошибка...

так естественно, TRGBTriple это структура, и работать с нужно с ее полями

с чем именно не подскажите?

каждый байт цвета изначально отображен в банной структуре, соответственно открой ее описание и работай с полями самой структуры а не через микс цвета через SHL

спасибо, буду разбираться

При попытке записи в массив, выдает ошибку. Если смотреть в отладчике на значения в этом массиве, то пишет  Inaccessible value. Как это победить?

> PixelArr

где установка длинны массива? где try excepr?
ps пока, код не ё.

> num:=num+1;

inc(num)

> QP := TQuickPixels.Create;

где уничтожение?

в общем, пока брр, а не код

> excepr?

except конечно

> где установка длинны массива?

SetLength

понятно что брр, я делфи вижу третий день в жизни, можно поподробней? )

с какой целью тут exept не понял. И еще а есть тут что нибудь, чтобы автоматов выровнять текст кода нормально?

> QP.Destroy;

QP.free
почитай почему не destroy напрямую