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

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

Удаление MUTEX

AlexXn ©   (2004-09-29 12:06:00) 

Я создаю mutex на midas сервере(на клиенте вызывается удаленная процедура). Потом сам же пытаюсь удалить это mutex(так же с этого  же пользователя вызываю другую процедуру). Не дает, ругается на owner... Как удалить этот мютекс?

---

Digitman   (2004-09-29 13:13:00) [1]

> AlexXn   (29.09.04 12:10) [2]


что-то ты не то делаешь ...

при иниц-ции модуля создай мьютекс (если он уже существует, он просто будет окрыт), сохрани полученный хэндл в глоб.переменной hMutex: Thandle ... флаг bInitialOwner д.б. False при этом

при финализации модуля закрой хэндл closehandle(hMutex)

в теле LockRecord() вызывай одну из WaifFor-функций для hMutex

в теле UnLockRecord() вызывай ReleaseMutex(hMutex)

---

AlexXn   (2004-09-29 13:01:00) [2]

>clickmaker
Вместо ReleaseMutex сделал CloseHandle. GetLastError возвратил 0, но при повторном создании mutex с такими же параметрами говорит, что такой уже существует

---

clickmaker   (2004-09-29 12:53:00) [3]

> [4] AlexXn   (29.09.04 12:51)

ReleaseMutex - это операция обратная WaitFor...
А тебе видимо нужно CloseHandle делать

---

AlexXn   (2004-09-29 12:51:00) [4]

>Digitman

procedure TdmServerBank.UnlockRecord(const ATableName: WideString;
const AID: WideString);
var
AMutex: THandle;
begin
AMutex := OpenMutex(MUTEX_ALL_ACCESS, True, PChar(ATableName + ':' + AID));
if AMutex <> 0 then
  ReleaseMutex(AMutex) ;
end;


---

Digitman   (2004-09-29 12:38:00) [5]

> пытаюсь удалить это mutex


и где же ты в этом коде "удаляешь" мьютекс ?

---

AlexXn   (2004-09-29 12:10:00) [6]


procedure TdmServerBank.IsRecordLock(const ATableName: WideString;
 const AID: WideString; out ALocked: Integer);
begin
 CreateMutex(nil, False, PChar(PChar(ATableName) + ':' + PChar(AID)));
 ALocked := GetLastError;
end;

procedure TdmServerBank.LockRecord(const ATableName: WideString;
 const AID: WideString);
begin
 CreateMutex(nil, False, PChar(ATableName + ':' + AID));
end;

procedure TdmServerBank.UnlockRecord(const ATableName: WideString;
 const AID: WideString);
var
 AMutex: THandle;
begin
 AMutex := OpenMutex(MUTEX_ALL_ACCESS, True, PChar(ATableName + ':' + AID));
 if AMutex <> 0 then
   ReleaseMutex(AMutex);
end;

---

Anatoly Podgoretsky   (2004-09-29 12:07:00) [7]

Ошибка в 17 строке.

---

Наверх