Проблемы с API-функциями

[Bacuk 0]

Добрый день!

Мне необходимо выполнить следующие действия: Открыть файл с диска - Получить модель с данного чертежа - сохранить в PDF. 

Использую следующую функцию:

 

procedure TForm6.Button1Click(Sender: TObject);
var
  Windo : IpfcWindow;
  session :  IpfcSession;
  aaa : ipfcAsyncConnection;
  asyncConnection : IpfcAsyncConnection;
  casync : CCpfcAsyncConnection;
  Descript : IpfcModelDescriptor;
  Ddd : ICpfcModelDescriptor;
  Err : Hresult;
  aidstr : WideString;
  AidInt : Integer;
  EntValue : OleVariant;
begin
  casync := CoCCpfcAsyncConnection.Create;
  //asyncConnection := casync.Connect(null, null, null, null);
  asyncConnection := casync.Start('c:\Program Files\PTC\Creo 2.0\Parametric\bin\parametric.exe', '.');
  asyncConnection.Get_Session(session);

  (session as ipfcBaseSession).Get_CurrentWindow(windo);
  Descript := CoCCpfcModelDescriptor.Create.CreateFromFileName('e:\work\d638.drw');
  Descript.Get_type_(AidInt);
  Descript.Get_InstanceName(AidStr);
  Descript.Get_GenericName(EntValue);
  Descript.Get_Host(AidStr);
  Descript.Get_Device(aidstr);
  Descript.Get_Path(aidstr);
  descript.Get_FileVersion(EntValue);
  Descript.GetFullName(aidstr);
  Descript.GetExtension(AidStr);
  Descript.GetFileName(aidstr);
  //Err := CoCpfcParamValue.Create;
  Err := (session as ipfcBaseSession).OpenFile(Descript, Windo);

 

Файл d638.drw существует, но переменная Windo = nil.

 

Подскажите, что я делаю не так? 

[Onizuka 27]

Функция CreateFromFileName принимает в качестве аргумента только имя файла с расширением. Без пути.

Предварительно измените рабочую папку на путь, где лежит чертеж.

[Bacuk 0]

Поправил:

casync := CoCCpfcAsyncConnection.Create;
  //asyncConnection := casync.Connect(null, null, null, null);
  asyncConnection := casync.Start('c:\Program Files\PTC\Creo 2.0\Parametric\bin\parametric.exe', '.');
  asyncConnection.Get_Session(session);

  (session as ipfcBaseSession).Get_CurrentWindow(windo);
  Descript := CoCCpfcModelDescriptor.Create.CreateFromFileName('e:\work\d638.drw');
  Err1 := (session as IpfcBaseSession).ChangeDirectory('e:\work\');
  //Err := CoCpfcParamValue.Create;
  Err := (session as ipfcBaseSession).OpenFile(Descript, Windo);

 

Значение переменной Err1 = 0 - Значит изменилась директория корректно

Значение переменной Err = -2147352567 - Опять ошибка, и windo равна nil.

 

Так же вопрос: как можно не запускать каждый раз новый экземпляр крео, а подключаться к существующему?

функция asyncConnection := casync.Connect(null, null, null, null); выдает ошибку

 

[Onizuka 27]

Уже близко, но не то.

1) Менять рабочую папку нужно до вызова из файла

  Err1 := (session as IpfcBaseSession).ChangeDirectory('e:\work\');

  Descript := CoCCpfcModelDescriptor.Create.CreateFromFileName('e:\work\d638.drw');

 

2) Аргумент для CreateFromFileName имя файла БЕЗ ПУТИ

Err1 := (session as IpfcBaseSession).ChangeDirectory('e:\work\');

  Descript := CoCCpfcModelDescriptor.Create.CreateFromFileName('d638.drw');

 

3) Не знаю как в Delphi, но в документации

Function OpenFile (MdlDescr as IpfcModelDescriptor) as IpfcWindow принимает ОДИН аргумент и возвращает не ошибку, а объект IpfcWindow

мне кажется должно быть

Windo := (session as ipfcBaseSession).OpenFile(Descript);

[Bacuk 0]

Ошибка не исправилась. В чем может быть еще дело?

[Onizuka 27]

Чтобы что-то подсказать нужно видеть ваш исправленный код...

 

Попробуйте убрать слэш в конце пути. Оставить в коде только функцию смены папки

 Err1 := (session as IpfcBaseSession).ChangeDirectory('e:\work');

 

Затем в Creo проверьте сменилась ли рабочая папка.

 

Если ничего не получается, то идите другим путем

Создать

CCpfcModelDescriptor.Create()
Заполнить свойство путь и другие
IpfcModelDescriptor.Path

Вызвать модель в сессию
IpfcBaseSession.RetrieveModelWithOpts()

Отобразить

IpfcModel.Display()

[Bacuk 0]

Спасибо, за ответ: 

В общем разобрался - в папке назначения лежал только файл чертежа без файла модели - поэтому выдавалась ошибка. Положил файл модели с файлом чертежа все выполнилось успешно.