Параметры описания спецификации

[Prog2]

Приветствую! Возникла такая проблема.
Мне необходимо из документа программно получить параметры текущей спецификации. Особенно интересует номер стиля оформления текущей спецификации (например, простая - 1, групповая... - 15 и т.д.).
Делаю так:

Код Выделить Развернуть


  short state;
  int result, styleNumber;

  ksSpecification * pSpcDoc = NULL;
  pSpcDoc = (ksSpecification *)pDoc->GetSpecification();   //Получаю указатель на интерфейс для работы со спецификациями (выполняется успешно)
 
  ksSpcDescrParam* spcDescr = (ksSpcDescrParam*)pKompas->GetParamStruct( ko_SpcDescrParam );   // Получаю указатель на интерфейс структуры параметров спецификации - успешно.
  spcDescr->Init();
  result=pSpcDoc->ksGetSpcDescription(-1, spcDescr, &state);   // Пытаюсь заполнить spcDescr структуру параметрами текущей спецификации.

  styleNumber=spcDescr->styleId;   // Собственно, то, что меня интересует - номер стиля оформления спецификации.


Но  после вызова result=pSpcDoc->ksGetSpcDescription(-1, spcDescr, &state) имеем result=0, т.е. вызов отработал некорректно и структура параметрами не заполнена.
Соответственно и spcDescr->styleId - пустой, что не есть гуд.

Подскажите, в чём может быть дело? Как правильно считать эти параметры?

[sorockinalex1]

тот же вопрос. помогите, пожалуйста, друзья!

Код Выделить Развернуть


var
state:bool;
.....
    ConnectToKompas;
    spcDoc:= ksSpcDocument(Kompas.SpcDocument);
    spcDoc.ksOpenDocument(FileName, 0);    //Открыть документ-спецификацию.
    //ищем все разделы спецификации
    //берем в работу текущий лист спецификации
    spec:=ksspecification(spcdoc.GetSpecification);
    //структура параметров спецификации
    spcstlpar:=ksSpcStyleParam(kompas.GetParamStruct(ko_SpcStyleParam));
    //инициация
    spcstlpar.Init;
    //структура параметров раздела спецификации
    spcstlsecpar:=ksSpcStyleSectionParam(kompas.GetParamStruct(ko_SpcStyleSectionParam));
    //инициация
    spcstlsecpar.Init;
    //структура параметров колонок спецификации
    spcstlcolpar:=ksSpcStyleColumnParam(kompas.GetParamStruct(ko_SpcStyleColumnParam));
    //инициация
    spcstlcolpar.Init;

    spcdescrpar:=ksSpcDescrParam(kompas.GetParamStruct(ko_SpcDescrParam));
    spcdescrpar.Init;
    spec.ksGetSpcDescription(spcDoc.reference,spcdescrpar,state);
как оформить последнюю строку???
выдаёт ошибку: "Types of actual and formal parameters must be identical"

[Maxagg]

Истина где-то рядом
http://delphivs.ucoz.ru/forum/3-5-1#7