Не заполняется информация о документе!

[sorockinalex]

Может кто подсказать, почему не работает вот этот код?

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

  iKompas:= KompasObject(GetActiveOleObject('Kompas.Application.5'));
  iDoc := ksDocument2D ( iKompas.ActiveDocument2D );
  iDocParams := ksDocumentParam (iKompas.GetParamStruct (ko_DocumentParam));
  iDoc.ksSetObjParam(iDoc.reference, iDocParams, DOCUMENT_OBJ);
  iDocParams.Init;
  iDocParams.author:=Edit1.Text;
  iDocParams.comment:=Edit3.Text;

вдобавок мне интересно как заполнитиь поле "Организация"????

[yarikv]

Попробуй так:

iDoc.ksGetObjParam(iDoc.reference, iDocParams, DOCUMENT_OBJ);
iDocParams.author:=Edit1.Text;
iDocParams.comment:=Edit3.Text;
iDoc.ksSetObjParam(iDoc.reference, iDocParams, DOCUMENT_OBJ);

[sorockinalex]

Спасибо, yarikv!
Ты уже не в первый раз помогаешь!

работает, только надо изменить на ALLPARAM:

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

  iKompas:= KompasObject(GetActiveOleObject('Kompas.Application.5'));
  iDoc := ksDocument2D ( iKompas.ActiveDocument2D );
  iDocParams := ksDocumentParam (iKompas.GetParamStruct (ko_DocumentParam));
  iDoc.ksGetObjParam(iDoc.reference, iDocParams, ALLPARAM);
  iDocParams.author:=Edit1.Text;
  iDocParams.comment:=Edit3.Text;
  iDoc.ksSetObjParam(iDoc.reference, iDocParams, ALLPARAM);