AD (LDAP) - ошибка в коде, на рассмотрение

[Mouse123]

Доброго Вам времени суток,

У меня по задаче получается множество обращений к AD. Сделал модуль, но есть с ним проблемы.

Допустим после вызова открытия контейнера и энумерации ( проходят нормально ) если попытатся добавить скажем TComboItemEx или в дерево или вообще создать объект то прога рушится с сылкой на неверный адрес памяти. Если функция энумерации последняя в исполняемой функции, то все ок.

Ниже привожу пример функции ( модуль большой, так понятнее и меньше - все одно одинаково упадает )

var
   fADCont      : IADsContainer;
   ADEnum       : IEnumVariant;
   ADItemsCount : ULONG;
   ADItem       : IADs;
   ADVArr       : OleVariant;
   hRes         : HRESULT;
begin
  if Failed ( ADsOpenObject ( fLDAP, fUsr, fPwd, 1, IADsContainer, fADCont )) then
    Exit;

  if Failed (ADsBuildEnumerator ( fADCont, ADEnum )) then
    Exit;

  while SUCCEEDED (hRes) do
    begin
      hRes := ADsEnumerateNext ( ADEnum, 1, ADVArr, ADItemsCount );

      if ( ADItemsCount <= 0 ) then
         break
      else

      IDispatch (ADVArr).QueryInterface ( IADs, ADItem );
    end;

Теперь допустим вызываем такую вот функцию и :

ComboBoxEx.ItemsEx.AddItem (bla-bla-bla); {Вот тут мы и падаем}

Что именно идет после - не важно, главное - создается что-то.
Т.е. допустим присваение переменных проходит спокойно.

Что делать?

[Квэнди]

а падаем- то с какой ошибкой ?

[Mouse123]

---------------------------
Debugger Fault Notification
---------------------------
Project N:\Projects\......exe faulted with message: 'access violation at 0x7c92ab32: write of address 0x00040ffc'. Process Stopped. Use Step or Run to continue.
---------------------------

Падёж в ntdll.dll ... адресация, кажется, вообще каждый раз разная.

Чтож делать то ... я, конечно, пока могу это пережить, но
а) стабильность софта уже не та
б) потом потребуется именно такой подход

Может можно как-то иначе стуканутся в AD? ( открытые компоненты например ), но не сторонние библиотеки/комм. компоненты/com

p.s.
тыкаюсь по LDAP

Допустим создадим IADs сами. Т.е. :

var
   fADCont      : IADsContainer;
   ADEnum       : IEnumVariant;
   ADItemsCount : ULONG;
   ADItem       : IADs;
   ADVArr       : OleVariant;
   hRes         : HRESULT;
begin
  if Failed ( ADsOpenObject ( fLDAP, fUsr, fPwd, 1, IADsContainer, fADCont )) then
    Exit;

  if Failed (ADsBuildEnumerator ( fADCont, ADEnum )) then
    Exit;

  ADItem := fADCont.Create ('User','ActiveDirectoryUser') as IADs;

  while SUCCEEDED (hRes) do
    begin
      hRes := ADsEnumerateNext ( ADEnum, 1, ADVArr, ADItemsCount );

      // if we done
      if ( ADItemsCount <= 0 ) then
         break
      else

      IDispatch (ADVArr).QueryInterface ( IADs, ADItem );
      CbUserLoginBox.Items.Add ( ADItem.Get('sAMAccountName'));
      StInfUserFQDN.Caption := ADItem.ADsPath;
    end;

Но все побоку.

Вроди все же верно ... чего делать то? :`(

Cверил с другими вариантами - принцип вроди верный же... wtf?!

[Mouse123]

решения пока не нашел, однако, если вызов функции с обращением в AD засунуть в try, то все тихо и мирно. Сессно на перехвате ошибки просто пропускаем ее, но она, что совсем уже идиотично, просто не появляется. 8-) Я в шоке))