ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Не работает (CLEAR EVENTS и QUIT)
11 сообщений из 11, страница 1 из 1
Не работает (CLEAR EVENTS и QUIT)
    #35451248
Imperous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imperous
Участник
Всем привет!

Собственно хочу избежать повторного запуска приложения.
Сделал по примеру из fox-club (исп-ся mutex), т.е.
в main.prg (главный запускаемый файл) вписал объявление переменных,
проверку на запущено ли приложение, все это отрабатывает как надо,
но далее, когда надо закрыть это приложение, создал процедурку (опять же из примера фокс-клаба) позакрывал хендлы, затем по примеру в случае если запущено приложение, идет следующее: RETURN

При таком подходе программа просто начинает мелькать.
Пробовал (до/вместо) RETURN писать CLEAR EVENTS и QUIT.
И реакции никакой, программа запускается как ни в чем не бывало.
...
Рейтинг: 0 / 0
25.07.2008, 10:16
| Ответить | Цитировать | Написать  
Не работает (CLEAR EVENTS и QUIT)
    #35451270
Sergey Sizov.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov.
Гость
Проблемы с кодом лучше всего приводить вместе с кодом. Лучше один раз увидеть, чем сто раз услышать.
...
Рейтинг: 0 / 0
25.07.2008, 10:21
| Ответить | Цитировать | Написать  
Не работает (CLEAR EVENTS и QUIT)
    #35451302
Imperous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imperous
Участник
********************* main.prg
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
SET TALK OFF
SET STATUS BAR OFF
SET CENTURY on
SET ESCAPE OFF
SET DELETED ON
SET PATH TO menu, prg, data, form

ON SHUTDOWN clear events

***Проверка запущена ли ранее эта прога
LOCAL lcApplicationName 
lcApplicationName = GetEnv("АТС") + "#"+ SYS( 0 ) 
* Формируем ссылку на объект Mutex 
Declare Integer CreateMutex In Win32API ; 
Integer lpMutexAttributes, ; 
Integer bInitialOwner, ; 
String lpName 
PUBLIC gnMutex 
gnMutex = CreateMutex( 0 , 1 ,m.lcApplicationName) 
* Проверяем факт существования объекта Mutex с тем же именем 
#DEFINE ERROR_ALREADY_EXISTS  183  
Declare integer GetLastError In Win32API 

If GetLastError() = ERROR_ALREADY_EXISTS 
	Do CloseMutex with .T. 
ENDIF
***Проверка запущена ли ранее эта прога

OPEN DATABASE ats.dbc
PUSH MENU _MSYSMENU

DO menu1.mpr
_screen.Visible =.t.
_screen.Caption ="АТС"
_screen.AutoCenter= .T.
_screen.BackColor=RGB( 192 , 192 , 192 )
_screen.WindowType =  0 
_screen.WindowState = 2 


READ events
POP MENU _MSYSMENU
ON SHUTDOWN


*************************CloseMutex.prg
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Procedure CloseMutex 
LParameters IsExists 
If IsExists = .f. 
	Declare integer ReleaseMutex IN Win32API Integer hMutex 
EndIf 
	Declare integer CloseHandle IN Kernel32 Integer hObject 
	CloseHandle(m.gnMutex) 
EndProc
...
Рейтинг: 0 / 0
25.07.2008, 10:30
| Ответить | Цитировать | Написать  
Не работает (CLEAR EVENTS и QUIT)
    #35451330
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
...
If GetLastError() = ERROR_ALREADY_EXISTS 
	Do CloseMutex with .T. 

	RETURN
ENDIF
...
...
Рейтинг: 0 / 0
25.07.2008, 10:36
| Ответить | Цитировать | Написать  
Не работает (CLEAR EVENTS и QUIT)
    #35451348
Imperous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imperous
Участник
ВладимирМ
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
...
If GetLastError() = ERROR_ALREADY_EXISTS 
	Do CloseMutex with .T. 

	RETURN
ENDIF
...


вот когда этот RETURN есть программа запускается и дрожит (мелькает)
...
Рейтинг: 0 / 0
25.07.2008, 10:41
| Ответить | Цитировать | Написать  
Не работает (CLEAR EVENTS и QUIT)
    #35451354
Imperous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imperous
Участник
на его место ставил CLEAR EVENTS и QUIT
...
Рейтинг: 0 / 0
25.07.2008, 10:42
| Ответить | Цитировать | Написать  
Не работает (CLEAR EVENTS и QUIT)
    #35451390
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Imperous ВладимирМ
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
...
If GetLastError() = ERROR_ALREADY_EXISTS 
	Do CloseMutex with .T. 

	RETURN
ENDIF
...


вот когда этот RETURN есть программа запускается и дрожит (мелькает)
Добавь в файл конфигурации Config.FPW строку

SCREEN=OFF

А непосредственно перед командой READ EVENTS сделай приложение видимым командой

Код: plaintext
1.
2.
_SCREEN.Visible = .T.
READ EVENTS

Подробнее здесь

Как скрыть главное окно FoxPro (SCREEN)

По поводу подключения файла конфигурации здесь

Часть букв при вводе заменяются латинскими
...
Рейтинг: 0 / 0
25.07.2008, 10:50
| Ответить | Цитировать | Написать  
Не работает (CLEAR EVENTS и QUIT)
    #35451424
GoshaS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GoshaS
Участник
у меня попроще сделано, вроде без проблем отрабатывает :)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
ON SHUTDOWN do prc_exit in p_start
READ EVENTS	

********************
PROCEDURE prc_exit
	CLEAR EVENTS
	FOR i= 1  TO _screen.FormCount
		_screen.Forms(m.i).release()
	ENDFOR 
	CLOSE TABLES all
	CLOSE DATABASES ALL 
	IF TYPE('_nCH')=='N'
		IF _nCH> 0 
			SQLDISCONNECT(_nCH)
		ENDIF 	
	ENDIF 
	ON SHUTDOWN 
	QUIT 
	*CANCEL 
ENDPROC
...
Рейтинг: 0 / 0
25.07.2008, 10:58
| Ответить | Цитировать | Написать  
Не работает (CLEAR EVENTS и QUIT)
    #35451433
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Да, перенеси настройку

ON SHUTDOWN clear events

и вообще ВСЕ настройки ПОСЛЕ выполнения проверки. СНАЧАЛА проверка и если запущено приложение - выход, ПОТОМ все необходимые настройки.
...
Рейтинг: 0 / 0
25.07.2008, 11:01
| Ответить | Цитировать | Написать  
Не работает (CLEAR EVENTS и QUIT)
    #35451487
Imperous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imperous
Участник
ВладимирМ Imperous ВладимирМ
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
...
If GetLastError() = ERROR_ALREADY_EXISTS 
	Do CloseMutex with .T. 

	RETURN
ENDIF
...


вот когда этот RETURN есть программа запускается и дрожит (мелькает)
Добавь в файл конфигурации Config.FPW строку

SCREEN=OFF

А непосредственно перед командой READ EVENTS сделай приложение видимым командой

Код: plaintext
1.
2.
_SCREEN.Visible = .T.
READ EVENTS

Подробнее здесь

Как скрыть главное окно FoxPro (SCREEN)

По поводу подключения файла конфигурации здесь

Часть букв при вводе заменяются латинскими

сделал, результат тот же
...
Рейтинг: 0 / 0
25.07.2008, 11:16
| Ответить | Цитировать | Написать  
Не работает (CLEAR EVENTS и QUIT)
    #35451508
Imperous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Imperous
Участник
ВладимирМДа, перенеси настройку

ON SHUTDOWN clear events

и вообще ВСЕ настройки ПОСЛЕ выполнения проверки. СНАЧАЛА проверка и если запущено приложение - выход, ПОТОМ все необходимые настройки.

после вот этого заработало, пасиба!!!
...
Рейтинг: 0 / 0
25.07.2008, 11:21
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Не работает (CLEAR EVENTS и QUIT)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35451508&tid=1587480]:
 0ms
get settings:
 11ms
get forum list:
 24ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 76ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 236ms
total:  417ms
созд. / загр.: 417ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]