Re: Поддержка мютексов на уровне сервера

[Мадорский Г . В .]

Что-то типа такого подойдет?

while Gen_Id(LockGen,0) = 1 do
begin
end;

Select Gen_Id(LockGen,1) from rdb$database

Тута работаем...
...

Select Gen_Id(LockGen,-1) from rdb$database
when any
 Select Gen_Id(LockGen,-Gen_Id(LockGen,0)) from rdb$database