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 / beeper2 / beep0007.odl < prev    next >
Text File  |  1995-05-03  |  2KB  |  76 lines
  1. /*
  2.  * BEEP0007.ODL
  3.  * Beeper Type Library Definition in GERMAN, Chapter 14
  4.  *
  5.  * This library is registered under LCID 7 for "German" without
  6.  * any specific sub-language (Swiss or Austrian)
  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("Pieper Typenbibliothek")
  19.     , lcid(0x0007)
  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.     [
  35.     uuid(0002115C-0000-0000-C000-000000000046)
  36.         , helpstring("Definition des IBeeper Interface")
  37.         , odl
  38.     ]
  39.     interface IBeeper : IUnknown
  40.         {
  41.         //Properties
  42.         [propget, helpstring("Der aktuelle Klang")]
  43.             long Ton(void);
  44.  
  45.         [propput]
  46.             void Ton([in] long lTon);
  47.  
  48.         //Methods
  49.         [helpstring("Den aktuellen Klang abspielen")]
  50.             long Piep(void);
  51.         }
  52.  
  53.  
  54.     //DIID_DIBeeper
  55.     [
  56.     uuid(0002115D-0000-0000-C000-000000000046)
  57.         , helpstring("Definition des DIBeeper dispinterface")
  58.     ]
  59.     dispinterface DIBeeper
  60.         {
  61.         interface   IBeeper;
  62.         }
  63.  
  64.  
  65.     //CLSID_Beeper
  66.     [
  67.     uuid(0002115B-0000-0000-C000-000000000046)
  68.         , helpstring("Pieper Objekt Typeninformation")
  69.     ]
  70.     coclass Beeper
  71.         {
  72.         dispinterface   DIBeeper;
  73.         interface       IBeeper;
  74.         }
  75.     };
  76.