Кол-во открытых потоков

[Игорь Столяров]

Привет всем !

Есть две задачи: определить текущее кол-во потоков в MDI приложении и их реальную доступность.
Первую задачу решаем через костыль:

Код: Выделить всё

TellAllChangeCurs  Routine
  Data
NextThread Long,Auto
Count      Long,Auto

  Code
  NextThread = Start(TmpThread,25000)
  Loop Count = 2 to (NextThread - 1)
    Post(Event:User + 27,,Count)
  end

Но неизвестно существует ли поток с указанным номером (MDI окно может быть уже закрыто)
Только если ожидать от него ответное событие ... целая история.

Может быть существуют более простые способы определения номеров работающих потоков в MDI приложении ?
Заранее спасибо ...

[seawolf]

А что мешает завести глобальную очередь в приложении и добавлять туда номера открываемых потоков ? При закрытии окна (потока) удалять из этой очереди текущий номер потока.

[Игорь Столяров]

А что мешает завести глобальную очередь в приложении

Отсутствие желания работать в MDI приложении с QUEUE,STATIC

[finsoftrz]

У меня через глобальную очередь. Без неё вообще никак. Например, выполняете функцию "закрыть все окна". А в каком-то потоке у нас открыта форма на редактирование с изменениями. Разумеется, надо такое проверить, отменить операцию и оповестить пользователя. И таких фишек кучка.

[Игорь Столяров]

выполняете функцию "закрыть все окна"

В шаблонах ABC для этого есть штатный метод CleanCloseDown() ...

Я понимаю, что решение с глобальным списком потоков вполне рабочее и мы его иногда даже юзаем
для блокировки повторного открытия одинаковых окон. Думал может есть ещё варианты ...

[finsoftrz]

выполняете функцию "закрыть все окна"

В шаблонах ABC для этого есть штатный метод CleanCloseDown() ...

Я понимаю, что решение с глобальным списком потоков вполне рабочее и мы его иногда даже юзаем
для блокировки повторного открытия одинаковых окон. Думал может есть ещё варианты ...

Сомневаюсь, что эта функция позволяет отследить факт изменения в формах. У меня ещё переключение потоков появилось задолго до mdi tab, которое тоже имеет ограниченный функционал. Имея глобальную очередь (точнее, две, одна для потоков, вторая для окон), можно несложно прицепить все что угодно.

[Губин Игорь]

Отсутствие желания работать в MDI приложении с QUEUE,STATIC

Открою большой-пребольшой секрет. Если нет желания работать в такой ситуации с Queue , что, в общем-то, понятно, смотрите в сторону IMDD. Скорость такая же (на не запредельных размерах под гигабайт), все проблемы с обменом берёт на себя рантайм...