Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Окт

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

Posted by Chas under Delphi

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);

тема на форуме