home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / sdk / com / inole2 / chap14 / beeper4 / beep0000.odl next >
Encoding:
Text File  |  1995-05-03  |  1.7 KB  |  69 lines
  1. /*
  2.  * BEEP0000.ODL
  3.  * Neutral/English Language Beeper Type Library Chapter 13
  4.  *
  5.  * "Neutral" language is considered to be English.  We register
  6.  * this under LCID of 0 so the lcid before "library" has to match.
  7.  *
  8.  * Copyright (c)1993-1995 Microsoft Corporation, All Rights Reserved
  9.  *
  10.  * Kraig Brockschmidt, Microsoft
  11.  * Internet  :  kraigb@microsoft.com
  12.  * Compuserve:  >INTERNET:kraigb@microsoft.com
  13.  */
  14.  
  15. //LIBID_Beeper
  16. [
  17. uuid(0002115E-0000-0000-C000-000000000046)
  18.     , helpstring("Beeper Type Library")
  19.     , lcid(0x0000)
  20.     , version(1.0)
  21. ]
  22. library BeeperTypeLibrary
  23.     {
  24.    #ifdef WIN32
  25.     importlib("STDOLE32.TLB");
  26.    #else
  27.     importlib("STDOLE.TLB");
  28.    #endif
  29.  
  30.     /*
  31.      * IID_IBeeper
  32.      * 'interface' entries must have 'odl' attribute
  33.      *
  34.      * This definition is a 'dual' interface which has
  35.      * the IID of the v-table interface.  The dispinterface
  36.      * is just the IDispatch part.
  37.      */
  38.     [
  39.     uuid(0002115C-0000-0000-C000-000000000046)
  40.         , helpstring("Definition of interface IBeeper")
  41.         , odl
  42.         , dual
  43.     ]
  44.     interface IBeeper : IDispatch
  45.         {
  46.         //Properties
  47.         [propget, helpstring("The current sound")]
  48.             HRESULT Sound([out, retval] long *plSound);
  49.  
  50.         [propput]
  51.             HRESULT Sound([in] long lSound);
  52.  
  53.         //Methods
  54.         [helpstring("Play the current sound")]
  55.             HRESULT Beep([out, retval] long *plSoundPlayed);
  56.         }
  57.  
  58.  
  59.     //CLSID_Beeper
  60.     [
  61.     uuid(0002115B-0000-0000-C000-000000000046)
  62.         , helpstring("Beeper Object Type Information")
  63.     ]
  64.     coclass Beeper
  65.         {
  66.         interface       IBeeper;
  67.         }
  68.     };
  69.