Page 1 of 2
Xbase++ : ErrorSys
Posted: Thu Oct 24, 2019 10:53 pm
by 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
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 ...
Re: Xbase++ : ErrorSys
Posted: Fri Oct 25, 2019 3:46 am
by AUGE_OHR
hm ...
i have made a Copy of c:\hmg.3.4.4\SOURCE\ErrorSys.prg and try to include it in MyApp.hb
p.
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"
Re: Xbase++ : ErrorSys
Posted: Fri Oct 25, 2019 2:24 pm
by 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.
Re: Xbase++ : ErrorSys
Posted: Fri Oct 25, 2019 7:38 pm
by AUGE_OHR
hi,
apais wrote: ↑Fri Oct 25, 2019 2:24 pm
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.
Re: Xbase++ : ErrorSys
Posted: Fri Oct 25, 2019 8:25 pm
by andyglezl
Re: Xbase++ : ErrorSys
Posted: Sat Oct 26, 2019 2:16 am
by AUGE_OHR
hi,
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 3064 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
Re: Xbase++ : ErrorSys
Posted: Sat Oct 26, 2019 3:38 am
by AUGE_OHR
hi,
i think i got it
- QT_MyError.jpg (26.06 KiB) Viewed 3061 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.
Re: Xbase++ : ErrorSys
Posted: Sat Oct 26, 2019 4:51 am
by andyglezl
AUGE_OHR wrote: ↑Sat Oct 26, 2019 2:16 am
hi,
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.
Re: Xbase++ : ErrorSys
Posted: Sat Oct 26, 2019 5:30 am
by 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
Re: Xbase++ : ErrorSys
Posted: Sat Oct 26, 2019 1:29 pm
by 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