Использование одного соединения разными приложениями

[Layman]

Добрый день.

Проблема в следующем. Имеется несколько приложений, которые используют соединение с одной базой данных на сервере. На сервере стоит firebird в режиме classic, соответственно создается по одному процессу на каждое приложение. Сейчас ситуация такая, что 100 пользователей запускает по 10 приложений одновременно к примеру, т.е. уже 1000 процессов на сервере, это крайне не расточительная роскошь.

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

Т.к. я недопрограммист, а сисадмин, хотелось бы найти правильный вариант решения данной задачи.
Были мысли по объединению всех программ в одно приложение с разбивкой по юнитам и использовать текущее подключение, или загонять все приложения/формы в DLL и туда передавать хэндл подключения.

Или может есть все-таки решение легкое и стандартное?)

[Stilet]

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

Только в случае трехзвенки. Т.е. клиенты отправляют запросы на некое приложение, а уже приложение общается с базой.

Т.к. я недопрограммист, а сисадмин

То чего сидим? Кого ждем? Пора преконфигурировать огнептицу в многопользовательское состояние, и не дятловать себе мозг сложными решениями.

[Layman]

Сообщение от Stilet

То чего сидим? Кого ждем? Пора преконфигурировать огнептицу в многопользовательское состояние, и не дятловать себе мозг сложными решениями.

Це страшно спросить, а сейчас в каком состоянии находится огнептиц?)

[Stilet]

Дак ты же сам сказал:

firebird в режиме classic, соответственно создается по одному процессу на каждое приложение

[Layman]

Причем тут это) Есть база на сервере, к ней цепляется много пользователей одновременно. Это и есть многопользовательский режим. И какая разницы поток это или процесс.. Так что огнептиц в моем случае находится в режиме многопользовательской среды.

[Stilet]

ППЦ... Тогда какая разница сколько будет подключений?
Хорошо, допустим ты подключения свернул в мэйнстрим, а транзакции? Их тоже будешь в одну паковать? Ерунда какая-то...
Делай тогда трехзвенку. Но учти - трехзвенка все равно повторит те 1000 подключений как 1000 потоков + морока ее эксплуатации.

[Heneken87]

А вариант с запретом запуска "дубля" приложения на 1 ПК не решит проблему? Через тот же мутекс.

if GetLastError <> ERROR_ALREADY_EXISTS then
begin
Sleep(2000);//Время на выгрузку пограммы если она есть
end;
CreateMutex(nil, True, 'REESTERSKOMLEKS2013');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
showmessage('Программа уже запущена!');
SetForegroundWindow(FindWindow('TSTART_FORM',nil));
Exit;
end;

P/S: Этот код в Projekt/View Sorce
uses-Windows,Dialogs

Кждое приложение может создавать свою мютекс в мое примере это REESTERSKOMLEKS2013, вам никто не запрещает в каждом из 10 приложений создавать свой уникальный мютекс и при старте любого проверять
их по последней ошибке. (Если мютекс с таким именем уже есть GetLastError будет равно мютексу с таким же именем)

Например:
приложение 1 создало мютекс с именем PR1
приложение 2 создало мютекс с именем PR2
приложение 3 создало мютекс с именем PR3

Теперь запрет для первого приложения:

CreateMutex(nil, True, 'PR2');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
showmessage('Приложение 1 не может быть запущено,закройте приложение 2 ');
ExitProcess(0);
end;
CreateMutex(nil, True, 'PR3');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
showmessage('Приложение 1 не может быть запущено,закройте приложение 3 ');
ExitProcess(0);
end;
CreateMutex(nil, True, 'PR1');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
showmessage('Приложение 1 уже запущено,курите,пейте чай и ждите пока оно запустится ');
SetForegroundWindow(FindWindow('TSTART_FORM',nil));
Exit;
end;
И.Т.Д. Код с руки писал вам, не исключаю что потребуются "допилки"