Procedure Destroy DoDefault endprocto help expose it.
>DEFINE CLASS FLocker AS Session OLEPUBLIC > * DataSession = 2 (Private Data Session) is the default for the Session class > > FUNCTION Init > SET EXCLUSIVE OFF > SET TABLEVALIDATE TO 0 > > ENDFUNC > > FUNCTION TableLock ( tcTable AS String, tcAlias AS String ) AS VOID > USE ( tcTable ) ALIAS ( tcAlias ) IN 0 SHARED NODATA NOUPDATE > =FLOCK( tcAlias ) > > ENDFUNC > > FUNCTION TableUnlock ( tcAlias AS String ) AS VOID > UNLOCK IN ( tcAlias ) > USE IN ( tcAlias ) > > ENDFUNC > >ENDDEFINE >I can invoke the COM server with something like
>loEXECOMServer = CREATEOBJECT( "MyEXECOMServerName.FLocker" ) >and the COM server is created properly, works fine, and duly appears as a separate process in Task Manager.
>RELEASE loEXECOMServer
>
which seems to work - the process disappears from Task Manager. Is this "best practice" for RELEASEing COM servers?