VPF::Mutex - один поток захватывает, а другой освобожда

Gershkovich

Дата 20.2.2006, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: нет
Всего: 2

Такая ситуация:

Первый поток захватывает мутех:
WaitForSingleObject(my mutex);

Может ли другой поток освободить его ???
CloseHandle(my mutex)

Или это должен сдделать тот поток, который его захватил ??

Спасибо.

_hunter

Дата 20.2.2006, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

должен освобождать захвативший поток

--------------------

Tempora mutantur, et nos mutamur in illis...

Gershkovich

Дата 21.2.2006, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: нет
Всего: 2

А как тогда выкрутится ?

Я использую мутехи для lock\unlock объекта.

Т.е. поток N1 лочит объект (простой объект типа TObject ) и передает
его потоку N2.

Поток N2 поработав с объектом его раздочивает.

это выглядит примерно так:

Код


function TMyObject.Lock(TimeOut : cardinal) : boolean;
var WaitResult : TWaitResult;
begin
  Result:= false;

  WaitResult:= WaitForSingleObject(_mutex, TimeOut);
  if (WaitResult=wrSignaled) and not self.Locked then begin
    self.Locked:= true;
    Result:= true;
    _mutex.SetEvent;
  end;
end;

procedure TMyObject.UnLock;
begin
  WaitForSingleObject(_mutex, INFINITE);
  Locked:= false;
  _mutex.SetEvent;
end;

в процедуре UnLock настоящие чудеса: процедура вызывается
но Locked остается true без эксепшнов.
Иногда просто зависает.

Такое впечатление что я что-то упустил.
Подкиньте идею куда копать.

Спасибо.

_hunter

Дата 21.2.2006, 11:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

а зачем поток N2 объект раздочивает ( интересно, что этот термин значит )?
этим, по правилам, первый поток должен заниматься. в этом случае второй поток забирает мьютекс, а первый, по его (мьютекса) освобождению раздочивает объект.

--------------------

Tempora mutantur, et nos mutamur in illis...

Gershkovich

Дата 21.2.2006, 12:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: нет
Всего: 2

Извините за опечатку.

раздочивает - правильно писать разЛочивает
т.е. вызывает метод Unlock у объекта.

Насчет правил я не спорю.
Но мне надо именно такая модель - пока два потока работают с объектом
третий не мог бы вмешаться.
Я хотел реализовать модель захвата объекта - это значит корректно
выставить флаг Locked , чтобы третий поток не мог обратиться к нему.

Т.е. поток N3 пытается вызвать Lock примерно так :

Код


if obj.Lock(1000) then begin
  // process object
end else begin
  // exit procedure
end;

Мне кажется такое возможно, но мне не хватает знаний для реализации

_hunter

Дата 21.2.2006, 13:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

если ты так хочеш уйти от синхронизации мьютексами -- используй критические секции ( в нее по-очереди сможет входить любой поток ). и в этой секции и выставляй Locked/UnLocked.
но ты просто будеш дублировать работу мьютекса

--------------------

Tempora mutantur, et nos mutamur in illis...

Akina

Дата 21.2.2006, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: нет
Всего: 454

Цитата(Gershkovich @ 21.2.2006, 11:49

)

Т.е. поток N1 лочит объект (простой объект типа TObject ) и передает
его потоку N2.
Поток N2 поработав с объектом его разлочивает.

Я не понимаю - что мешает потоку 2 после работы вернуть объект потоку 1 для разлочивания?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Gershkovich

Дата 21.2.2006, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: нет
Всего: 2

Цитата(Akina @ 21.2.2006, 13:59

)

Я не понимаю - что мешает потоку 2 после работы вернуть объект потоку 1 для разлочивания?

Мешает хотя бы то что поток 1 давно уже завершился.

Snowy

Дата 21.2.2006, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Если он завершился, то уже никак не может ничего держать.

Gershkovich

Дата 22.2.2006, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: нет
Всего: 2

Если кому интересно- я решил задачу использова Event

Код


function TMyObject.Lock(TimeOut : cardinal) : boolean;
begin
  Result:= WaitForSingleObject(event, TimeOut) = WAIT_OBJECT_0;
end;

procedure TMyObject.UnLock;
begin
  SetEvent(event);
end;

Поток 1 вызывает Lock, тем самым сбрасывая event
поток 2, завершив свои дела с объектом, восстанавливает event

Поток 3 пытается

Код


if MyObject.Lock(1000) then begin
  //process  MyObject
end esle begin
  //Skip processing
  Exit;
end;

Это сообщение отредактировал(а) Gershkovich - 22.2.2006, 10:29

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »