Как закрыть незакрытую сессию?

← →
Дремучий © (2002-02-06 13:42) [0]

Уважаемые Мастаки,
программа использует компонент TSession и работает нормально, но...
при добавлении нового кода, иногда возникают цикличные глюки(которые тут же начинаю исправлять:), выслушивать все ругательства от Делфи не хочется, поэтому я жму
Ctrl+F2 (Reset program) - тоже все нормально, но сессия ведь нормально не закрылась! Поэтому при следующем запуске програмы выдает - Directory is busy! - тот же еффект, как если бы я запускал прогу с установленым в режиме дизайна
MySession.Active:= true;

Перезагружаю Винду и все работает, но ведь это не выход!!!
написал прогу ;) которая выдает список сессий и вот в этом списке после возникновении ошибки (Directory is busy!) моей сессии нет, т.е. закрыть нечего.

Как с этим бороться?!!

← →
User_OKA © (2002-02-06 13:54) [1]

TSession тут не причем, а вот Ctrl+F2 очень даже причем. Если не хочешь выслушивать все ругательства от Делфи отключи соответствующую опцию в проекте и он перестанет ругаться на исключения.

← →
Дремучий © (2002-02-06 14:04) [2]

2 User_OKA
как же ни при чем?
а Directory is busy!:)

а ругательства Делфи переплетаются с моими...
типа в ссвязи с тем что не открылась сессия,
выдается целый каскад сообщений, что нельзя сделать то-то и то-то...

теь более, что экзепшены бывают разные и какждый раз отключать/включать галку тоже не дело...

← →
Дремучий © (2002-02-06 17:44) [3]

ау!!!

← →
dmitryK (2002-02-06 18:38) [4]

Возможно я ошибаюсь (очень даже вероятно),
но BDE создает такой файл Pdoxusrs.net, в котором и сохраняет информацию о доступности/недоступности баз. Попробуй его удалять (естественно вместо перезагрузки), может что и получится.

← →
Дремучий © (2002-02-06 19:00) [5]

2 dmitryK
он не всегда доступен для удаления -
потому я почему-то не додумался его кильнуть,
сча попробую....

оказывается если ошибки не возникает,
а просто сделать Ctrl+F2 - сессия закрывается нормально(видать нет залоченых записей) и ошибка Directory is busy! не возникает.

так что надо еще суметь проэмулировать ошибку...
о результатах напишу.

← →
erik © (2002-02-06 19:13) [6]

Все просто у тебя есть временые файлы в директории PrivateDir. Удали их, если незохотят тогда выди из Delphi и удали.

Все просто у тебя есть временые файлы в директории PrivateDir. Удали их, если незахотят тогда выди из Delphi и попробй снова.

2 erik
сенкс,
попробую

try
Session1.Active:=true;
....
....
....
exception
Session.Active:=false;
raise;
end;

Как закрыть незакрытую сессию? Найти похожие ветки