Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.31;
Скачать: CL | DM;

Вниз

Странное поведение функции TryEnterCriticalSection()   Найти похожие ветки 

 
Th   (2004-09-28 16:15) [0]

Следующий код работает как-то не очень.. Первый раз функция TryEnterCriticalSection() входит в критическую секцию и возвращает true, а вот во второй раз не желает - всегда false, хотя LeaveCriticalSection() вызывается перед вторым разом. EnterCriticalSection() вместо TryEnterCriticalSection() работает нормально.


try
if not TryEnterCriticalSection(SocketCS) then
 raise Exception.Create("Service is busy by another client")
else
 begin
 {...}
 end;
finally
LeaveCriticalSection(SocketCS)
end;


подскажите плз, в чем грабли?


 
Th   (2004-09-28 16:20) [1]

Все, сорри, вопрос снят.


 
Almaz ©   (2004-09-28 16:29) [2]

Обратите внимание на свой код: если TryEnterCriticalSection вернет FALSE то инициируется исключение и в finally будет вызвана LeaveCriticalSection, хотя входа в секцию осуществлено не было. TryEnterCriticalSection возвращает True только если число вызовов EnterCriticalSection и LeaveCriticalSection совпадает. Т.е. если LeaveCriticalSection вызвано без EnterCriticalSection, то TryEnterCriticalSection вернет FALSE. Учтите это при проектировании Вашего приложения и все заработает.
Например приведенный выше код измените на:
if not TryEnterCriticalSection(SocketCS) then
raise Exception.Create("Service is busy by another client")
else
 try
   ...
 finally
   LeaveCriticalSection(SocketCS)
 end;


Удачи.

p.s. Простой пример:

 InitializeCriticalSection(SocketCS);
 LeaveCriticalSection(SocketCS);
 if TryEnterCriticalSection(SocketCS) then
   ShowMessage("True")
 else
   ShowMessage("False");


 
Th   (2004-09-28 16:40) [3]

спасибо, именно это и было - LockCOunt оказывался -2 из-за того, что LeaveCriticalSection дергалась лишний раз в другом месте..



Страницы: 1 вся ветка

Текущий архив: 2004.10.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
6-1092992182
Den
2004-08-20 12:56
2004.10.31
Вопрос, по закачкам, с помощью делфи


14-1097499560
Xmen
2004-10-11 16:59
2004.10.31
Unistall Delphi


1-1097831762
П7
2004-10-15 13:16
2004.10.31
Высота текста с переносами


14-1096638318
malkolinge
2004-10-01 17:45
2004.10.31
Delphi programmer needed


14-1097268788
Mishenka
2004-10-09 00:53
2004.10.31
Где можно скачать библиотеку Jedi?