.VBA ObjectPointers.md

Note at the time this was written, Serialize returned purely the ObjPtr and no extra data.

'Direct call convention of VBA.CallByName
#If VBA7 Then
  Private Declare PtrSafe Function rtcCallByName Lib "msvbvm60" (ByRef vRet As Variant, ByVal cObj As Object, ByVal sMethod As LongPtr, ByVal eCallType As VbCallType, ByRef pArgs() As Variant, ByVal lcid As Long) As Long
  Private Declare PtrSafe Sub VariantCopy Lib "oleaut32.dll" (ByRef pvargDest As Variant, ByRef pvargSrc As Variant)
  Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByVal Source As LongPtr, ByVal length As Long)
#Else
  Private Declare Function rtcCallByName Lib "msvbvm60" (ByRef vRet As Variant, ByVal cObj As Object, ByVal sMethod As LongPtr, ByVal eCallType As VbCallType, ByRef pArgs() As Variant, ByVal lcid As Long) As Long
  Private Declare Sub VariantCopy Lib "oleaut32.dll" (ByRef pvargDest As Variant, ByRef pvargSrc As Variant)
  Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByVal Source As Long, ByVal length As Long)
#End If


Private Declare Function GetMem4 Lib "msvbvm60.dll" (ByRef Source As Any, ByRef Dest As Any) As Long

Sub t()
    Debug.Print stdCallback.CreateEvaluator("$1+1")(2)
    Debug.Print stdArray.Create(1, 2, 3).Reduce(stdCallback.CreateEvaluator("$1+$2"))      ' Sum --> 6
    Debug.Print stdArray.Create(1, 2, 3).Reduce(stdCallback.CreateEvaluator("Max($1,$2)")) ' Max --> 3
    
End Sub

Sub k()
    Dim x As stdArray
    Set x = stdArray.Create(1, 2, 3)
    Debug.Print p@(objptr(x), "Length")
End Sub
Sub t2()
    Dim o as stdArray
    set o = stdArray.Create(1,2,3)
    Debug.Print p(objptr(o),"Length") 'Returns 3
    Debug.Print p(p(objptr(Application), "Workbooks"), "Count") ' This will cause a crash on 2nd execution, because workbooks pointer is destroyed
End Sub

Public Function p(ByVal oPtr As Long, ByVal sName As String, ParamArray args() As Variant) As Variant
    Dim obj As Object
    GetMem4 oPtr, obj
    
    Dim vArr() As Variant
    vArr = args
    
    Dim i As Long
    i = rtcCallByName(p, obj, StrPtr(sName), VbCallType.VbGet, vArr, &H409)
    If IsObject(p) Then p = objptr(p)
    
    GetMem4 0&, obj
End Function

Dereferencing object pointers:

Private Declare Function GetMem4 Lib "msvbvm60.dll" (ByRef Source As Any, ByRef Dest As Any) As Long
  
Public Sub Test
    Dim oPtr as longptr
    oPtr = ObjPtr(Application)
    
    'ObjPtr --> Object
    Dim obj as object
    GetMem4 oPtr, obj
    
    'Use object...
    Debug.Print obj.name 'Print name of Application
    Debug.Print obj.name = Application.name '==> True
    
    'We HAVE to remove the pointer to obj now, else we crash
    GetMem4 0&, obj
End Sub