| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

RefInc / RefDec - пора разобраться [Delphi, KOL]

Vladimir Kladov ©   (2006-01-16 21:14:00) 

Вопрос такой: кто-нибудь активно сабжи юзает? А то я думаю, пора разобраться и переделать немного. Типа так: RefInc N раз дополнительно после создания, и тогда Free надо будет сделать N+1 раз, чтобы окончательно уничтожился. Могу на всякий случай оставить {$IFDEF OLD_REFCOUNT} старый код {$ELSE} новый код {$ENDIF}. Если есть желающие.

---

homm   (2006-01-19 20:32:00) [1]

>  obj.RefInc; obj.Free; - сразу.
Дак по-моему так и есть, напрмер в строке
GRushControl.All_GlyphBitmap := NewBitmap(W, H); // obj.RefInc - сразу
а после того, как пользователь сделал какие либо действия, например такие:
GRushControl.All_GlyphBitmap.LoadFromFile;
AnotherGrushControl.All_GlyphBitmap := GrushControl.All_GlyphBitmap;
он долженосвободить созданый битмап:
GRushControl.All_GlyphBitmap.Free; //obj.Free - когда работа закончена
При этом реальное уничтожение битмапа заблокировано до момнета, когда ни один контрол больше не будет в нем нуждатся.

ЗЫ Зато обнаружил другую мою ошибку - если GRushControl.All_GlyphBitmap := nil; то сразу AV т.к. nil.RefInc; Исправлюсь ;)

---

Vladimir Kladov   (2006-01-19 19:42:00) [2]

Оно у вас не ломается, но и не делает Destroy, когда RefDec < 0, проверьте, память должна течь. Чтобы не текло, при прежнем коде следовало бы после создания объекта сделать:
 obj.RefInc; obj.Free; - сразу. В новом варианте как раз все должно работать правильнее.

---

homm   (2006-01-19 16:09:00) [3]

А в чем смысл перемен? Забыли упомянуть, что отказываетесть от RefDec в [0], или я что-то не уловил?

---

homm   (2006-01-19 16:08:00) [4]

А в чем смысл перемен? Забыли упомянуть, что отказываетесть от RefDec в [0], или я что-то не уловил?

---

homm   (2006-01-19 15:59:00) [5]

У меня в GRush юзается так:
procedure TGRushControl.SetAll_GlyphBitmap;
var     Data: PGRushData;
begin
   Data := PGRushData(CustomObj);
   if Data.fGlyphBitmap <> nil then
       Data.fGlyphBitmap. RefDec;
   Data.fGlyphBitmap := Val;
   Val. RefInc;
end;

destructor TGRushData.Destroy;
begin
   if fGlyphBitmap <> nil then
       fGlyphBitmap. RefDec;
end;
Free вызывает пользователь, когда битмап ему больше не нужен. Ничего не сломается?

---

Vladimir Kladov   (2006-01-17 20:39:00) [6]

Ничего не должно сломаться (и даже при более кортком коде), но я на всякий случай оставлю старую версию по OLD_REFCOUNT.

---

Thaddy   (2006-01-16 21:53:00) [7]

I use it in several ways:

1. In threads to guard an object against destruction before another thread that depends on its data has finished. Mainly in communications (lots of threads! one GUI)
2. Wouldn't it break the KolComObj.pas and similar code?
3. Not important, but the Garbage collection code I translated to KOL depends on it.

Apart from 2. nothing is really important, because I know other means exist, but it means breaking a lot of my code (most not published).
Maybe some more {$DEFINE XXX} as you suggest?

---

Наверх