PureBasic Forums - English

Code: Select all

purebasic.c: In function 'f_comateclass_createenumeration':
purebasic.c:1010:15: error: dereferencing pointer to incomplete type 'struct s_idispatch'
 integer rr84=(*v_var.f_pdispval)->queryinterface(v_var.f_pdispval,p82,p83);
               ^~~~~~~~~~~~~~~~~
purebasic.c:1018:15: error: dereferencing pointer to incomplete type 'struct s_iunknown'
 integer rr85=(*v_var.f_punkval)->queryinterface(v_var.f_punkval,p84,p85);
               ^~~~~~~~~~~~~~~~

Code: Select all

result = var\pdispVal\QueryInterface(?IID_IEnumVARIANT, @*object\iEV)

Code: Select all

result = var\punkVal\QueryInterface(?IID_IEnumVARIANT, @*object\iEV)

Code: Select all

d:\Program\purebasic\PB6\Compilers\pbcompilerc.exe /XP /COMMENTED COMatePLUS.pbi

Code: Select all

Procedure.i COMateEnumClass_GetNextObject(*this._membersCOMateEnumClass)
  Protected result.i = #S_OK, retVar.VARIANT, *newObject._membersCOMateClass
;************** line 2219 -> result = *this\iEV\Next(1, retVar, 0) ***********************************************************
  result = *this\iEV\Next(1, retVar, 0)
  If result = #S_OK ;Alternative is #S_FALSE.
    If retVar\vt <> #VT_DISPATCH
      result = VariantChangeType_(retVar, retVar, 0, #VT_DISPATCH)
    EndIf
    If SUCCEEDED(result)
      ;We create a new COMate object to house the new object.
        *newObject = AllocateMemory(SizeOf(_membersCOMateClass))
        If *newObject
          *newObject\vTable = ?VTable_COMateClass
          *newObject\iDisp = retVar\pdispVal
          COMate_gNumObjects+1
        Else
          VariantClear_(retVar)
          result = #E_OUTOFMEMORY
        EndIf
    Else
      VariantClear_(retVar)
    EndIf
  EndIf
  ;Set any error code. iDispatch errors will alreay have been set.
    CompilerIf Defined(COMATE_NOERRORREPORTING, #PB_Constant)=0
      COMateClass_INTERNAL_SetError(*this\parent, result)
    CompilerEndIf
  ProcedureReturn *newObject
EndProcedure