| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Access violation [D7, WinXP]

VasRog ©   (2004-11-27 02:34:00) 

На этапе прогона программы выдает access violation.  Вот небольшой кусок:

type
pRGBTripleArray = ^TRGBTripleArray;
TRGBTripleArray = Array [0..pixelcountmax-1] of  TRGBTriple;
pixelightness = array of array of real;

var
i:integer;
j:integer;
Row24:pRGBTripleArray;
Bitmap24:Tiebitmap;
lightness:pixelightness;
R,G,B: integer;

...................................

if (imageenview1.IEBitmap.PixelFormat = ie24RGB ) then
 begin
 Bitmap24:=Tiebitmap.Create;
 bitmap24.PixelFormat:=ie24rgb;
 bitmap24.Width:=imageenview1.Width;
 bitmap24.height:= imageenview1.height;
 setlength(lightness,bitmap24.Width,bitmap24.Height);

 for j:=0 to (bitmap24.Height-1) do
 begin
 Row24:=bitmap24.ScanLine[j];
 for i:=0 to (bitmap24.Width-1) do
 begin

 R:=  Row24[i].rgbtRed;
 G:=  Row24[i].rgbtGreen;
 B:=  row24[i].rgbtBlue;

 lightness[j,i]:= (R+G+B)/3;
 end;  //  for i

Цепляется имеено к выделенной строчке.  Подскажите, пожалуйста, что не так?

---

VasRog   (2004-11-29 22:59:00) [1]

Большое спасибо.  :)))
Я идиот. :))))

---

XProger   (2004-11-28 04:30:00) [2]

setlength(lightness,bitmap24.Width,bitmap24.Height);
....
for j:=0 to (bitmap24.Height-1) do
...
for i:=0 to (bitmap24.Width-1) do
...
lightness[j,i]:= (R+G+B)/3;

У тебя j бежит по ширине, а i по высоте? ;)))

---

Наверх