Треклятый 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]

Не обязательно с этим.

В принципе, сабж я победил, правда пришлось весь подход изменить:(
Всем спасибо!

> Ты покажи кусок-то, Гюльчатай :-)

А там показывать-то нечего:-)

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;

Треклятый Access violation Найти похожие ветки