PROTECTED PROCEDURE Error(iError, sMethod, iLine) LOCAL sSource, sMessage WITH This ** Form the error strings sSource = TRANSFORM(iError) + CHR(13)+; sMethod+; TRANSFORM(iLine) sMessage = "Error" ** Populate the COM exception structure =COMRETURNERROR(sSource, sMessage) ENDWITH ENDPROCNext, in the INIT I placed:
PROCEDURE Init LOCAL sString sString = "Kevin" ** This will trigger the Error method ? DTOC(sString) ENDPROCAnd when I compile the DLL and instantiate the class, I get