uses SysUtils, Classes, ksTLB, ksAuto; {$E rtw} {$R *.res} // глобальная переменная приложения КОМПАС API var kompas : KompasObject; // код пропущен procedure LibraryEntry(command: WORD); pascal; begin // инициализация объекта KompasObject // с помощью функции CreateKompasObject kompas := KompasObject(CreateKompasObject); // если все прошло успешно if (kompas = nil) then exit; // выводим первое сообщение kompas.ksMessage(“Привет из КОМПАСа!”); // обнуляем переменную kompas kompas := nil; end; Сохраните и скомпилируйте проект, после чего запустите библиотеку и выполните ее единственную команду. В результате библиотека выдаст первое приветственное сообщение (рис. 6.23). Рис. 6.23. Сообщение, посланное библиотекой Внимание! При компиляции проекта прикладная библиотека должна быть обязательно отключена в менеджере библиотек, иначе компилятор сообщит об ошибке. Исходные файлы этой простейшей библиотеки, а также сам исполняемый файл приложения Hello_KOMPAS.rtw находятся на прилагаемом к книге компакт-диске в папке Examples\Глава 6\Delphi Programming\FirstLib. При попытке компиляции исходных файлов на своем компьютере вы должны учитывать, что куда бы ни были скопированы исходники с диска, пути к файлам библиотек КОМПАС, указанные в настройках проекта, будут отличаться. По этой причине перед компиляцией обязательно отредактируйте эти пути (см. рис. 6.22) и лишь после этого выполняйте сборку библиотеки.Листинг 6.9. Вывод текстового сообщения
