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

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

Как корректно проверить наличие объекта в памяти? [D6, Win2k]

Aleksandr ©   (2002-03-26 16:47:00) 

Ну достало то, что Assigned не проверяет реальное наличие объекта... Просто у меня в основном работа по переделке старых программ, в которых FreeAndNil и не пахнет, а вычищать все места, где было освобождение - замучаешься... Пытался сделать нечто вроде:

function InMemory(var P) : boolean;
begin
try
if (Pointer(P)<>nil) AND (TObject(P).ClassName<>"") then
Result:=true
else
Result:=false
except
on E:Exception do
Result:=false
end
end;

То есть просто пытался обратиться к свойству объекта... Оказалось, хрен-то там, конструкция типа TObject(P).ClassName никакого эксепшена не генерирует, хотя объект уничтожен. Как можно истчо обратиться к общему для всех объектов свойству, чтобы в случае его отсутствия произошла ошибка и функция сработала?

---

vuk   (2002-03-26 20:05:00) [1]

В принципе, если приложить усилия и перекомпилировать модуль system, то кое что можно узнать. Там есть две интересные функции, которые по-умолчанию отключены директивами компилятора, поскольку предназначены только для отладки.

function GetHeapBlocks: THeapBlockArray;
function FindObjects(AClass: TClass; FindDerived: Boolean): TObjectArray;

Одна из них дает доступ к блокам памяти в куче, а другая возвращает массив всех доступных экземпляров определенного класса в приложении.

---

yaJohn   (2002-03-26 19:18:00) [2]

Неправильное решение. Вообще говоря результат непредсказуем. Чаще всего - действительно экзепшн.
Обьекты - стандартные или свои? Если свои... Можно попробовать так:

type
TMyBaseObject = class
public
constructor Create;
destructor Destroy; override;
end;
var
GlobalList: TList;

.....Create;
inherited;
GlobalList.Add(self);
end;

.......Destroy;
GlobalList.Remove(self);
inherited;
end;

begin
GlobalList:=TList.Create;
end;

Теперь мелочи. Заставить все свои обьекты наследоваться от TMyBaseObject

---

Aleksandr   (2002-03-26 18:40:00) [3]

вообще, с Controls и Components для общего случая - очень неплохо...
Но ведь в коде программы при обращении к проперти уничтоженного объекта генерируется исключение! Даже при отладке на наведение курсора к убитой проперти Дельфя генерирует эксепшн... Вот я и попытался сделать проверяльщик по тому же принципу: есть эксепт - нет объекта...

---

Digitman   (2002-03-26 18:17:00) [4]

imho, даже ассемблер здесь никак не поможет.
Никаких гарантированных способов определения, существует ли объект по факту, нет. Ответственность за управлением временем жизни объекта целиком и полностью лежит на программере.

---

oomneeq   (2002-03-26 18:14:00) [5]

Частично решается, если подозреваемый на недействительность обЪект учитывается в к-л глобальных списках
Например,
для TForm это Screen.Forms
туда же-
Components
Controls

тогда можно пробегаться по списку и глядеть, если нет такого в списке, значит недействителен, хоть и не nil.

---

Aleksandr   (2002-03-26 17:45:00) [6]

Все равно не получается, млин... Кто-нить помнит из ассемблера что-нить по этому поводу?

---

DieHard   (2002-03-26 16:59:00) [7]

ClassName - функция класса
Попробуй вызвать например ClassType

---

Наверх