PBMiner

$PBExportHeader$n_oleobject.sru
forward
global type n_oleobject from oleobject
end type
end forward

global type n_oleobject from oleobject
end type
global n_oleobject n_oleobject

type variables
ULong ErrorCode
String ErrorText

end variables

forward prototypes
public function string of_connecterror (integer ai_returncode)
end prototypes

public function string of_connecterror (integer ai_returncode);// return OLE connect error text

String ls_errmsg

choose case ai_returncode
   case 0
      ls_errmsg = "Success"
   case -1
      ls_errmsg = "Invalid Call: the argument is the Object property of a control"
   case -2
      ls_errmsg = "Class name not found"
   case -3
      ls_errmsg = "Object could not be created"
   case -4
      ls_errmsg = "Could not connect to object"
   case -9
      ls_errmsg = "Other error"
   case -15
      ls_errmsg = "COM+ is not loaded on this computer"
   case -16
      ls_errmsg = "Invalid Call: this function not applicable"
   case else
      ls_errmsg = "Undefined return code: " + String(ai_returncode)
end choose

Return ls_errmsg

end function

event externalexception;// External Exception

ErrorCode = ResultCode
ErrorText = Description

end event

on n_oleobject.create
call super::create
TriggerEvent( this, "constructor" )
end on

on n_oleobject.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on