/
Edwar
/
cam-api-examples
Обзор
Документация
Войти
/
Edwar
/
cam-api-examples
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
ExtensionUtility/ExtensionUtilityDelphi/project/main/src/Main.pas
33 строки
555 B
bond
First examples
26 сен 2024, 11:12
26 сен 2024, 11:12
19bd5ac
Код
Авторство
О чём код?
unit Main; interface uses System.SysUtils ,IDL.CAMAPI.Extensions ,Extension ; function CreateInstanceOfExtension(PluginID: WideString): NativeUInt; stdcall; implementation function CreateInstanceOfExtension(PluginID: WideString): NativeUInt; begin var res: IExtension; if SameText(PluginID, 'Extension.Utility.Example.Delphi') then res := TExtensionTest.Create() as IExtension else raise Exception.Create('Unknown ID ' + PluginID); res._AddRef; result := NativeUInt(res); end; exports CreateInstanceOfExtension; end.