VPF::проблема с работой WaitForSingleObject - Форум программистов

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

Добавлено @ 12:34
Причем при нажатии два раза на кнопку 1 переменная Mutex1 будет содержать разные результаты

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

Ни цего не понимаю

Snowy

Дата 13.3.2006, 12:39 (ссылка)

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

Загрузка ...

Эксперт

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

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

А ты запускаешь 2 копии приложения или в одном кнопки тыкаешь?

Teran

Дата 13.3.2006, 12:44 (ссылка)

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

Загрузка ...

Опытный

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

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

тыкаю в одном окне а какая разница?

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

Ни цего не понимаю

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.

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

bems

Дата 13.3.2006, 12:54 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 21
Всего: 88

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

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

Обижено школьников: 8

Snowy

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

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

Загрузка ...

Эксперт

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

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

Цитата(Teran @ 13.3.2006, 12:44

)

тыкаю в одном окне а какая разница?

А в том, что тред у тебя один. А раз тред один, то чего ему ждать-то? Он и так владеет мьютексом.
Или ты хотел, чтобы твой тред заморозился, пока мьютекс не освободится?
А как бы он освободился, если держащий тред заморожен?

Teran

Дата 13.3.2006, 16:26 (ссылка)

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

Загрузка ...

Опытный

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

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

а можно ли както отловить WaitForSingleObject создание или дестрой формы без CreateMutex ????

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

Ни цего не понимаю

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

Не понятно, что ты хочешь получить в результате.

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);

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

Ни цего не понимаю

Snowy

Дата 13.3.2006, 16:58 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ну так и делай:

Код

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

Teran

Дата 13.3.2006, 19:08 (ссылка)

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

Загрузка ...

Опытный

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

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

не мне надо чтоб именно через WaitForSingleObject
типа вот так:

Код


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

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

Ни цего не понимаю

Демо

Дата 13.3.2006, 21:21 (ссылка)

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

Загрузка ...

Эксперт

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

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

Teran,

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

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

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

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

Teran

Дата 14.3.2006, 11:43 (ссылка)

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

Загрузка ...

Опытный

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

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

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

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

Ни цего не понимаю

_hunter

Дата 14.3.2006, 11:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

эээ... а ShowModal чем не устраивает?

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

Tempora mutantur, et nos mutamur in illis...

Teran

Дата 14.3.2006, 12:59 (ссылка)

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

Загрузка ...

Опытный

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

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

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

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

Ни цего не понимаю

bems

Дата 14.3.2006, 14:24 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 21
Всего: 88

event?

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

Обижено школьников: 8

Romikgy

Дата 14.3.2006, 14:32 (ссылка)

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

Загрузка ...

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

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

Репутация: 13
Всего: 146

Teran, имхо можно поставить хук на закрытие необходимой тебе формы smile

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Демо

Дата 14.3.2006, 14:49 (ссылка)

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

Загрузка ...

Эксперт

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

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

Teran,

Если вторая программа твоя, то какие проблемы?
Используй Event's...

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

Teran

Дата 14.3.2006, 14:59 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Демо @ 14.3.2006, 14:49

)

Используй Event's...

не подскажеш коротенький примерчик?

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

Ни цего не понимаю

Демо

Дата 14.3.2006, 15:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

Приложение 1

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HEvent: THandle;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  HEvent := CreateEvent(nil,True,False,'UniqueNameEvent');
  if HEvent=0 then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Application.Terminate;
  end;
  WaitForSingleObject(HEvent,INFINITE);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if HEvent<>0 then CloseHandle(HEvent);
end;

end.

Приложение 2:

На форме 1:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

На форме 2:

Код


unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  HEvent: THandle;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  HEvent := CreateEvent(nil,True,False,'UniqueNameEvent');
  if HEvent=0 then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    CLose;
  end;
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if HEvent<>0 then
  begin
    SetEvent(HEvent);
    CloseHandle(HEvent);
  end;
end;

end.

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

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