Creo и Delphi

[Bacuk 0]

Добрый день!

Требуется написать простую программу взаимодействия Creo и Delphi.

Выполнил все действия согласно описанному в хелпе:

1. Добавил системную переменную PRO_COMM_MSG_Exe = "F:\Program Files\PTC\Creo 2.0\Common Files\M140\mech\x86e_win64\bin\PRO_COMM_MSG.EXE"

2. Добавил системную переменную PRO_DIRECTORY = "F:\Program Files\PTC\Creo 2.0\Common Files\M140\"

3. Запустил vb_api_register.bat

4. Написал следующий код: 

var
  ConnSession : IpfcbaseSession;
  win : IpfcWindow;
  session : IpfcBaseSession;
  asyncconnection : IdPfcAsyncConnection;
  Casync :  CpfcAsyncConnection;
begin
  ConnSession:= CreateComObject(IpfcBaseSession) as Connsession;
  session := ConnSession

end;

 

при выполнении кода пишет: EOleSysError - класс не зарегистрирован, хотя в реестре запись с GUID есть. 

 

Есть у кого рабочий код на Delphi что бы понять что я не так делаю, или укажите мою ошибку, пожалуйста. 

 

[Onizuka 29]

Com интерфейс к Creo капризный. Не всегда с первого раза работает. Надо поискать в документации как протестировать его работу...

 

По поводу Delphi есть такой вариант

https://www.gunsmoker.ru/2009/04/proengineer-delphi-aka-dll-delphi-lib.html?m=1

[Onizuka 29]

Во вложении JavaScript файл для Windows. Запустите его. В Creo должно появиться сообщение с именем модели текущей. Если не появилось, значит COM не настроили.

MessageBox.js

[Bacuk 0]

4 часа назад, Onizuka сказал:

Во вложении JavaScript файл для Windows. Запустите его. В Creo должно появиться сообщение с именем модели текущей. Если не появилось, значит COM не настроили.

MessageBox.js

Выдало сообщение Строка 4 Символ 1 Ошибка pfcExceptions::XToolkitNotFound Код 80020009.

 

Значит проблема в настройке COM

[Onizuka 29]

3 часа назад, Bacuk сказал:

Выдало сообщение Строка 4 Символ 1 Ошибка pfcExceptions::XToolkitNotFound Код 80020009.

 

Значит проблема в настройке COM

1) Проверьте наличие папки F:\Program Files\PTC\Creo 2.0\Common Files\M140\vbapi

2) vb_api_register.bat обязательно нужно запускать от имени администратора.

 

ps: Если нет острой необходимости писать на Delphi - тогда НЕ делайте этого. Если только основное приложение уже не написано на нем. Полезнее разобраться с JLink (Java API). Подробная документация и куча примеров. За неделю разберетесь. Чем мучатся скрещивать. Мало того, что нужно API осознать, дак потом еще и понять как на под Delphi адаптировать.

[Bacuk 0]

Папка есть. Запускаю от имени администратора, окно черное висит какое то время и закрывается. Черное окно пустое, никаких ошибок не выдает. 

 

В принципе можно написать на vbscript или delphi. Остальные языки в проекте не участвуют. Но сначала надо разобраться почему COM не работает. 

[Bacuk 0]

Up

[Onizuka 29]

Возможно не запущен nmsd.exe. Сервис общения с крео. Порт 1239.

Попробуйте указать другой порт через системную переменную

 PTCNMSPORT=<порт>

Или антивирус или фаервол мешает