| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Многократное вхождение в критическую секцию.

Riply ©   (2007-02-02 04:58:00) 

Здравствуйте !
Объясните, пожалуйста, как надо делать и, главное, - почему ?
Допустим, в классе мы определили следующие две процедуры:
function TLockFile.WriteDirect(const Buffer; const Count: DWord): DWord;
begin
Lock;// Входим в критическую секцию
try
 Result := File_Write(FHandle, Buffer, Count);
finally
 Unlock;
end;
end;

function TLockFile.SingleWrite(const aFileName: string; const Buffer; const Count: DWord): DWord;
begin
Lock;
try
 if OpenLockFile(aFileName) <> INVALID_HANDLE_VALUE then
  try
   Result := WriteDirect_(Buffer, Count);
  finally
   CloseLockFile;
  end;
finally
 UnLock;
end;
end;

Имеет ли смысл переписать их следующим образом ?
function TLockFile.WriteDirect(const Buffer; const Count: DWord; SetLock: Boolean): DWord;
begin
if SetLock then Lock;
try
 Result := File_Write(FHandle, Buffer, Count);
finally
 if SetLock then Unlock;
end;
end;

function TLockFile.WriteSingle(const aFileName: string; const Buffer; const Count: DWord): DWord;
begin
Lock;
try
 if OpenLockFile(aFileName) <> INVALID_HANDLE_VALUE then
  try
   Result := WriteDirect_(Buffer, Count, False);
  finally
   CloseLockFile;
  end;
finally
 UnLock;
end;
end;
P.S. Работа с файлом взята для примера. Функции могут делать что угодно.

---

Riply   (2007-02-02 13:26:00) [1]

Спасибо. Разобралась. :)

---

evvcom   (2007-02-02 08:56:00) [2]

> [0] Riply ©   (02.02.07 04:58)

Это типа найди 7 отличий? Поражаюсь...

---

Сергей М.   (2007-02-02 08:20:00) [3]

> Имеет ли смысл


Не имеет.


> почему ?


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

---

Separator   (2007-02-02 07:15:00) [4]

Смысла не имеет, по идее в проседуре Lock должна идти проверка на LOCK|UNLOCK, а не в каждой процедуре которые их вызывают

---

Наверх