Xbase++ : ErrorSys

Discuss anything else that does not suite other forums.

Moderator: Rathinagiri

User avatar
AUGE_OHR
Posts: 326
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 34 times
Been thanked: 42 times

Xbase++ : ErrorSys

Post by AUGE_OHR » Thu Oct 24, 2019 10:53 pm

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 :o

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 ...

User avatar
AUGE_OHR
Posts: 326
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 34 times
Been thanked: 42 times

Post by AUGE_OHR » Fri Oct 25, 2019 3:46 am

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" :?:

User avatar
apais
Posts: 320
Joined: Fri Aug 01, 2008 6:03 pm
Location: uruguay
Has thanked: 53 times
Been thanked: 33 times
Contact:

Post by apais » 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.

User avatar
AUGE_OHR
Posts: 326
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 34 times
Been thanked: 42 times

Post by AUGE_OHR » Fri Oct 25, 2019 7:38 pm

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.

User avatar
andyglezl
Posts: 1194
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 37 times
Been thanked: 85 times
Contact:

Post by andyglezl » Fri Oct 25, 2019 8:25 pm

Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
AUGE_OHR
Posts: 326
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 34 times
Been thanked: 42 times

Post by AUGE_OHR » 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.
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 :o
but it is Xbase++ who have different Constant
Error_Diff.JPG
Error_Diff.JPG (171.48 KiB) Viewed 430 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 :?:

User avatar
AUGE_OHR
Posts: 326
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 34 times
Been thanked: 42 times

Post by AUGE_OHR » Sat Oct 26, 2019 3:38 am

hi,

i think i got it :D
QT_MyError.jpg
QT_MyError.jpg (26.06 KiB) Viewed 427 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 ... :roll:

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

User avatar
andyglezl
Posts: 1194
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 37 times
Been thanked: 85 times
Contact:

Post by andyglezl » Sat Oct 26, 2019 4:51 am

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.
Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
AUGE_OHR
Posts: 326
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 34 times
Been thanked: 42 times

Post by AUGE_OHR » Sat Oct 26, 2019 5:30 am

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
Posts: 54
Joined: Sat May 18, 2019 2:11 pm
DBs Used: DBF, FoxPro, Visual FoxPro
Location: United States (East Coast)
Has thanked: 13 times
Been thanked: 2 times

Post by Red2 » Sat Oct 26, 2019 1:29 pm

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

Post Reply