Exports. LibraryName name 'LIBRARYNAME',

LibraryName name 'LIBRARYNAME',

LibraryId name 'LIBRARYID',

LibraryEntry name 'LIBRARYENTRY';

Begin

End.

Как видно, в операторе USES подключается модуль KsTLB, обеспечивающий взаимодействие с API КОМПАС, а также модули данной библиотеки main1 и former1, в которых располагается форма и программный код. Файл KsTLB (а также другие необходимые для компиляции модули) находится в каталоге Program Files\Ascon\ KOMPAS\SDK\Include. Необходимо сказать Delphi, чтобы поиск файлов при компиляции выполнялся и в вышеуказанном каталоге. Идем в меню Tools\Environment Options\Library\Library Path и добавляем в список путей поиска файлов каталог Include.

Создаем новый модуль (File\New\Unit), сохраняем его (например, под именем main1). В этом модуле мы должны описать реализацию процедур и функций LibraryName, LibraryId, LibraryEntry.

unit main1;

Interface

//добавляем библиотеку Forms и модуль формы former1

uses Windows, SysUtils, LDefin2D, ksConstTLB, ksAuto,

ksTLB, Forms, former1;

// заголовки процедур

procedure LIBRARYENTRY(command: WORD); Pascal;

function LIBRARYNAME: PChar; Pascal;

function LIBRARYID: Cardinal; Pascal;

// ссылки на КОМПАС и 2D документ

Var

Kompas: KompasObject;

iDocument2D: ksDocument2D;