/
Edwar
/
cam-api-examples
Обзор
Документация
Войти
/
Edwar
/
cam-api-examples
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
PLMIntegration/PLMExtensionDelphi/project/main/src/Main.pas
31 строка
550 B
rasilyabag
plm integration examples
11 окт 2024, 17:10
11 окт 2024, 17:10
2dd8ec0
Код
Авторство
О чём код?
unit Main; interface uses System.SysUtils, IDL.CAMAPI.Extensions, TestPLMInterface; function CreateInstanceOfExtension(PluginID: WideString): NativeUInt; stdcall; implementation function CreateInstanceOfExtension(PluginID: WideString): NativeUInt; begin var res: IExtension; if SameText(PluginID, 'PLM.Extension.Delphi') then res := TTestPLMInterface.Create() as IExtension else raise Exception.Create('Unknown ID ' + PluginID); res._AddRef; result := NativeUInt(res); end; exports CreateInstanceOfExtension; end.