Устранение утечки памяти и ошибок доступа в Delphi: работа с TInterfacedPersistent и IDuplicatable

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

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

Описание проблемы

При использовании определенной логики работы с объектами и интерфейсами вы столкнулись с утечкой памяти и ошибками доступа. Это происходит в контексте использования интерфейса IDuplicatable для достижения абстракции, а не управления памятью, что и является причиной использования TInterfacedPersistent как базового класса. При выполнении действия "duplicat" FastMM4 сообщает о утечке памяти при закрытии программы, и в то же время при изменении функции выполнения действия возникает ошибка доступа.

Контекст

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

Пример кода

unit Unit1;

interface

uses
  // ... (используемые модули)

type
  // ... (определения типов)

  TAbstractBaseDTO = class (TInterfacedPersistent)
  public
    // ... (конструктор и др.)
  end;

  IDuplicatable = interface
  ['{153275DC-71C0-4CB6-B933-667419950C68}']
    function CreateDuplicate: TAbstractBaseDTO;
  end;

  // ... (другие классы и определения)

implementation

{$R *.dfm}

procedure TBaseDataForm.LoadData(ADataObject: TAbstractBaseDTO);
begin
  FDataObject.Free;
  FDataObject := ADataObject;
end;

destructor TBaseDataForm.Destroy;
begin
  FDataObject.Free;
  inherited;
end;

constructor TCountryMasterDataDTO.CreateEmpty;
begin
  Create;
end;

function TCountryMasterDataDTO.CreateDuplicate: TAbstractBaseDTO;
begin
  Result := TCountryMasterDataDTO.Create;
end;

procedure TBaseDataForm.actDuplicateExecute(Sender: TObject);
var
  LAbstractBaseDTO: TAbstractBaseDTO;
  LAbstractBaseDTODuplicate: TAbstractBaseDTO;
  LDuplicatable: IDuplicatable;
begin
  LAbstractBaseDTO := FetchBusinessObject;
  try
    // Сохраняем ссылку на интерфейс в переменную
    LDuplicatable := LAbstractBaseDTO as IDuplicatable;
    LAbstractBaseDTODuplicate := LDuplicatable.CreateDuplicate;
    LoadData(LAbstractBaseDTODuplicate);
  finally
    // Освобождаем интерфейсную ссылку
    LDuplicatable := nil;
    // Освобождаем объект
    LAbstractBaseDTO.Free;
  end;
end;

function TBaseDataForm.FetchBusinessObject: TAbstractBaseDTO;
begin
  Result := TCountryMasterDataDTO.Create;
end;

end.

Подтвержденный ответ

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

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

Альтернативный ответ

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

Рекомендации

• Используйте TInterfacedObject вместо TInterfacedPersistent, если хотите, чтобы Delphi управлял памятью через интерфейсы.
• Проверьте, действительно ли вам нужен интерфейс IDuplicatable для абстракции, и возможно, стоит рассмотреть возможность реализации виртуальной функции CreateDuplicate непосредственно в базовом классе.
• Убедитесь, что после выполнения операций, требующих создания новых объектов, вы освобождаете ссылки на старые объекты и правильно инициализируете новые.

Заключение

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

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

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

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

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

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