Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

В paradox-е, файл остается заблокированным. [D5, Paradox]

Konuhov Sergey © (2003-11-03 22:25:00)

Есть программа БД написанная для BDE-paradox. Работает по локальной сети. Пока работает один пользователь, все нормально. Приблизительно раз в два дня она начинает нещадно глючить.
Проблема в том, что один из часто используемых файлов оказывается заблокированным одним из юзеров. Файл разблокируется только если все BDE программы на всех компьютерах в локальной сети. В программе действительно используется LockTable, но они везде в паре и находятся в try…Except или try…finally. Может ли файл остаться заблокированным в результате какой либо ошибки при обращении к БД? Возможно, что сама ошибка с блокировкой и не как не связана. Заранее благодарю, всех кто ответит по существу.

Konuhov Sergey (2003-11-05 10:12:00) [1]

Я согласен, что блокированть таблицу нужно только в крайнем случае.
Но в Paradox есть одна особенность, почему то в пределах одной транзакции нельзя изменить более 256 записей.
А для изменения остатков бывает надо.
Юзера почему то любят большие докуенты, именно настолько бльшие.
А без транзакции нельзя, т.к. будут портится остатки, если в мемент проводки документа что-либо произойдет.
Обойти ограничение можно только открыв таблицу монопольно или заблокировав ее.
В блокоровка выполняется только для остатков и на несколько секунд.

Anatoly Podgoretsky (2003-11-05 09:49:00) [2]

Прекрасный путь в могилу, что ты и наблюдаешь.
Это же дикость блокировать таблицу.

Konuhov Sergey (2003-11-05 09:02:00) [3]

BDE настроил, как рекомендовали в форуме.
(Local Share=true и на всех машинах одинаковые пути к базе и NetDir. Све пути на подлюченные или Subst диски)

Код блокировки выглядет так

class function TfmSklad.Lock;
BEGIN
if not SkladLocked then
try
dmCommon.tblTovInSklad.LockTable(ltWriteLock);
SkladLocked:=true;
Result:=true;
except
on E:Exception do
begin
raise Exception.Create("Остатки заблокированы, попробуйте позже."+E.Message);
Result:=false;
end;
end;
END;

class procedure TfmSklad.UnLock;
BEGIN
if SkladLocked then
begin
try
dmCommon.tblTovInSklad.UnLockTable(ltWriteLock);
except
end;
SkladLocked:=false;
end;
END;

Gorlum (2003-11-04 11:07:00) [4]

А ты BDE настроил для работы в сети.
Если нет - посмотри на этом сайте статьи.

Кщд (2003-11-04 08:16:00) [5]

код блокировки-разблокировки?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »