Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> проблема с работой WaitForSingleObject, CreateMutex 
:(
    Опции темы
Teran
Дата 13.3.2006, 12:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: 1
Всего: 3
есть код:
Код

...
var
  Form1: TForm1;
  Mutex1: THandle;
  Mutex2: THandle;
....
procedure TForm1.Button1Click(Sender: TObject);
begin
Mutex1 := CreateMutex(NIL, false, Pchar('FileOpen'+ExtractFileName(Application.ExeName)));
    Label1.Caption:=inttostr(WAIT_OBJECT_0);
WaitForSingleObject(Mutex1, INFINITE);
Form2.Caption:='111111111111';
Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
res:integer;
begin
Mutex2 := CreateMutex(NIL, false, Pchar('FileOpen'+ExtractFileName(Application.ExeName)));
   Label2.Caption:=inttostr(Mutex2);
WaitForSingleObject(Mutex2, INFINITE);
Form2.Caption:='22222222222';
Form2.Show;
end;


поидее должно быть: при нажатии на кнопку 1 должна выскочить форма с капшеном 1111111, а при нажатии на кнопку 2 капшен этой формы менятся не должен но он почемуто меняется т.е WaitForSingleObject(Mutex2, INFINITE); не срабатывает ?? smile smile
Добавлено @ 12:34
Причем при нажатии два раза на кнопку 1 переменная Mutex1 будет содержать разные результаты


--------------------
Ни цего не понимаю
PM MAIL ICQ   Вверх
Snowy
Дата 13.3.2006, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 30
Всего: 484
А ты запускаешь 2 копии приложения или в одном кнопки тыкаешь?
PM MAIL   Вверх
Teran
Дата 13.3.2006, 12:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: 1
Всего: 3
тыкаю в одном окне а какая разница?


--------------------
Ни цего не понимаю
PM MAIL ICQ   Вверх
Romikgy
Дата 13.3.2006, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146
Код правильно работает имхо
Добавлено @ 12:49
Код

If the function succeeds, the return value is a handle to the mutex object. If the named mutex object existed before the function call, the GetLastError function returns ERROR_ALREADY_EXISTS. Otherwise, GetLastError returns zero. 




--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
bems
Дата 13.3.2006, 12:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
мютексом владеет поток.
если ті его захватил то при попытке из того-же потока дождаться его еще раз (если не освободил) waitforsingleobject возвращается немедленно
Добавлено @ 12:57
заработает правильно если каждый обработчик будет вызываться из разного потока.
или добавь дополнение к мютексу в тлс


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Snowy
Дата 13.3.2006, 13:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 30
Всего: 484
Цитата(Teran @ 13.3.2006, 12:44 Найти цитируемый пост)
тыкаю в одном окне а какая разница?
А в том, что тред у тебя один. А раз тред один, то чего ему ждать-то? Он и так владеет мьютексом.
Или ты хотел, чтобы твой тред заморозился, пока мьютекс не освободится?
А как бы он освободился, если держащий тред заморожен?
PM MAIL   Вверх
Teran
Дата 13.3.2006, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: 1
Всего: 3
а можно ли както отловить WaitForSingleObject создание или дестрой формы без CreateMutex ????



--------------------
Ни цего не понимаю
PM MAIL ICQ   Вверх
Snowy
Дата 13.3.2006, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 30
Всего: 484
Цитата(Teran @ 13.3.2006, 16:26 Найти цитируемый пост)
отловить WaitForSingleObject
можно, если треды разные.

Цитата(Teran @ 13.3.2006, 16:26 Найти цитируемый пост)
создание или дестрой формы
События OnCreate и OnDestroy.


Цитата(Teran @ 13.3.2006, 16:26 Найти цитируемый пост)
без CreateMutex
Не понятно, что ты хочешь получить в результате.
PM MAIL   Вверх
Teran
Дата 13.3.2006, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: 1
Всего: 3
т.е. сделать наподобе этого:
Код

while FindWindow('TForm1','Test')<>0 do ;

Добавлено @ 16:32
зациклить программу пока на удалиться форма из другой программы
Добавлено @ 16:34
например сработает ли такое?
Код

WaitForSingleObject(Form2.Handle, INFINITE);



--------------------
Ни цего не понимаю
PM MAIL ICQ   Вверх
Snowy
Дата 13.3.2006, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 30
Всего: 484
Ну так и делай:
Код
while FindWindow('TForm1','Test')<>0 do Sleep(400);
PM MAIL   Вверх
Teran
Дата 13.3.2006, 19:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: 1
Всего: 3
не мне надо чтоб именно через WaitForSingleObject
типа вот так:
Код

WaitForSingleObject(FindWindow('TForm1','Test'), INFINITE);



--------------------
Ни цего не понимаю
PM MAIL ICQ   Вверх
Демо
Дата 13.3.2006, 21:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 6
Всего: 50
Teran,

Ты неправильно представляешь себе работу с объектами синхронизации.

WaitForSinleObject блокирует поток (в том числе и очереди сообщений для этого потока).

Ты бы лучше сказал, чего ты хочешь добиться, тогда можно было бы подсказать что-то.


--------------------
    
PM MAIL ICQ Skype   Вверх
Teran
Дата 14.3.2006, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: 1
Всего: 3
мне просто нужно грамотно блокировать программу пока открыта данная форма
но без sleep


--------------------
Ни цего не понимаю
PM MAIL ICQ   Вверх
_hunter
Дата 14.3.2006, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 9
Всего: 98
эээ... а ShowModal чем не устраивает?


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Teran
Дата 14.3.2006, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: 1
Всего: 3
вот какраз нужно сделать юлокировку типа ShowModal
но открытая форма находится в другой программе и как только её закрыли первая прога начинает работать


--------------------
Ни цего не понимаю
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0599 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.