Интерфейсы В Dll Delphi

Интерфейсы в DLL Delphi являются ключевым механизмом для получения доступа к функциям экспортированным из динамически загружаемых библиотек.

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

Пример кода интерфейса:

  IMyInterface = interface    ['{C0E4AF84-8EF2-4E14-AD47-6B1ECEE012A1}']    function MyFunction(const Value: Integer): Integer;    procedure MyProcedure(const Value: Integer);    function GetMyProperty: Integer;    procedure SetMyProperty(const Value: Integer);    property MyProperty: Integer read GetMyProperty write SetMyProperty;  end;

Для использования интерфейса в приложении необходимо загрузить DLL и получить указатель на интерфейсный объект.

Пример кода загрузки DLL и получения интерфейсного объекта:

  var    MyDLLHandle: HMODULE;    MyInterface: IMyInterface;  begin    MyDLLHandle := LoadLibrary('MyDLL.dll');    if MyDLLHandle <> 0 then    begin      try        MyInterface := IMyInterface(GetProcAddress(MyDLLHandle, 'MyFunction'));        if Assigned(MyInterface) then        begin          MyInterface.MyProcedure(123);        end;      finally        FreeLibrary(MyDLLHandle);      end;    end;  end;