Question about TRY ... CATCH ... END

[driessen]

Hello,

A question about TRY ... CATCH ... END.

By using this function, one can prevent an error to be happening.

But that also means that no error.log is being made.

Is there a possibility to combine both cases, i.e. making an error.log while using TRY ... CATCH ... END ?

Thanks a lot for any help.

[StefanHaupt]

Michel,

you can decide for your own in the catch statement what to do with the error.

Code: Select all  Expand view

LOCAL  oErr

  TRY
    <do_something>
  CATCH oErr
    if oErr:gencode = ....
      WriteLogFile (oErr:description)
    endif
  END


[driessen]

Stefan,

Thanks for your reaction, but I notice some problems.

1. I got an error "no exported method : gencode"
2. I got an error while linking : "Unresolved external symbol : hb_fun_writelogfile".

What now ?

Thanks.

[JC]

Michel,

With the CATCH, you can use they properties for your error safety:

Code: Select all  Expand view

TRY
   ...
CATCH oError

   msgInfo( oError:SubSystem )
   msgInfo( oError:SubCode )
   msgInfo( oError:Operation )
   msgInfo( oError:Description )
   msgInfo( valToPrg( ::oError:Args ) )

END

With they properties, you can generate you own "err.log" or many others things!!

[James Bott]

Michel,

Use LogFile() instead of WriteLogFile().

Regards,
James

[StefanHaupt]

Michel,

1. I got an error "no exported method : gencode"
2. I got an error while linking : "Unresolved external symbol : hb_fun_writelogfile".

oErr:gencode is working here, it´s defined in the errorhandler of xharbour and it´s also working in errorsysw.prg from fwh.

The function WriteLogFile() was just a sample, not a really existing function. Just to show what you can do.

Please try this sample, it´s working fine here. (see also JC´s post)

Code: Select all  Expand view

//----------------------------------------------------------------------------//
FUNCTION CheckErr ()

  LOCAL nLoc, oError

  TRY
    nLoc := "error"/2
  CATCH oError
    msgInfo( oError:gencode )
    msgInfo( oError:SubSystem )
    msgInfo( oError:SubCode )
    msgInfo( oError:Operation )
    msgInfo( oError:Description )
    msgInfo( valToPrg( oError:Args ) )
    quit
  END

RETURN (nLoc)

There are some other values that can be checked, oError:severity, oError:tries, oError:oscode and so on.

[driessen]

Thanks guys, for your help.

I know what to do now.