Xbase++ : ErrorSys

[AUGE_OHR]

Errorsys ?

i found c:\hmg.3.4.4\SOURCE\ErrorSys.prg

Question : will that file only work with HMG

it is because this line

Code: Select all

   _HMG_SYSDATA [ 347 ] := .F.

i think i can't use my XppError.PRG while Constant are not the same

Xbase++

Code: Select all

      CASE oError:genCode == XPP_ERR_ZERODIV
      CASE oError:genCode == XPP_ERR_OPEN .AND. ;
      CASE oError:genCode == XPP_ERR_APPENDLOCK .AND. ;

harbour

Code: Select all

   IF oError:genCode == EG_ZERODIV
   IF oError:genCode == EG_OPEN .AND. ;
   IF oError:genCode == EG_APPENDLOCK .AND. ;

Code is about same but Constante are different for :genCode ?

Xbase++

Code: Select all

   #define  XPP_ERR_ZERODIV         11
   #define  XPP_ERR_OPEN            71
   #define  XPP_ERR_APPENDLOCK      78
   #define  XPP_ES_FATAL            3
   #define  XPP_ES_ERROR            2
   #define  XPP_ES_WARNING          1

harbour

Code: Select all

   
   #define EG_ZERODIV               5
   #define EG_OPEN                  21
   #define EG_APPENDLOCK            40
   // no FATAL
   #define ES_ERROR                 2
   #define ES_WARNING               1

i don't understand why ...

[AUGE_OHR]

hm ...

i have made a Copy of c:\hmg.3.4.4\SOURCE\ErrorSys.prg and try to include it in MyApp.hbp.
now i got this Error

Application Internal Error - C:\hmg.3.4.4\HARBOUR\contrib\gtwvg\WMP\WM9.exe
Terminated at: 2019-10-25 05:37:41
Unrecoverable error 9002: No ERRORBLOCK() for error

what have i made wrong
how can i include my "own Errorsys"

[apais]

My advice: Stay away form gtwvg and any other gt and start a pure HMG GUI project
You will save efforts in the long time.
Don't cut corners and forget all the xbase++ Sh**t.

[AUGE_OHR]

hi,

My advice: Stay away form gtwvg and any other gt and start a pure HMG GUI project
You will save efforts in the long time.
Don't cut corners and forget all the xbase++ Sh**t.

so what to do with all my Source from last 20 Years ...
i don't want to talk about Xbase++ vs. harbour. both can be used ... depend on User Level.

under Xbase++ we have a great Distribution called Express++.
like HMG or FiveWin it use #xCommand Syntax.

i got a Lizenze for it but i don't use it like HMG or FiveWin ... i "just" read the Source and write my own Code.
under Xbase++ i wrote my own native Controls so i'm not a Beginner ... "just" a Newbie in harbour.

---

my Question is why Constant of :genCode is different
not sure about Clipper :genCode ... long Time ago that i work with it.

[andyglezl]

Maybe this help...


https://www.hmgforum.com/viewtopic.php? ... dhaine_adp

https://www.hmgforum.com/viewtopic.php? ... adp#p37765

[AUGE_OHR]

hi,

Maybe this help...
https://www.hmgforum.com/viewtopic.php? ... dhaine_adp
https://www.hmgforum.com/viewtopic.php? ... adp#p37765

thx for those links.
i just have a quick look and it seem it contain many information ... but not what i'm searching.

---

normal Errorsys.PRG is include e.g. Clipper or Xbase++ and i can modify it.
under harbour i did not found Errorsys.PRG but under C:\hmg.3.4.4\SOURCE\ErrorSys.prg

i have look for ZERODIV Constant and was confuse
but it is Xbase++ who have different Constant

Error_Diff.JPG (171.48 KiB) Viewed 2963 times

so my Question is how to create own Errorsys for harbour
shell i use my old Clipper Errorsys for harbour

---

there is a C:\hmg.3.4.4\HARBOUR\addons\hbqt\qtgui\hbqt_errorsys.prg
who to use it

[AUGE_OHR]

hi,

i think i got it

QT_MyError.jpg (26.06 KiB) Viewed 2960 times

i have try to add my Clipper Errorsys but it was not called

then i notice Title of Msgbox() have "HBQT Runtime Error".

i have download QT Source but not rebuild yet.
i found c:\hmg.3.4.4\HARBOUR\addons\hbqt\qtgui\hbqt_errorsys.prg and look inside.

Code: Select all

PROCEDURE hbqt_ErrorSys()

   ErrorBlock( {| oError | DefError( oError ) } )

   RETURN 

so it is a other Name for QT ...

while Errorsys work i can begin to modify it to get more Information.

[andyglezl]

hi,

Maybe this help...
https://www.hmgforum.com/viewtopic.php? ... dhaine_adp
https://www.hmgforum.com/viewtopic.php? ... adp#p37765

thx for those links.
i just have a quick look and it seem it contain many information ... but not what i'm searching.
---
normal Errorsys.PRG is include e.g. Clipper or Xbase++ and i can modify it.

No me refería a: Errorsys.PRG,
sino a: "so what to do with all my Source from last 20 Years ..."
Como lo hemos hecho muchos compañeros de este foro.
*--------------------------------------------------------------------------------------
I didn't mean: Errorsys.PRG,
but: "so what to do with all my Source from last 20 Years ..."
As we have done many colleagues in this forum.

Others: Clipper --> Harbour --> HMG

In my case: Clipper --> HMG directly.

[AUGE_OHR]

hi,

i will not convert hole Source ... i "just" testdrive how far it work with GTWVG and Events.

---

i have play with HMG Sample and there are a lot what Xbase++ does not have or need a 3-PP, GREAT
but i'm not a normal User ... i read the Source while i want to learn when play with it.

that is my Way to play the Game and i have a lot of Question how to get to next Level

---

i got a lot of Answer in this Forum, THX
hope i can give back some Tips and help other User.

Greetings Jimmy

[Red2]

Hi Jimmy,

You have already shared your knowledge and certainly helped me. You came through regarding HMG syntax and "indirect reference" (Tue Oct 22, 2019 5:23 pm). Thanks again!

I come to HMG (from Visual FoxPro) lacking a prior knowledge of Harbour/Clipper. Thus, I well understand how difficult and frustrating it can be to transfer one's experience over into HMG.

HMG/Harbour documentation can definitely be quite lacking and spread out! That said, forum members, yourself included, have been generous in sharing their expert knowledge. So far I have successfully worked through the road blocks. For all that critical assistance I am most appreciative!

Kind Regards,
Red2