Форум ДИЦ

Пользовательский и Дилерский форум ДИЦ
Текущее время: Чт авг 16, 2018 2:16 pm

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: For Each для AutoObject
СообщениеДобавлено: Вс мар 04, 2018 2:03 pm 
Не в сети

Зарегистрирован: Вт авг 01, 2017 8:09 pm
Сообщения: 51
При попытке реализовать аналог цикла для коллекции For Each столкнулся с ошибкой
"Недопустимый тип варианта: 13"
Пример кода - функция возвращает элементы коллекции в виде массива

Код:
   
  func Enum_Next: variant[];
      var Service: AutoObject;
      var ExecQuery: AutoObject; -- содержит коллекцию и поддерживает свойство _NewEnum
      var Enum: AutoObject; -- ссылка на интерфейс EnumVARIANT, поддерживает метод NEXT
      var ResultCount: integer;
        Service = AutoObject.Create("WbemScripting.SWbemLocator").connectServer;
        Service.security_.impersonationLevel=3;
        ExecQuery = Service.ExecQuery("Select * from Win32_Process Where CommandLine like '%turbo9.exe%'");
        Enum = ExecQuery._NewEnum; -- Ошибка! Недопустимый тип варианта: 13
        if ExecQuery.count = 1:
          Enum.Next(ExecQuery.count, Result[1], ResultCount);
        else
          Enum.Next(ExecQuery.count, Result, ResultCount);
        fi;
  end;


В итоге нет возможности получить доступ к элементам коллекции, в которой нет доступа к элементам по индексу.

_________________
ТБ.Бюджет


Вернуться к началу
 Профиль Отправить личное сообщение Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB