Задачка №13

В чём проблема в этом коде?

Мне прислали задачку как раз очень в тему моей серии статей про плагины.

Предположим, что у нас есть такой класс:

TPlugin = record
  Handle: HMODULE;
  Plugin: IPlugin;
end;

TPluginManager = class(TInterfacedObject, IPluginManager)
private
  FItems: array of TPlugin;
  ...
protected
  function GetItem(const AIndex: Integer): IPlugin;
  function GetCount: Integer;
  ...
public
  ...
  property Items[const AIndex: Integer]: IPlugin read GetItem; default;
  property Count: Integer read GetCount; 
  ...
  procedure UnloadAll;
  ...
end;

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

И предположим, что метод UnloadAll выглядит так:

procedure TPluginManager.UnloadAll;
var
  i: Integer;
begin
  // Вызываем Done, чтобы плагины корректно финализировались
  for i := 0 to Count - 1 do
    Items[i].Done;

  // Чистим записи
  for i := 0 to Count - 1 do
  begin
    FItems[i].Plugin := nil;
    FreeLibrary(FItems[i].Handle);
  end;

  Finalize(FItems);
end;

Сначала мы вызываем функцию финализации плагинов Done (например, чтобы плагины отпустили бы ссылки), а затем выгружаем плагины. При этом мы сначала отпускаем ссылку на плагин, а затем выгружаем библиотеку. Это сделано, чтобы плагин уничтожился бы до выгрузки своей библиотеки, а не после, избегая, таким образом, вылета программы при попытке доступа к уже выгруженному плагину.

Тем не менее, в этом коде есть ошибка, которая приводит к Access Violation во время выгрузки плагинов. Не могли бы вы указать на неё?

Дополнительно: как бы вы исправили её и как бы диагностировали?

Ответ.