• Олег
  • Участник
  • Неактивен
  • На форуме с 26 января 2009
  • Сообщений: 88

Тема: Delphi справочник групп.

Добрый день.
Помогите получить доступ к справочнику групп и к его списку пользователей.
Пишу:
(TCSApp as CSDN_TLB.IOcs_Application2).WorkGroups.First;          // WorkGroups
  If (TCSApp as CSDN_TLB.IOcs_Application2).WorkGroups.Locate['NOTE', WrkGroupDoc.Properties['NOTE'].DisPlayText, 0] Then begin
               Users := (TCSApp as CSDN_TLB.IOcs_Application2).WorkGroups.Properties['USERS'].AsIDispatch as IUserWorkGroupsDisp;<-- тут выходит сообщение о ошибке

Спасибо.

Ответ от Дмитрий Гамий (изменено: Дмитрий Гамий, 15 февраля 2011 16:38:40)

  • Откуда: г.Днипро, CSoft Украина
  • На форуме с 10 декабря 2008
  • Сообщений: 748

Re: Delphi справочник групп.

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

Users := (TCSApp as CSDN_TLB.IOcs_Application2).WorkGroups.Properties['USERS'].AsIDispatch as IUserWorkGroups;

  • Олег
  • Участник
  • Неактивен
  • На форуме с 26 января 2009
  • Сообщений: 88

Re: Delphi справочник групп.

Дмитрий Гамий пишет:

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

Users := (TCSApp as CSDN_TLB.IOcs_Application2).WorkGroups.Properties['USERS'].AsIDispatch as IUserWorkGroups;

Делал и так.
А заработала вот так:
  Users: OleVariant;
  Users := (TCSApp as CSDN_TLB.IOcs_Application2).WorkGroups.Properties['USERS'].AsIDispatch ;