- 240 名前：デフォルトの名無しさん [2016/05/01(日) 07:16:02.11 ID:jBPR48Zm.net]
- 今日夜中に気づいた
unit DBTables;
で
function TSession.DoOpenDatabase
データーベースがアクティブに出来ないと
LockSession;{例外が出る､ここでの例外は困る}
try
が､tryの前で出るので
finally
UnLockSession;{が実行できない}
end;
明らかに､Bug
//LockSession;
try
LockSession;//ここに移動
の下に入れないといけない
原因はLockSessionにある
procedure TSession.LockSession;
begin
if FLockCount = 0 then
begin
EnterCriticalSection(FCSect);//例外が出るとUnLockSessionが呼び出しが出来なくなる
Inc(FLockCount);
MakeCurrent;//データーベースがOpen出来ないと例外が出る
end
else
Inc(FLockCount);
end;
｛BDEはもう関係ないと思うが｝
TSession.LockSession;系はなおしてね
|
 |
