Управление жизненным циклом интерфейсных объектов в Delphi: избегание ошибок доступа после уничтожения формы

Delphi , Программа и Интерфейс , Интерфейс

Управление жизненным циклом интерфейсных объектов в Delphi

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

Проблема

Рассмотрим ситуацию, когда у нас есть форма TForm, предоставляющая функциональность через интерфейс, на который другие части кода получают ссылки через свойство формы. Делегировать функциональность интерфейса дочернему объекту не представляется возможным, так как большая часть функциональности обслуживается компонентами на форме. Использование TAggregatedObject или TContainedObject для связи жизненного цикла интерфейсных объектов с формой невозможно, так как TForm не наследует TInterfacedObject, а Delphi не поддерживает множественное наследование. Это может привести к нарушениям доступа, если форма будет уничтожена, пока другие части кода держат ссылки на интерфейсы, предоставляемые формой.

Подтвержденное решение

Возможное решение заключается в делегировании интерфейса дочернему объекту, который будет содержать внутреннюю ссылку на форму для доступа к её компонентам при необходимости. Также можно использовать TAggregatedObject или TContainedObject, передавая форму (как TComponent descendant) в качестве требуемой ссылки на интерфейс, без необходимости наследования от TInterfacedObject.

Альтернативное решение

Ещё один способ избежать проблем с неактивными ссылками при закрытии формы — использование уведомлений о свободе (FreeNotification). Можно запросить интерфейс IInterfaceComponentReference от формы, вызвать метод GetComponent на этом интерфейсе и прикрепить себя к уведомлению о свободе возвращенного компонента/формы. При уничтожении формы будет вызван метод Notification, который позволяет ниловать интерфейсные ссылки.

TSomeConsumer = class(TComponent)
private
  FInterfaceToAService: ISomeInterface;
protected
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
  procedure SetService(const Value: ISomeInterface);
end;

procedure TSomeConsumer.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;
  if (Operation = opRemove) and (AComponent = TObject(FInterfaceToAService)) then
    SetService(nil);
end;

procedure TSomeConsumer.SetService(const Value: ISomeInterface);
var
  comRef: IInterfaceComponentReference;
begin
  if Supports(FInterfaceToAService, IInterfaceComponentReference, comRef) then
    comRef.GetComponent.RemoveFreeNotification(self);

  FInterfaceToAService := Value;

  if Supports(FInterfaceToAService, IInterfaceComponentReference, comRef) then
    comRef.GetComponent.FreeNotification(self);
end;

Заключение

При работе с интерфейсными объектами важно тщательно контролировать их жизненный цикл, особенно когда эти объекты зависят от существования формы. Использование TAggregatedObject, TContainedObject или уведомлений о свободе может помочь избежать ошибок доступа после уничтожения формы. Необходимо также учитывать, что ссылки на интерфейсы и объекты не должны быть равны, чтобы избежать нежелательных побочных эффектов, таких как неактивные уведомления о свободе.

Создано по материалам из источника по ссылке.

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Интерфейс ::