Одна и та же ошибка всегда!

← →
CMOS © (2005-12-20 21:13) [0]

Ошибка "Project raised exception class EAccessViolation with message "Access violation at address DF7B9A6 in module "KERNEK32.DLL". Write of address 006BF55E". Process stopped. Use Step or Run to continue.
Эта ошибка вегда происходит, когда нет ошибок в коде и идет работа с динамическими переменными.

Var b: Array of TBitmap;
bMax: Word = 0;

procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(bMax); SetLength(b, bMax);
b[bMax-1]:= TBitmap.Create;
b[bMax-1]:= Image1.Picture.Bitmap;
Label1.Caption:= IntToStr(bMax);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Image2.Picture.Bitmap:= b[bMax-1];
b[bMax-1].Free;
Dec(bMax); SetLength(b, bMax);
Label1.Caption:= IntToStr(bMax);
end;

Если закомментировать чтение и запись в Image, ошибка возникать не будет.
Image1 содержит картинку, хотя разницы нет, ИМХО.

← →
begin...end © (2005-12-20 21:37) [1]

> CMOS © (20.12.05 21:13)

> b[bMax-1]:= TBitmap.Create;
> b[bMax-1]:= Image1.Picture.Bitmap;

Не понял.

← →
kami © (2005-12-20 21:42) [2]

Подозреваю, что AV выскакивает на второй кнопке, даже могу сказать, почему:
Image2.Picture.Bitmap:= b[bMax-1];// присвоили битмапу Image-а экземпляр компонента из массива // после выхода из процедуры Image попробует перерисоваться b[bMax-1].Free;// и тут же освободили его !!! Результат : свойство Bitmap Image-а ссылается на экземпляр //класса TBitmap, который уже освобожден, но ссылка на него не обнулена //как результат - после выхода из процедуры при перерисовке Image2 происходит обращение к //свойствам свойства :) Bitmap, который уже не существует. Как результат - AV Вывод - пользоваться либо FreeAndNil, либо использовать такой замечательный метод, как Assign : procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Image1.Picture.LoadFromFile(OpenDialog1.FileName); Inc(bMax); SetLength(b, bMax); b[bMax-1]:= TBitmap.Create; b[bMax-1].Assign(Image1.Picture.Bitmap); Label1.Caption:= IntToStr(bMax); end; procedure TForm1.Button2Click(Sender: TObject); begin Image2.Picture.Bitmap.Assign(b[bMax-1]); FreeAndNil(b[bMax-1]); Dec(bMax); SetLength(b, bMax); Label1.Caption:= IntToStr(bMax); end;

← →
kami © (2005-12-20 21:46) [3]

Ну, и, естественно, см begin...end © (20.12.05 21:37) [1], потому что у тебя идут наивеликолепнейшие утечки памяти (создан экземпляр класса TBitmap, затем туда же записано значение Image1.Picture.Bitmap. Результат - ссылка на созданный экземпляр TBitmap похе...в смысле, потеряна, но держится в памяти).

Уже сам понял. Вот так никакой ошибки.
Вроде в памяти мусор не остается (проверте).

procedure TForm1.Button1Click(Sender: TObject);
var buf: TMemoryStream;
begin
buf:= TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(buf);
Inc(bMax); SetLength(b, bMax);
b[bMax-1]:= TBitmap.Create;
buf.Seek(0,soFromBeginning);
b[bMax-1].LoadFromStream(buf);
Label1.Caption:= IntToStr(bMax);
buf.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var buf: TMemoryStream;
begin
buf:= TMemoryStream.Create;
b[bMax-1].SaveToStream(buf);
buf.Seek(0,soFromBeginning);
Image2.Picture.Bitmap.LoadToStream(buf);
b[bMax-1].Free;
Dec(bMax); SetLength(b, bMax);
Label1.Caption:= IntToStr(bMax);
buf.Free;
end;

Одна и та же ошибка всегда! Найти похожие ветки