работает ли ksSetDocVariableArray ?

[Zlоy]

использую эту функцию для замены значения переменной в документе или фрагменте, но никаких изменений нет. Всё перепробовал, даже напрямую из dll’ки функцию грузил - ничего не помогает.
Может быть кто-то успешно пользовался этой функцией ?

[333]

Приведите Ваш текст функции замены значений переменных.
Это даст возможность определить в чем ошибка.

[333]

Может после изменения значений не сохранил документ?

[Zlоy]

Пожалуйста, вот пример (frg - нормальный указатель) :

//получить массив внешних переменных фрагмента
reference    arrayVar = ksGetDocVariableArray(frg);
for(i = 0, count = GetArrayCount(arrayVar); i < count; i++) {
    VariableParam     par;
   //получить текущую переменную
   GetArrayItem( arrayVar, i, &par, sizeof(VariableParam) );
   sprintf(buf,
             "имя = %s\nзначение = %f\nкомментарий = %s",
             par.name, par.value, par.note);
   if(!strcmp(par.name, "h0")) {
   par.value = 106.0;
   //заменить текущую переменную в массиве
   if(!SetArrayItem(arrayVar, i, &par, sizeof(VariableParam))) {
       Message("Не меняется переменная");
        }
      }
}
//заменить значения  внешних переменных документа
if(!ksSetDocVariableArray (frg, arrayVar,1)) {
  Message("Приплыли с заменой переменных");
}

333, а неужели обязательно необходимо сохранять документ для того чтобы отследить изменение значения переменной ?

[333]

Является ли переменная h0 внешней.
Через API можно менять значения только внешних переменных.
Больше ни чего подозрительного не вижу.
Покрайней мере на вставках фрагментов это точно работает
Кстате раз Вы коментарий переменной не меняете то можно делать
ksSetDocVariableArray (frg, arrayVar,0))
Выполняется ли условие:
if (!strcmp(par.name, "h0") )
если нет то такой переменной либо нет либо она внутренняя  

[Zlоy]

Переменная h0 является внешней и условие выполняется - я проверял из-под отладчика.
Возможно, причина в единице, передаваемой последним параметром.
Посмотрим.

[Zlоy]

Нет, всё равно ничего. Интересно, а во всех ли версиях Компаса эта функция нормально поддерживается ? В 5.11 например.
В чём же про-б-л-е-м-а ?...........

[333]

Попробуйте выслать тест и пример документа по адресу support@kompas.kolomna.ru.
Если конечно Вы приобрели Компас.
Может что-то и прояснится.

[SТil]

В нелпе есть пример по работе с ksSetDocVariableArray для си, может у кого есть пример на делфи, а то никак не могу разобратся . Проблемма с тем что аргумент должен быть reference, а в библиотеке он integer или я чегото не понимаю.

[333]

ldefin2d.h
typedef long reference;

т.е. reference, long, Integer это одно и тоже

[Sabahs]

Integer и Reference один и тот же тип, так как Reference это есть именованный тип от Integer единственное  что  Delphi жестче работает с типами.

[sТil]

Спасибо за ответ, но может у кого нибудь всетаки есть пример по работе с внешними переменными на дельфи? Так было бы проще.

[sТil]

Разобрался

var
  i: integer;
  arrayVar1 : reference;     // Массив переменных
  par1     : VariableParam; // Спруктура параметров переменной

begin
      arrayVar1 :=  ksGetDocVariableArray( p ); //p - ссылка на фрагмент
    for i :=0 to GetArrayCount(arrayVar1) do
    begin
      if ( GetArrayItem(arrayVar1, i, @par1, SizeOf(VariableParam))0 )then
      begin
       buf := Format( ’name = %s values = %6.2f ’, [par1.name,par1.value] );
        Kompas.ksMessage( PChar(buf) );

        if ( par1.name = ’h’ ) then begin
          par1.value := 1000;   // Установить значение переменной h0 = 100
          SetArrayItem(arrayVar1, i, @par1, sizeof(VariableParam));
        end;
      end;
    end;
    ksSetDocVariableArray( p,    // указатель на документ или вставку фрагмента
                           arrayVar1,// указатель на динамический массив VARIABLE_ARR
                           0 );    // комментарии менять

главное не забыть подключить все нужные библиотеки .

Ещё вопрос почему после всего этого появляется сообщение
"Неверный индекс массива"

[Sabahs]

Строчку for i :=0 to GetArrayCount(arrayVar1) do надо написать for i :=0 to GetArrayCount(arrayVar1)-1 do так, как Count указывает количество записей в массиве, а первая запись начинается с нуля.