Компас 10 и Delphi 7

[Dmitry Saveliev]

Здравствуйте!

Скажу сразу, что я никогда не пользовался API Компаса, но сейчас возникла нужда немного покодить в эту сторону.
Пожалуйста, объясните, что нужно сделать, чтобы для начала посмотреть хотя бы работу примеров в папке
SDK. Хотя бы для начала простой пример step1. Просто не удается скомпилировать.
Какие модули куда перенести, что где подключить - подскажите новичку.

Заранее большое вам спасибо

[oit]

На Delphi7 чтобы компилилось:
зайди в Tools -> environment options
на вкладке Library в Library path укажи путь на ..\SDK\Include
скомпилинная библиотека будет иметь расширение rtw

//--------------------------------------------------------------------------------
Посмотрите методичку вот здесь  http://edu.ascon.ru/download/methods/rtw.zip
//--------------------------------------------------------------------------------

[Dmitry Saveliev]

С этим я разобрался, папку Include прописал.

Беру первый пример (step1), пытаюсь компилировать, начинается ругань на модуль LibTools.
Вроде поправил (там одна лишняя ";" и несколько функций не объявлено), но теперь при
попытке компилить вылетает в дебаггер. Что делать???

[YuKa]

Таже самая проблема с LibTools.
До V10 пробовал только связку КОМПАС V7 + Delphi 7. Все прекрасно компилилось.

Ошибки примера из http://edu.ascon.ru/download/methods/rtw.zip :

[Error] LibTool.pas(6928): Identifier expected but ')' found
[Error] LibTool.pas(6900): Unsatisfied forward or external declaration: 'ksGetSpcPerformanceName'
[Error] LibTool.pas(6910): Unsatisfied forward or external declaration: 'ksGetSpcPerformanceNameW'
[Error] LibTool.pas(6919): Unsatisfied forward or external declaration: 'ksSetSpcPerformanceName'
[Error] LibTool.pas(6928): Unsatisfied forward or external declaration: 'ksSetSpcPerformanceNameW'
[Fatal Error] ksAuto.pas(12): Could not compile used unit 'LibTool.pas'

[oit]

под v9 на Delphi7 все отлично компилось и никаких ошибок не возникло

[Dmitry Saveliev]

Господа, и что же делать???

Пользовать Компас 9 и Delphi 7? Или все таки можно как-то и с 10 версией разобраться?

[YuKa]

Пока "выкрутился" так.
Закоментировал описания четырех функций в LibTool.pas и все нАчало работать:

ksGetSpcPerformanceName
ksGetSpcPerformanceNameW
ksSetSpcPerformanceName
ksSetSpcPerformanceNameW

[PON]

А что думают по этому поводу разработчики?

[Andreych]

Я тоже использую Компас 10 и Delphi 7. У меня никаких ошибок при компиляции примеров не возникает, скомпилированные библиотеки работают. При этом я в LibTools и в других библиотеках ничего не правил, все само работает.

[Sergio_80]

 Вот и решил попробывать вспомнить связку Delphy 7 и Компас. Правда раньше я уже связывал Компас6. Но  с Компасом 10 все оказалось не просто - вернее пока еще никак... Возможно у кого-то было что-то похоже . Ситуация такая: Откомпилировав пример запускаю F9 и выкидает окно CPU и дальше ничегшо не происходит , когда нажимаю  повторно F9 выкидает ошибку . Когда в меню Tools/ Debugger Option / General / Insector Defaults убираю галочку Show inherited - Компас 10 запускается но ничего не происходит.... Перепробовал на всех примерах из папки - никакой реакции. Может кто-то подскажет что- там не так. И может есть где-то подробное описание Компас-Мастер ... 

[Andreych]

Так это похоже у всех точно такая ситуация возникает, если жать F9 и запускать программу прямо из Delphi. А если скомпилировать rtw библиотеку, и добавив ее в Компасе, запускать оттуда, то все будет ок.

[Sergio_80]

Так это похоже у всех точно такая ситуация возникает, если жать F9 и запускать программу прямо из Delphi. А если скомпилировать rtw библиотеку, и добавив ее в Компасе, запускать оттуда, то все будет ок.

  Спасибо за ответ - хоть что-то проясняется

[uno-84]

Если кого-то интересутет ответ по этой теме. Я исправил эту ошибку след. образом,
просто обьявить эти функциии в APPTOOL:

function ksGetSpcPerformanceName; external APPTOOL5 Name 'ksGetSpcPerformanceName';

function ksGetSpcPerformanceNameW; external APPTOOL5 Name 'ksGetSpcPerformanceNameW';

function ksSetSpcPerformanceName; external APPTOOL5 Name 'ksSetSpcPerformanceName';

function ksSetSpcPerformanceNameW; external APPTOOL5 Name 'ksSetSpcPerformanceNameW';

[CAD_tester]

Уважаемые! не могли бы вы обновить эту ссылочку: http://edu.ascon.ru/download/methods/rtw.zip или указать новое место этого файла!

[Aleksei]

http://edu.ascon.ru/source/files/methods/rtw.zip

[CAD_tester]

Спасибо Алексей!
Отличная методичка, с ней гораздо проще разбираться в основах разработки библиотек!
Молодец всё таки доцент Троицкий написавший эту штуку!!!

[Троицкий]

Спасибо Алексей!
Отличная методичка, с ней гораздо проще разбираться в основах разработки библиотек!
Молодец всё таки доцент Троицкий написавший эту штуку!!!

Спасибо за добрые слова о моем скромном труде!

[Aleksei]

Отличная методичка, с ней гораздо проще разбираться в основах разработки библиотек!
Молодец всё таки доцент Троицкий написавший эту штуку!!!

Присоединяюсь - тоже учился по ней.

[sn0wflake]

Отличная методичка, с ней гораздо проще разбираться в основах разработки библиотек!
Молодец всё таки доцент Троицкий написавший эту штуку!!!

Присоединяюсь - тоже учился по ней.

тоже учусь по ней