Скачать: CL | DM;

И ещё раз FastDIB :)   Найти похожие ветки 

← →
PenguinX ©   (2004-06-22 12:37) [0]

Привет All!
Почему при выполнении следующего кода вылетает AV и CPU Window c указателем в строчке push esi(я в асме не шарю):
----------
....
procedure TForm1.BitBtn1Click(Sender: TObject);
var b1, b2: TFastDIB;
   X, Y: integer;
   C: TFColor;
   CR: COLORREF;
begin
b1 := TFastDIB.Create;
b2 := TFastDIB.Create;
b1.SetSize(Image1.Width, Image1.Height, 24);
for X := 0 to Image1.Width do
for Y := 0 to Image1.Height do begin
C.b := GetBValue(GetPixel(Image1.Canvas.Handle, X, Y));
C.r := GetrValue(GetPixel(Image1.Canvas.Handle, X, Y));
C.g := GetgValue(GetPixel(Image1.Canvas.Handle, X, Y));
b1.SetPixel(Y, X, c);
end;
Rotate90CW(b1, b2);
for X := 0 to Image1.Width do
for Y := 0 to Image1.Height do begin
C := b2.GetPixel(Y, X);
SetPixel(Image2.Canvas.Handle, X, Y, RGB(C.r, C.g, C.b));
end;
end;
....
--------

Если убрать строчку SetSize b1.SetSize(Image1.Width, Image1.Height, 24), то вылетает другая AV с другим адресом и в модуле FastDIB в теле функции GetPixel высвечивается строка d:=Pixels32[y,x].i. Помогите plz избежать ошибок и написать правильный код.

---

← →
MBo ©   (2004-06-22 12:39) [1]

for X := 0 to Image1.Width-1
и для высоты так же

---

← →
PenguinX ©   (2004-06-22 14:47) [2]

2MBo
Огромное Вам спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c