Public Enum gt_TOBJPTR
  [_]
End Enum
 
'***Public**********************************************************************
'
'  Procedure:  Function CPTR()
' Parameters:  ByRef rObject As Object
'     Return:  gt_TOBJPTR
'
'Description:  returns a pointer (TypeOf gt_TOBJPTR is Long) on the given object
'
'*******************************************************************************
Public Function CPTR(ByRef rObject As Object) As gt_TOBJPTR
 
  LongFromObject CPTR, rObject, 4
 
End Function
 
'***Public**********************************************************************
'
'  Procedure:  Function COBJ()
' Parameters:  ByVal vPointer As gt_TOBJPTR
'     Return:  Object
'
'Description:  returns the object identified by given pointer
'
'*******************************************************************************
Public Function COBJ(ByVal vPointer As gt_TOBJPTR) As Object
 
  ObjectFromLong COBJ, vPointer, 4
 
    If Not COBJ Is Nothing Then
      IncRefCount COBJ  'increment reference of object!!!
    End If
 
End Function
 
'***Private*********************************************************************
'
'  Procedure:  Sub IncRefCount()
' Parameters:  ByRef rObject As IUnknown
'     Return:  -
'
'Description:  increments the referencecounter of the given object (called by 
' COBJ)
'
'*******************************************************************************
Private Sub IncRefCount(ByRef rObject As IUnknown)
 
Dim lngRc As Long
 
  If rObject Is Nothing Then Exit Sub
 
  CopyMemory lngRc, ByVal (ObjPtr(rObject)) + 4, 4
  CopyMemory ByVal (ObjPtr(rObject)) + 4, (lngRc + 1), 4
 
End Sub

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 07.01.09 um 09:29:33 editiert.