Объекты Delphi, объекты NIL и интерфейсы

Question

Я ищу подсказки о том, как отладить сбой в приложении, использующем обертку MS XML в Delphi VCL. Я подозреваю, что повреждение памяти или какое-то неясное зло происходит между объектами и интерфейсами, такими как ошибки подсчета ссылок или повреждение кучи. Вопрос в том, что: как мне отлаживать такой крах?

Этот конкретный код делает интенсивное внутреннее использование и распространяется на базовые интерфейсы XmlIntf (IXMLNode). ISomethingCustom - это интерфейс, расширяющий IXMLNode. Проблема возникает там, где мы сбой где-то в рекурсивной функции, которая передается ISomethingCustom, которая также (или поддерживает также в терминах интерфейса) IXMLNode.

boolean UtilityFunction(aNode: ISomethingCustom):Boolean; 
    begin 
     if not Assigned(aNode) then exit; // this works. great. 
     if not Assigned(aNode.ParentNode) then exit; // this DOES NOT WORK. 
    // code that blows up if aNode.ParentNode is not assigned. 
    end; 

Ситуация такова, что Анод также IXMLNode и значение IXMLNode.ParentNode назначается (не ноль), и все же он указывает на COM-объект, который может быть освобожден, уничтоженного или испорченного каким-то образом. Я пытаюсь выяснить, что происходит, когда указатель интерфейса может оказаться действительным, но объект позади него каким-то образом укутан.

Проверка Assigned (aNode.ParentNode) возвращает TRUE, даже когда, если вы должны были попытаться бросок в отладчике (во время выполнения только, а не в коде), как это:

1. осмотр/оценить анодные
2. инспектировать/оценить TInterfacedObject (анод) .ClassName (работает в Delphi 2010, по крайней мере!)
3. бросить теперь TWhateverClassNameYouGotBefore (анод).
4. В отладчике теперь я вижу, что это NIL. Который может означать, что волшебный «интерфейс литья назад к функция объекта, которая является новой в delphi 2010, терпит неудачу.

Я считаю, что пытаюсь отладить проблему, когда кучи повреждены, или COM-объекты повреждены в куче из-за проблемы подсчета ссылок.

Я действительно думаю, что когда-нибудь возникнет ситуация, когда интерфейс окажется действительным, но объект под ним был удален. Я действительно хотел бы знать, что делать, и что происходит.

Answer 1

Хотя вы не показали его в код, ваш комментарии показывают, что вы вводите тип переменной интерфейса в тип класса. Это не разрешено. Я описал, почему:

• Why can’t I cast an interface reference to an object reference?

ссылки интерфейса и объект ссылки не указывают на те же вещи. Поэтому вызов метода на один, когда компилятор считает, что у вас есть другой, даст неожиданные результаты. Вам не повезло, потому что код продолжал работать вместо сбоя с нарушением прав доступа, что было бы большим показателем того, что вы делаете что-то неправильно.

В приведенной выше статье предлагается использовать функцию JclSysUtils​.GetImplementorOfInterface из JCL, если у вас есть интерфейс, реализованный в Delphi, и интерфейс не предлагает никакой функции для выявления базового объекта.

Answer 2

Wild догадка: Вы пробовали поставить aNode.ParentNode в локальной переменной и использовать его в остальной части Utilityfunction:

function UtilityFunction(aNode: ISomethingCustom): Boolean; 
    var 
    lParentNode: INode; 
    begin 
     if not Assigned(aNode) then exit; // this works. great. 
     lParentNode := aNode.ParentNode; 
     if not Assigned(lParentNode) then exit; 
    // code that uses lParentNode. 
    end; 

Answer 3

Мое предложение состоит в том, чтобы убедиться, что функция ParentNode действительно вызывается в Assigned(aNode.ParentNode). В Delphi есть некоторые неприятные угловые случаи, когда процедура/функция без аргументов не вызвана, а скорее ссылается на нее, когда вы опускаете скобки.

Попробуйте изменить его на Assigned(Anode.ParentNode()) (что должно иметь тот же эффект, что и предложение Франсуа).