Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];

Вниз

Сколько запущено программ?   Найти похожие ветки 

 
Zhek   (2003-10-24 10:14) [0]

Доброго всем времени суток!
Пишу программу работающую по сети с базой данных(БД).
Появилась трудность: "Нужно узнать есть ли/сколько еще в
локальной сети работающих копий этой программы?"
Это нужно для того, чтобы первая копия, при запуске,
кое-что делала с БД для себя и последующих своих "клонов",
а последняя, при завершении, восстанавливала все для другого приложения.

P$ Нужно реализовать средствами Delphi 5!


 
Илайдж   (2003-10-24 11:27) [1]

>>Это нужно для того, чтобы первая копия, при запуске,
кое-что делала с БД для себя и последующих своих "клонов",
а последняя, при завершении, восстанавливала все для другого приложения

Не совсем понятно, что должна делать первая копия и что должна восстанавливать последняя.

Относительно работающих копий - у нас эта проблема решается след. образом:
в датамодуле, где висит TDatabase (TADOConnetion) на коннекте некую таблицу записывается ID программы (он вшит изначально), генерируется номер сессии (~20 символов ;)) и пишется КТО работает с данной копией (а сейчас еще с КАКОГО компьютера).

а при датамодуль дестрой, из таблицы выкидывается запись, в которой сессия совпадает с сессией программы.
У тя БД какая?



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.008 c
8-99655
Ilya_
2003-08-27 04:53
2003.12.30
Не могу открыть сохранённый в Delphi 3 bmp файл


14-99772
}|{yk
2003-12-09 19:19
2003.12.30
Математические методы в научных исследованиях


6-99687
Kevinkf
2003-10-30 07:48
2003.12.30
Создание NAT и подсчет трафика


1-99620
Kvorubin
2003-12-16 12:42
2003.12.30
Как убрать кнопочку с нижней полосы ???


1-99574
Polevi
2003-12-16 15:50
2003.12.30
Нехороший TEdit





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский