Интерфейсы виртуальной библиотеки для Delphi/Win32?

Это кажется мне как три ответа, до сих пор полностью упустили суть Вашего вопроса. Это, или я имею. Вы спрашиваете, почему Delphi Win32 не имеет чего-то как волшебное Supports функция, что статья Hallvard говорит о, не так ли? А именно, функция, которая, данный название DLL и информацию о типе интерфейса, возвращает объект, который реализует тот интерфейс с помощью автономных функций, экспортируемых из DLL.

Гидра, кажется, все о вызове кода .NET из программы Win32, не об импорте функций от DLL. TJvPluginManager требует, чтобы сменные DLLs экспортировали специальную саморегистрационную функцию, которую вызовет менеджер, когда она загрузит DLL, и функция должна возвратить экземпляр TJvPlugin класс, таким образом, сменный DLL должен быть записан в Разработчике C++ или Delphi. Supports функция, с другой стороны, работает с любым DLL, записанным на любом языке. Вы могли использовать его на kernel32, если бы Вы хотели.

Я не знаю, почему Delphi Win32 не имеет такой вещи. Возможно, CodeGear не видела большого спроса на него начиная с Delphi, и Turbo Pascal уже пошел так долго без него.

Конечно, возможно записать функцию, которая работает как этот, и я не ожидаю, что это было бы немного тяжелее для записи, чем версия .NET, должно быть, была, если библиотеки .NET Microsoft уже не обеспечивают большинство частей, и Delphi просто оборачивает их в удобную для вызова функцию, которая похожа на несколько других перегруженных версий Supports тот Delphi имел в течение многих лет.

Было бы несколько шагов к реализации той функции в Win32. (Я предоставляю только эскиз того, что необходимо, потому что у меня нет под управлением копии Delphi удобной прямо сейчас. Спросите приятно, и возможно я найду больше деталей.) Сначала, необходимо было бы удостовериться что информация о типе для сохраненного интерфейса, как минимум, неукрашенные названия его методов. Затем Supports должен был бы генерировать функциональный тупик для каждого метода в интерфейсе (помимо _AddRef, _Release, и QueryInterface). Тупик прошел бы примерно так, предположив, что соглашение о вызовах stdcall:

asm
  // Pop the return address,
  // discard the "this" pointer,
  // and restore the return address
  pop eax
  pop ecx
  push eax

  jmp AddressOfFunction
end;

Как Supports сгенерированный каждый тупик, это заполнило бы фактический функциональный адрес, полученный от вызова GetProcAddress с названием соответствующего метода интерфейса. stdcall соглашение о вызовах легко перенести как этот; cdecl является немного громоздким; register невыносим.

После того как это имеет все сгенерированные тупики, это должно было бы генерировать "объект", который похож на него, реализует данный интерфейс. Это не должен быть фактический класс. Во время компиляции, Supports не знает расположение интерфейса, который это будет попросившим реализовать, так наличие класса не выполнило бы много.

Заключительный шаг должен обеспечить реализации _AddRef, _Release, и QueryInterface. _AddRef было бы обыкновенным; _Release то, где Вы звонили бы FreeLibrary когда подсчет ссылок достигнутый нуль; QueryInterface не сделал бы многого вообще, кроме заявления, что это поддерживает IUnknown и интерфейс, данный Supports.

Delphi раньше шел с примером программы, который продемонстрировал реализацию интерфейса без любых классов вообще. Это было все сделано с записями и указателями функции (который является всем, интерфейс в конечном счете, в конце концов). Delphi также шел с соответствующим кодом, чтобы сделать это с классами, частично показать, сколько более легкий Delphi может сделать вещами. Я не могу найти название демонстрационной программы теперь, но я уверен, что это все еще вокруг где-нибудь.