OLEIUNKNOWNRELEASE Method (System)

Calls the Release() method for an OLE object when passed its interface pointer.

IsReleased = Exec_Method( "SYSTEM", "OLEIUNKNOWNRELEASE", pObject )

TRUE$ if the object is released, or FALSE$ otherwise.

This method uses the OLE Release method on the IUnknown interface. For further information please see the IUnknown topic on the MSDN website.

You must ensure that the pointer passed to this method is valid, otherwise a GPF may occur.

 
//// Extract the width and height of an OLE Picture, given it's //
   //// interface pointer//
   
   PicFile  = "C:\temp\myPic.bmp"
   pPicture = Exec_Method( "SYSTEM", "OLELOADPICTURE", PicFile )
   
   If pPicture Then
      PicProps = Exec_Method( "SYSTEM", "OLEGETPICTUREPROPS", pPicture )
      
      If BLen( PicProps ) Then
         PicW = PicProps<4>
         PicH = PicProps<5>
      End
      
      //// Release the picture//
      Exec_Method( "SYSTEM", "OLEIKNOWNRELEASE", pPicture )
      
   End
 
 
 

SYSTEM OLELOADPICTURE method.