Форум: "Основная";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];

Вниз

Треклятый 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.011 c