Статическая и динамическая загрузка класса из библиотеки

[moon-guest]

Всем здрасте)))

Возникла потребность реализации набора библиотек с одинаковым интерфейсом но разным родам работы.
Для этих целей бал реализован интерфейс по нему был создан класс и был внесён в библиотеку.

type
 IMyInterface = Interface(IUnknown)
    ['{48673D2F-F3B1-47F1-97E7-A3D1D8837A07}']
    function GetNameProtocol: PChar;
    function GetVersionProtocol: Integer;
    .....
    property NameProtocol: PChar read GetNameProtocol;
    property VersionProtocol: Integer read GetVersionProtocol;
    .....
  end;

TMyClass = class(TInterfacedObject, MyInterface)
  private
    function GetNameProtocol: PChar;
    function GetVersionProtocol: Integer;
  public
    constructor Create;
    property NameProtocol: PChar read GetNameProtocol;
    property VersionProtocol: Integer read GetVersionProtocol;
  end;

Функция объявления класса из библиотеки:

function MyInterfaceClass: IMyInterface; stdcall;
begin
  Result := TMyClass.Create;
end;

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

type
   function MyInterfaceClass: IMyInterface; stdcall; external 'mydll.dll';
var
   nObj: IMyInterface;
....
   nObj:= MyInterfaceClass;
   caption:=nObj.NameProtocol;

все протекает стабильно, но при переводе программы на динамический режим работы

var
   LibHandle: Integer;
   Init: function: IMyInterface; stdcall;
.....
   LibHandle:=LoadLibrary(PChar('mydll.dll'));
  @Init := GetProcAddress(LibHandle, 'MyInterfaceClass');
  showmessage(Init.NameProtocol);
  FreeLibrary(LibHandle);

она выдает ошибку:

 Project Project1.exe raised exception class EAccessViolation with message
 'Access violation at address 0040545A in module'Project1.exe'. Raise of address 010C07F8'. 
Process stopped. Use Step or Run tocontinue.

[Slym]

function MyInterfaceClass: IMyInterface; stdcall;
begin
  Result := TMyClass.Create as IMyInterface;
end;

property NameProtocol: PChar read GetNameProtocol; - плохой вариант
возможна ссылка на константу в dll и при выгрузке она засрется...

[spamer]

В Delphi для передачи строк из/в dll стоит использовать тип WideString: подробнее тут.

[Vapaamies]

Сообщение от moon-guest

  FreeLibrary(LibHandle);

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

[moon-guest]

Решение нашлось добавлением "as IMyInterface" и использование "FreeLibrary(LibHandle)" только после проверки на присутствие загруженной библиотеки. Но это не решало проблему с внесением данных в переменные класса. Решение нашлось после присвоения загруженной функции переменной типа интерфейса.

В библиотеке

type
   IMyInterface = Interface(IUnknown)
    ['{48673D2F-F3B1-47F1-97E7-A3D1D8837A07}']
    ......
    procedure SetData(value: variant);
    property Data: variant write SetData;
  end;

  TMyClass = class(TInterfacedObject, MyInterface)
  private
    FData: Variant;
    ......
    procedure SetData(value: variant);
  public
    ......
    property Data: variant read FData write SetData;
  end;

В исполняемом файле

var
   nObj: IMyInterface;
.....
  if LibHandle >= 0 then FreeLibrary(LibHandle);
  LibHandle:=LoadLibrary(PChar('mydll.dll'));
  @Init := GetProcAddress(LibHandle, 'MyInterfaceClass');
  nObj:=Init;
  nObj.Data:='Big World!';
  showmessage(nObj.Data);

Решение нашлось в DelphiWorld при реализации модели объектных компонентов.