forum.clarionlife.net

Необходимо реалтайме видеть список открытых файлов, в том числе алиасов, если возможно. Если готовые примеры или шаблоны, заранее спасибо.

Для чего, суть задачи какая?

Есть программа (немаленькая), в которой некоторые явные + скрытые процессы (процедуры) могут пересекаться, + куча алиасов на файл. Хочется запустить tools-окно с мониторингом открытых-используемых файлов и увидеть то что нужно.

Property на чтение статуса файла не помню что бы было. Без этого придется во все места открытия и закрытия вставлять свой код и в глобальном классе/переменных собирать информацию о количестве открытий/закрытий файлов и т.д.
Если используется только FileManager то все проще тем что можно его наследовать и изменить.
Как то так. Народ поправит надеюсь...

Можно ещё FileCallback перехватывать, тогда все стандартные OPEN()/CLOSE() доступны, правда насчёт алиасов не уверен.
Если нужна отдельная утилита мониторинга, то это всё надо из основной программы в табличку БД писать, а в мониторе её периодически опрашивать.
Есть встроенная функция STATUS(FILE), но это вроде не то по условию задачи.

gopstop2007 писал(а):Хочется запустить tools-окно с мониторингом открытых-используемых файлов и увидеть то что нужно.

Простите, не догоняю, что же всё-таки хочется увидеть? Что беспокоит-то? Блокировки какие или что?
Может открыть все таблицы-файлы сразу при старте программы и снять проблему разом (мол типа всё открыто, мониторить нечего)?
Какой в программе используется драйвер БД? Темплейты какие? Программа какая? Если многопользовательская и надо мониторить по всем юзерам, то надо сохранять в БД, если однопользовательская, то глобальной очереди достаточно. Интересует факт открыт/закрыт или необходим счётчик?
Уточните всё это.

Admin писал(а):Property на чтение статуса файла не помню что бы было. Без этого придется во все места открытия и закрытия вставлять свой код и в глобальном классе/переменных собирать информацию о количестве открытий/закрытий файлов и т.д.
Если используется только FileManager то все проще тем что можно его наследовать и изменить.
Как то так. Народ поправит надеюсь...

Вроде просто, а как сложно Думал, может кто сталкивался.

Дед Пахом писал(а):Можно ещё FileCallback перехватывать, тогда все стандартные OPEN()/CLOSE() доступны, правда насчёт алиасов не уверен.
Если нужна отдельная утилита мониторинга, то это всё надо из основной программы в табличку БД писать, а в мониторе её периодически опрашивать.
Есть встроенная функция STATUS(FILE), но это вроде не то по условию задачи.

Спасибо, посмотрел - FileCallback, пригодится. Про STATUS знал, думал еще кто чего подскажет. Коллективный разум

Shur писал(а):Простите, не догоняю, что же всё-таки хочется увидеть? Что беспокоит-то? Блокировки какие или что?

Старая программа, писалась периодически, хочется упорядочить "разросшийся" файл диктонари(DCT).

Shur писал(а):Может открыть все таблицы-файлы сразу при старте программы и снять проблему разом (мол типа всё открыто, мониторить нечего)?

Можно, если бы периодически файлы не пересоздавались, апендились и прочее.

Shur писал(а):Какой в программе используется драйвер БД? Программа какая? Если многопользовательская и надо мониторить по всем юзерам, то надо сохранять в БД, если однопользовательская, то глобальной очереди достаточно. Темплейты какие? Уточните всё это.

TPS + ODBC, мониторинг локально, ABC.

Вставьте в эмбед стандартной процедуры открытия файла некий код отслеживания.

gopstop2007 писал(а):Старая программа, писалась периодически, хочется упорядочить "разросшийся" файл диктонари(DCT).

Всё равно не ясно. Как это может повлиять? Ну ты увидишь, что таблица открылась, потом она закрылась. Какой из этого вывод?
Или уже есть кандидаты на уничтожение?

Shur писал(а):Интересует факт открыт/закрыт или необходим счётчик?

Пардон, вот здесь ещё...

Shur писал(а):

gopstop2007 писал(а):Старая программа, писалась периодически, хочется упорядочить "разросшийся" файл диктонари(DCT).

Всё равно не ясно. Как это может повлиять? Ну ты увидишь, что таблица открылась, потом она закрылась. Какой из этого вывод?
Или уже есть кандидаты на уничтожение?

Shur писал(а):Интересует факт открыт/закрыт или необходим счётчик?

Пардон, вот здесь ещё...

Когда делалось изначально, сильно не заморачивался с файлами, для параллельных процессов(процедур) создавал алиасы, если были сомнения насчет их "пересечения". Так как многие процессы работают параллельно по таймеру, по "запросу извне", четко определить "загруженность" файлов для меня тяжеловато Насчет факта открыт/закрыт или счетчик, я думал как проще. Очередь со списком открытых файлов и алисов, пробежаться по самым "узким" местам программы создавая условия "полной загруженности" и посмотреть список "дублирующих" открытых файлов.

Что до сабжа, то здесь мог бы помочь банальный профайл таблиц.
Если идея создания очереди превалирует, то можно смотреть в сторону написания темплейта на открытие-закрытие таблиц. Жалко только, что он будет одноразовый, сиюминутный. Поэтому мысль идёт дальше.

gopstop2007 писал(а):Когда делалось изначально, сильно не заморачивался с файлами, для параллельных процессов(процедур) создавал алиасы, если были сомнения насчет их "пересечения".

gopstop2007 писал(а):

Shur писал(а): Может открыть все таблицы-файлы сразу при старте программы и снять проблему разом (мол типа всё открыто, мониторить нечего)?

Можно, если бы периодически файлы не пересоздавались, апендились и прочее.

Раз всё так запущено, то я бы вернулся к идее открытия всех файлов разом. Append здесь никоим образом не мешает. А вот что с пересозданием файлов? Как сейчас оно происходит? Может нацелиться на переделку этого?

Shur писал(а):Что до сабжа, то здесь мог бы помочь банальный профайл таблиц.

Эх, вот так банально и серпом по я...м Хотя, можете посоветовать как этот профайл получить? Когда -то видел от CapeSoft но там вроде не то, что мне нужно

Вот наспех соструганный темплейт. Работу с самой очередью не проверял, возможно, что уже потерял навыки и что-то не учёл.

Спасибо огромное, и как этим воспользоваться? Принцип шаблона?

gopstop2007 писал(а):Спасибо огромное, и как этим воспользоваться? Принцип шаблона?

М-м... Как бы так помягче...
Принцип простой:
открываешь таблицу -- появляется запись в очереди; открываешь ещё раз -- счётчик увеличивается; закрываешь таблицу -- счётчик уменьшается; закрываешь последний раз -- запись удаляется.
Действия:
- Зарегистрировать шаблон,
- в глобальных расширениях поставить галку в этом темплейте, чтобы он начал свою работу
- перекомпилировать приложение, убедиться, что оно собирается, и дополнительный код при этом генерируется сразу после открытия и после закрытия таблиц
- на своё усмотрение написать процедуру мониторинга очереди
- слегка доработать шаблон в части обработки записей очереди, чтобы, например, лочить глобальную очередь в момент её изменения.