Текущий архив: 2003.02.06;
Скачать: CL | DM;
Вниз
Треклятый Access violation Найти похожие ветки
← →
LongIsland (2003-01-27 15:44) [0]При создании формы создается некий TBitmap.
На событие OnDestroy делаю Bitmap.Free и выдается сабж. Кроме того, он стал выдаваться не сразу, а после N-ной перекомпиляции проекта.
Убираю Bitmap.Free - все проходит гладко.
Вопрос: приложение само освобождает ресурсы, связанные с этим Bitmap, если он описан в секции public?
Заранее премного благодарен!
← →
Игорь Шевченко (2003-01-27 15:50) [1]Нет, ты его два раза пытаешься освободить, судя по всему. Впрочем, может и ошибаюсь, телепатические мпособности слабо развиты.
← →
Anatoly Podgoretsky (2003-01-27 15:51) [2]На N-ной перекомпиляции проекта ты внес ошибку
← →
MBo (2003-01-27 15:51) [3]Еще из телепатии - может, ты освобождаешь bitmap, когда он еще используется чем-то?
← →
LongIsland (2003-01-27 15:53) [4]Сначала я тоже так подумал:-) (я не про телепатические способности:-) )
Нет, попытка очистить идет только на OnDestroy. Ощущуние такое, что сначала его освобождаю я, потом приложение само пытается его уничтожить.
← →
LongIsland (2003-01-27 15:55) [5]
> MBo © (27.01.03 15:51)
> Еще из телепатии - может, ты освобождаешь bitmap, когда
> он еще используется чем-то?
На OnDestroy может вызываться OnResize?
> Anatoly Podgoretsky © (27.01.03 15:51)
> На N-ной перекомпиляции проекта ты внес ошибку
Я не менял код, связанный с этим куском
← →
Anatoly Podgoretsky (2003-01-27 16:03) [6]Не обязательно с этим.
← →
Игорь Шевченко (2003-01-27 16:04) [7]LongIsland © (27.01.03 15:55)
Ты покажи кусок-то, Гюльчатай :-)
← →
LongIsland (2003-01-27 16:06) [8]В принципе, сабж я победил, правда пришлось весь подход изменить:(
Всем спасибо!
← →
LongIsland (2003-01-27 16:11) [9]
> Ты покажи кусок-то, Гюльчатай :-)
А там показывать-то нечего:-)
procedure TfmMain.FormCreate(Sender: TObject);
begin
bmpResult:=TBitmap.Create; //Создается
end;
procedure TfmMain.FormResize(Sender: TObject);
begin
bmpResult.Width:=tsPicture.ClientWidth-imgIntervals.Width;
bmpResult.Height:=tsPicture.ClientHeight;
imgResult.Picture.Assign(bmpResult); //Здесь он используется
if not New then
sbInterpolationClick(Sender);
end;
procedure TfmMain.FormDestroy(Sender: TObject);
begin
bmpResult.Free; //Уничтожается
end;
Страницы: 1 вся ветка
Текущий архив: 2003.02.06;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.01 c
