Отправлено: 14.05.18 21:33. Заголовок: Вылет из программы...

Всем привет !
Как можно в МиниГуи программе сделать вызов своих функций при аварийном завершении программы (т.е. при вылете) ?
Т.е. хочу сделать сразу после появления MsgBox() вызов 2-3 функций и потом сделать DbCloseAll().
Как это реализовать ?

Для чего это нужно, поясню: при входе в свою программу я пишу в базу кто и когда вошел в программу (логин пользователя).
И при выходе из программы, стираю этого пользователя из базы.
Если программа "вылетает", то юзер числится как работающий.
Древнее наследие с клипера, хотел переделать, да так и осталось.

 Отправлено: 05.07.23 21:39. Заголовок: Andrey пишет: Не по..

Andrey пишет:

цитата:

Не понял, это как ?

может в личку перейдете ?
От обсуждения mg как то незаметно перешли в help desk Андрея.

 Отправлено: 05.07.23 21:45. Заголовок: Andrey пишет Не поня..

Andrey пишет

цитата:

Не понял, это как ?

:Event(VK_RETURN, {|ow| /*1*/ my_Modal(ow, 0), /*2*/ my_Modal(ow, 1)})
...

 
 FUNC my_Modal(oWnd, nVxod) 
 ... 
 0.  
 ON INIT {|| iif(nVxod > 0, OnInitFormTvr(), ( This.Minimize, _wPost(99) ) ) } 
 1. 
 ON INIT {|| This.Minimize, DoEvents(), _wPost( iif(nVxod > 0, 0, 99) } 
 ... 
 :Event( 0, {|| This.Restore, DoEvents(), OnInitFormTvr() }) 
 :Event(99, {|ow| ow:Release() }) 
  
 

 Отправлено: 05.07.23 23:39. Заголовок: Haz пишет может в ли..

Haz пишет

цитата:

может в личку перейдете ? От обсуждения mg как то незаметно перешли в help desk Андрея.

Перейдем, но ситуация взаимодействия фокуса окон main, несколько standard, к ним по нескольку modal никуда не денется, т.к. один раз вход со standard (бывает и всегда) на modal и выход из modal, окно standard прячется под main (к desktopу прижимается), а запуск с modal др. modal и возврат с него, приводит к убеганию фокуса куда то типа на main, а сверху модал 1 и вернуть фокус на это модал не получается (_HMG_InplaceParent задан). там еще есть ситуции, сверху standard modal окно 1 (с него по Enter можем входить в modal 2 и на нем по Enter можем вызывать окно AlertInfo(), тоже модал), часть окна standard видна из под модал 1. Любой клик на любом месте standard окна активирует несколько нажатий Enter на modal 1 окне и мы попадаем на окно 2 модал и с него на AlertInfo(). Эта ситуация видна в примере, который я выкладывал выше. Причем это происходит один раз при первом вызове со standard окна modal 1. Потом со standard -> modal 1 -> ... все работает ok!. Выходим из окна standard на main и снова нажимаем кнопку -> standard -> modal 1, кликаем на standard и вся сбойная ситуация повторяется 1 раз. На всех окнах standard и модал таблицы тсб на customer.dbf

 Отправлено: 06.07.23 00:01. Заголовок: SergKis пишет: Пере..

SergKis пишет:

цитата:

Перейдем, но ситуация взаимодействия фокуса окон main, несколько standard, к ним по нескольку modal никуда не денется,

Сергей, без обид. Решение уже есть ? Молодцы ,что поймали косяк , но это частная ситуация. Если еще 2 человека напишут сюда о такой же проблеме у них, готов публично перед всеми извиниться.
Возможно эта проблема связана со стилем программирования и использования функционала МГ, но это не глобальная проблема. За 20 лет моего опыта использования МГ , все фокусы с фокусами решались стандартными средствами МГ.

 Отправлено: 27.07.23 12:54. Заголовок: Есть у заказчика Win..

Есть у заказчика Windows 11, прога на МиниГуи за день 8 раз упала.
Какие то непонятные ошибки:

Time from start: 0 days 2 hours 35 mins 13 secs 
 Error BASE/0 MiniGUI Err.: _GETCLIENTRECT Args: [1] = U 
 --------------------------------- Stack Trace --------------------------------- 
 Called from _GETCLIENTRECT(0) 
 Called from ERRORWINDOWS(798) in module: Source\ErrorSys3.prg 
 Called from SHOWERROR(253) in module: Source\ErrorSys3.prg  
  
 В коде вот это стоит: 
       nW := This.ClientWidth    // строка 798 
       nH := This.ClientHeight 
  
  
 Time from start: 0 days 1 hours 23 mins 47 secs 
 Error BASE/0 MiniGUI Err.: _GETCLIENTRECT Args: [1] = U 
 --------------------------------- Stack Trace --------------------------------- 
 Called from _GETCLIENTRECT(0) 
 Called from ASK3MENU(3427) in module: Source\form_Abonent.prg 
 Called from ASK_TARIF(55) in module: Source\form_Abonent.prg  
  
 В коде вот это стоит: 
         nMaxWidth  := This.ClientWidth       // строка 3427 
         nMaxHeight := This.ClientHeight 
  
  
 Time from start: 0 days 0 hours 34 mins 59 secs 
 Error BASE/1093 Неверный аргумент: MAX Args: [1] = U [2] = N 34.00 
 --------------------------------- Stack Trace --------------------------------- 
 Called from MAX(0) 
 Called from _SETGETBOXCARET(0) 
 Called from OGETEVENTS(0) 
 Called from DOMESSAGELOOP(0) 
 Called from _ACTIVATEWINDOW(0) 
 Called from SHOW_CARD(444) in module: Source\Tbrw_fCard.prg  
  
    ACTIVATE WINDOW Form_Card   // строка 444 
  
 Time from start: 0 days 2 hours 27 mins 42 secs 
 Error BASE/5001 MiniGUI Error: _SETFONT Args: [1] = N 0 [2] = C Tahoma [3] = N 20 [4] = L F [5] = L F [6] = L F [7] = L F 
 --------------------------------- Stack Trace --------------------------------- 
 Called from _SETFONT(0) 
 Called from _DEFINEGETBOX(0) 
 Called from MYCARDFIELDGETBOX(1787) in module: Source\Tbrw_fCard.prg 
 Called from SHOWPAGECARD(1288) in module: Source\Tbrw_fCard.prg 

Причём видно же, что прога поработает и только спустя какое то время падает. ПОЧЕМУ ?
На Win10 нет таких ошибок, там редко падает.
Что можно сделать ?

 Отправлено: 10.08.23 14:58. Заголовок: У моего юзера Win10,..

У моего юзера Win10, нормальный комп.
Моя прога постоянно падает или виснет в течении дня, раза 4-8 за день.
Бьюсь с этой проблемой порядка 2-х лет.
После долгих проб и помощи Сергея выяснилось...
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ в большой проге таймера на главной форме !!!
После нескольких срабатываний таймера портят окружение и работающие функции начинают виснуть или вылетать !!!
Вчера ради эксперимента отключил в своей проге таймера.
Прога за день ни разу НЕ ПОВИСЛА и НЕ ВЫЛЕТЕЛА !!!
Что-то с таймерами в МиниГуи не то....

 Отправлено: 10.08.23 18:15. Заголовок: Andrey пишет: НЕЛЬЗ..

Andrey пишет:

цитата:

НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ в большой проге таймера на главной форме !!!

Ну не знаю, один проект пять лет живет с тремя таймерами на главной форме, причем один ежесекундно работает. Ничего не виснет.
Правда все процедуры таймера в потоках идут. Окружение не пользую, все контролы стараюсь задавать явно.
Скорее проблема в окружении и его использовании, а таймер просто обозначил проблему

PS. С днём рождения тебя 👍

 Отправлено: 11.08.23 15:33. Заголовок: Haz пишет: Правда в..

Haz пишет:

цитата:

Правда все процедуры таймера в потоках идут

Вот это и отличается !
Так и нужно делать, а не как я.

Haz пишет:

цитата:

С днём рождения тебя 👍

Спасибо БОЛЬШОЕ !

 Отправлено: 15.08.23 17:48. Заголовок: Как избавиться от ош..

Как избавиться от ошибок в МиниГуи ?
Можно ли поставить доп. проверки ?

Вот такая ошибка появляется часто, за 5 дней была 4 раза.
Комп новый Core-i5, Win10 64bit

Time from start: 0 days 0 hours 34 mins 59 secs  
  Error BASE/1093 Неверный аргумент: MAX Args: [1] = U [2] = N 34.00  
  --------------------------------- Stack Trace ---------------------------------  
  Called from MAX(0)  
  Called from _SETGETBOXCARET(0)  
  Called from OGETEVENTS(0)  
  Called from DOMESSAGELOOP(0)  
  Called from _ACTIVATEWINDOW(0)  
  Called from SHOW_CARD(444) in module: Source\Tbrw_fCard.prg 

Сергей мне написал что это ошибка в коде:

Это где то тут (в целом работа с GETBOX {каретка\вид курсора} идет в  
                 обработчике: "Called from OGETEVENTS(0)") 
 *-----------------------------------------------------------------------------* 
 STATIC PROCEDURE _SetGetBoxCaret( hWnd ) 
 *-----------------------------------------------------------------------------* 
    LOCAL hDC 
    LOCAL aMetr 
    LOCAL nEnd 
    LOCAL cChar 
    LOCAL nWidth 
    LOCAL nHeight 
  
    HideCaret( hWnd ) 
    DestroyCaret() 
  
    IF ! IsWindowHasStyle( hWnd, ES_READONLY ) 
       nEnd  := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) 
       cChar := HMG_EditControlGetChar( hWnd, nEnd ) 
  
       hDC   := GetDC( hWnd ) 
       aMetr := GetTextMetric( hDC ) 
       ^^^^^ - тут: aMetr[ 1 ] == "U" or aMetr[ 2 ] == "U" 
               возможно hDC не выделился, может ресурсов не хватило, но ХЗ что на самом деле 
  
       ReleaseDC( hWnd, hDC ) 
       nHeight := aMetr[ 1 ] 
       nHeight := Max( nHeight, .85 * GetWindowHeight( hWnd ) ) 
                       ^^^^^^^ - U 
  
       nWidth  := aMetr[ 2 ] 
       nWidth  := Max( nWidth, .75 * HMG_GetCharWidth( hWnd, cChar ) ) 
                       ^^^^^^^ - U 
  
       #define SM_CXBORDER  5 
       CreateCaret( hWnd, 0, iif( lInsert, GetSystemMetrics( SM_CXBORDER ), Int( nWidth ) ), nHeight ) 
       ShowCaret( hWnd ) 
    ENDIF 
  
 RETURN

Григорий, сделай что то, а то юзер прав, а я не знаю что делать....

 Отправлено: 15.08.23 17:52. Заголовок: Andrey пишет: Григо..

Andrey пишет:

цитата:

Григорий, сделай что то, а то юзер прав, а я не знаю что делать....

Так он же писал
После 18-ти лет активной разработки этот проект подошел для меня к концу по понятным причинам

 Отправлено: 15.08.23 20:34. Заголовок: Andrey пишет: Григо..

Andrey пишет:

цитата:

Григорий, сделай что то

"А что, так можно было?")))
Ты очень много лет занимался копипастом. Пора взяться за ум)) Без обид.

 Отправлено: 15.08.23 22:28. Заголовок: Andrey пишет: Григо..

Andrey пишет:

цитата:

Григорий, сделай что то, а то

Григорий и так слишком долго и много делал для этого проекта. Дальше сам или ищи другого спонсора. Ничего невозможного нет, просто нужно начать делать своими руками и думать своей головой

 Отправлено: 17.08.23 20:34. Заголовок: SergKis пишет: Это..

SergKis пишет:

цитата:

Это где то тут (в целом работа с GETBOX {каретка\вид курсора} идет в обработчике: "Called from OGETEVENTS(0)") *-----------------------------------------------------------------------------* STATIC PROCEDURE _SetGetBoxCaret( hWnd ) *-----------------------------------------------------------------------------* LOCAL hDC LOCAL aMetr LOCAL nEnd LOCAL cChar LOCAL nWidth LOCAL nHeight HideCaret( hWnd ) DestroyCaret() IF ! IsWindowHasStyle( hWnd, ES_READONLY ) nEnd := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) cChar := HMG_EditControlGetChar( hWnd, nEnd ) hDC := GetDC( hWnd ) aMetr := GetTextMetric( hDC ) ^^^^^ - тут: aMetr[ 1 ] == "U" or aMetr[ 2 ] == "U" возможно hDC не выделился, может ресурсов не хватило, но ХЗ что на самом деле ReleaseDC( hWnd, hDC ) nHeight := aMetr[ 1 ] nHeight := Max( nHeight, .85 * GetWindowHeight( hWnd ) ) ^^^^^^^ - U nWidth := aMetr[ 2 ] nWidth := Max( nWidth, .75 * HMG_GetCharWidth( hWnd, cChar ) ) ^^^^^^^ - U #define SM_CXBORDER 5 CreateCaret( hWnd, 0, iif( lInsert, GetSystemMetrics( SM_CXBORDER ), Int( nWidth ) ), nHeight ) ShowCaret( hWnd ) ENDIF RETURN

Предлагаю для проверки исправленную редакцию этой функции:

 
 *-----------------------------------------------------------------------------* 
 STATIC PROCEDURE _SetGetBoxCaret( hWnd ) 
 *-----------------------------------------------------------------------------* 
    LOCAL hDC 
    LOCAL aMetr 
    LOCAL nEnd 
    LOCAL cChar 
    LOCAL nDefHeight 
    LOCAL nDefWidth 
    LOCAL nHeight 
    LOCAL nWidth 
  
    HideCaret( hWnd ) 
    DestroyCaret() 
  
    IF ! IsWindowHasStyle( hWnd, ES_READONLY ) 
       nEnd  := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) 
       cChar := HMG_EditControlGetChar( hWnd, nEnd ) 
  
       nDefHeight := .85 * GetWindowHeight( hWnd ) 
       nDefWidth  := .75 * HMG_GetCharWidth( hWnd, cChar ) 
  
       hDC   := GetDC( hWnd ) 
       aMetr := GetTextMetric( hDC ) 
       ReleaseDC( hWnd, hDC ) 
       IF aMetr[ 1 ] != NIL 
          nHeight := aMetr[ 1 ] 
          nHeight := Max( nHeight, nDefHeight ) 
       ELSE 
          nHeight := nDefHeight 
       ENDIF 
       IF aMetr[ 2 ] != NIL 
          nWidth  := aMetr[ 2 ] 
          nWidth  := Max( nWidth, nDefWidth ) 
       ELSE 
          nWidth := nDefWidth 
       ENDIF 
  
       #define SM_CXBORDER 5 
       CreateCaret( hWnd, 0, iif( lInsert, GetSystemMetrics( SM_CXBORDER ), Int( nWidth ) ), nHeight ) 
       ShowCaret( hWnd ) 
    ENDIF 
  
 RETURN 
 

Ваши комментарии приветствуются

 Отправлено: 17.08.23 21:20. Заголовок: Григорий ! Спасибо О..

Григорий ! Спасибо ОГРОМНОЕ !
А код библиотеки подправишь, чтобы было одинаково у всех ?

P.S. такая ошибка пошла примерно после февральской версии,
до этого такой ошибки не было, я смотрел лог ошибок у своих пользователей.
Я до этого собирал январской версией МиниГуи.

 Отправлено: 17.08.23 21:21. Заголовок: gfilatov2002 пишет П..

gfilatov2002 пишет

цитата:

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

Так возможно использовать, если мы уверены, что hWnd правильный, а если нет, то мы будем в той же ситуации, т.е. hDC будет NULL. В OGETEVENTS() кроме i := AScan ( _HMG_aControlHandles, hWnd ) и IF i <= 0 ; RETURN( 0 ) по hWnd нет ничего. Может использовать IsWindowHandle(hWnd) ? При этом причину не правильного значения hWnd вряд ли поймем.

 Отправлено: 19.08.23 15:33. Заголовок: SergKis пишет: Може..

SergKis пишет:

цитата:

Может использовать IsWindowHandle(hWnd) ?

Добавил такую проверку
Благодарю за подсказку

 Отправлено: 23.08.23 14:36. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Добавил такую проверку

Григорий, а как получить исправления по этой ошибке ?
У юзера сегодня за 4 часа, прога 4 раза падала...

Вот с такой ошибкой: 
 Time from start: 0 days 0 hours 46 mins 21 secs 
 Error BASE/1093 Неверный аргумент: MAX Args: [1] = U [2] = N 34.00 
 --------------------------------- Stack Trace --------------------------------- 
 Called from MAX(0) 
 Called from _SETGETBOXCARET(0) 
 Called from OGETEVENTS(0) 
 Called from DOMESSAGELOOP(0) 
 Called from _ACTIVATEWINDOW(0) 
 Called from SHOW_CARD(446) in module: Source\Tbrw_fCard.prg 

Комп хороший, Win10, спящего режима нет, в инет не входят, работают только в моей проге.
Прога собрана на MiniGUI Extended Edition 23.07.0 (32-bit) ANSI

 Отправлено: 23.08.23 17:35. Заголовок: Andrey пишет: Григо..

Andrey пишет:

цитата:

Григорий, а как получить исправления по этой ошибке ?

На следующей неделе выложу обновление

 Отправлено: 18.10.23 12:10. Заголовок: Нашёл причину вылета..

Нашёл причину вылета программы с таким сообщением:

Error BASE/1004 Message not found: TWNDDATA:EVENT Args: [1] = O TWNDDATA 
 --------------------------------- Stack Trace --------------------------------- 
 Called from __ERRRT_SBASE(0) 
 Called from TWNDDATA:ERROR(0) 
 Called from (b)HBOBJECT(0) 
 Called from TWNDDATA:MSGNOTFOUND(0) 
 Called from TWNDDATA:EVENT(0) 
 Called from MAIN(181) in module: Source\main.prg

Использую у себя в проекте С-код для ключа HASP, написанный давно ещё в 2013 году и который работал без проблем всё это время.
Как убираю эти функции, проект нормально запускается !
Без этих функций никак...

Пошёл по другому пути.
В МиниГуи 29.09.2 записываю Harbour с версии МиниГуи 23.01

Built on: Jan 23 2023 
 Last ChangeLog entry: 2023-01-23 12:46 UTC+0100 Przemyslaw Czerpak 
 ChangeLog ID: a6a86c100291b3ed33a2a0a680f0e5a17d627ce0

Мой проект так же успешно запускается !!!
Значит беда в самом Harbour...
Вопрос к знатокам Harbour, чем грозит использование старой версии Harbour в новом МиниГуи ?
Т.е. в версии МиниГуи 29.09.2 буду использовать Harbour с версии МиниГуи 23.01

P.S. Но проблема подвисание окон, т.е. в окне НЕЛЬЗЯ нажать любую кнопку - осталась.
Если делаешь выход из окна по ESC (хорошо хоть это есть), то при повторном вызове окна зависание пропадает.
Это происходит не везде, в моей программе 4 таких окна.

 Отправлено: 27.12.23 13:18. Заголовок: Всех с наступающим Н..

Всех с наступающим Новым Годом !

Моя большая прога стабильно работает на версии МиниГуи 29.09.2 + Harbour с версии МиниГуи 23.01
Но иногда падает вот с такой ошибкой у некоторых юзеров.

Date: 30.11.2023 Time: 16:17:13 
 User: SERVER/User2/Оксана 
 DbInfo: Alias - ZAIVKA, Ord - TEMP2INDEX, Recno - 9878/9878 
 Time from start: 0 days 6 hours 43 mins 0 secs 
 Error BASE/5001 MiniGUI Error: _SETFONT Args: [1] = N 0 [2] = C Tahoma [3] = N 20 [4] = L F [5] = L F [6] = L F [7] = L F 
 --------------------------------- Stack Trace --------------------------------- 
 Called from _SETFONT(0) 
 Called from _DEFINEGETBOX(0) 
 Called from ADDTABNEWPAGE1(396) in module: Source\form_Zaivka3.prg 
 Called from FORM_ZAIVDEFECT(111) in module: Source\form_Zaivka3.prg 
 Called from ZAIVDEFECT(37) in module: Source\form_Zaivka3.prg 
 Called from (b)HB_MACROBLOCK(0) 
 Called from SHOWPAGECARD(1205) in module: Source\Tbrw_fCard.prg  
  
 Date: 26.12.2023 Time: 16:36:31 
 User: SERVER/User2/Оксана 
 DbInfo: Alias - ZAIVKA, Ord - TEMP2INDEX, Recno - 10114/10114 
 Time from start: 0 days 7 hours 34 mins 6 secs 
 Error BASE/5001 MiniGUI Error: _SETFONT Args: [1] = N 0 [2] = C Tahoma [3] = N 20 [4] = L F [5] = L F [6] = L F [7] = L F 
 --------------------------------- Stack Trace --------------------------------- 
 Called from _SETFONT(0) 
 Called from _DEFINEGETBOX(0) 
 Called from ADDTABNEWPAGE1(396) in module: Source\form_Zaivka3.prg 
 Called from FORM_ZAIVDEFECT(111) in module: Source\form_Zaivka3.prg 
 Called from ZAIVDEFECT(37) in module: Source\form_Zaivka3.prg 
 Called from (b)HB_MACROBLOCK(0) 

Мой код вообще не причём:

   @ nRow1, nCol GETBOX Text_6x2 WIDTH nWTxt HEIGHT nFontSize*2 VALUE M->oPubDefect:c6x2   ; 
      FONTCOLOR BLACK BACKCOLOR WHITE  SIZE nFontSize PICTURE cFormat               ; 
      ON GOTFOCUS {|| ReViewGBox() }                                                ; 
      ON CHANGE   {|| myEditGBox(), M->oPubDefect:c6x2 := GetProperty(ThisWindow.Name, This.Name, "Value") }   // строка 396 
    AADD( aObj, { 'Text_6x2', "c6x2" } ) 
    _AddTabControl ( cTabObj, 'Text_6x2', cForm , nPage , nRow, nCol )

Можно как то избавиться от такой ошибки ?