Я пытаюсь создать расширение оболочки для предоставления информации EXIF для файлов JPEG в «информационных подсказках» проводника Windows и использую Lazarus, поскольку для этого необходимо создать x64 DLL.
Поддерживает ли Lazarus множественное наследование с интерфейсами, и если да, то как мне это сделать?
например, что-то вроде:
type
IInfoTips = interface(IPersistFile, IQueryInfo)
Спасибо, Марк
Нет, интерфейсы в FPC еще не поддерживают множественное наследование.
Что вы можете сделать, так это позволить классу реализации наследовать оба интерфейса:
type
TMyInfoTips = class(TInterfacedObject, IPersistFile, IQueryInfo)
Но не на уровне интерфейса, как вы хотите. Такие операторы не будут компилироваться:
type
IInfoTips = interface(IPersistFile, IQueryInfo)
Вы можете «наследовать» только от одного типа интерфейса.
Делфи тоже не поддерживает. Это сделал только несуществующий компилятор Delphi для .Net... но поскольку .Net/C# IR поддерживает ( и ожидает) особенность.
Мне также не хватает этой функции в Delphi или FPC.
Оба интерфейса определены в shlobj для Free Pascal/Lazarus, как и в Delphi. Если символы изменялись в единицах измерения во время существования Delphi, мы пытаемся поместить их в более поздние единицы, но в этом случае возникает большое отставание.
Все это должно быть в значительной степени совместимо с Delphi, возможно, будет проще, если вы объясните, что именно не работает так, как ожидалось.
Добавлено после комментариев Арно:
Нет. Объекты реализуют интерфейсы в Паскале. Я вообще не понимаю, почему это действительно важно делать. Конечно, это немного синтаксический сахар, но поскольку любой интерфейс в стиле Delphi реализует Iunknown, вы можете просто запросить интерфейс для другого интерфейса:
uses activex;
var x :IPersistfile;
y :IPersistStream;
begin
x.queryinterface(IID_IPersistStream,y);
end.
