git.oblomov.eu Git - wine/blob - dlls/oleaut32/oleaut.c

   1 /*
   2  *      OLEAUT32
   3  *
   4  */
   5 #include <string.h>
   6
   7 #include "windef.h"
   8 #include "winbase.h"
   9 #include "wingdi.h"
  10 #include "winuser.h"
  11 #include "winerror.h"
  12
  13 #include "ole2.h"
  14 #include "olectl.h"
  15 #include "wine/obj_oleaut.h"
  16 #include "wine/obj_olefont.h"
  17 #include "debugtools.h"
  18
  19 DEFAULT_DEBUG_CHANNEL(ole);
  20
  21 static WCHAR    _delimiter[2] = {'!',0}; /* default delimiter apparently */
  22 static WCHAR    *pdelimiter = &_delimiter[0];
  23
  24 /***********************************************************************
  25  *              RegisterActiveObject (OLEAUT32.33)
  26  */
  27 HRESULT WINAPI RegisterActiveObject(
  28         LPUNKNOWN punk,REFCLSID rcid,DWORD dwFlags,LPDWORD pdwRegister
  29 ) {
  30         WCHAR                   guidbuf[80];
  31         HRESULT                 ret;
  32         LPRUNNINGOBJECTTABLE    runobtable;
  33         LPMONIKER               moniker;
  34
  35         StringFromGUID2(rcid,guidbuf,39);
  36         ret = CreateItemMoniker(pdelimiter,guidbuf,&moniker);
  37         if (FAILED(ret))
  38                 return ret;
  39         ret = GetRunningObjectTable(0,&runobtable);
  40         if (FAILED(ret)) {
  41                 IMoniker_Release(moniker);
  42                 return ret;
  43         }
  44         ret = IRunningObjectTable_Register(runobtable,dwFlags,punk,moniker,pdwRegister);
  45         IRunningObjectTable_Release(runobtable);
  46         IMoniker_Release(moniker);
  47         return ret;
  48 }
  49
  50 /***********************************************************************
  51  *              RevokeActiveObject (OLEAUT32.34)
  52  */
  53 HRESULT WINAPI RevokeActiveObject(DWORD xregister,LPVOID reserved)
  54 {
  55         LPRUNNINGOBJECTTABLE    runobtable;
  56         HRESULT                 ret;
  57
  58         ret = GetRunningObjectTable(0,&runobtable);
  59         if (FAILED(ret)) return ret;
  60         ret = IRunningObjectTable_Revoke(runobtable,xregister);
  61         if (SUCCEEDED(ret)) ret = S_OK;
  62         IRunningObjectTable_Release(runobtable);
  63         return ret;
  64 }
  65
  66 /***********************************************************************
  67  *              GetActiveObject (OLEAUT32.35)
  68  */
  69 HRESULT WINAPI GetActiveObject(REFCLSID rcid,LPVOID preserved,LPUNKNOWN *ppunk)
  70 {
  71         WCHAR                   guidbuf[80];
  72         HRESULT                 ret;
  73         LPRUNNINGOBJECTTABLE    runobtable;
  74         LPMONIKER               moniker;
  75
  76         StringFromGUID2(rcid,guidbuf,39);
  77         ret = CreateItemMoniker(pdelimiter,guidbuf,&moniker);
  78         if (FAILED(ret))
  79                 return ret;
  80         ret = GetRunningObjectTable(0,&runobtable);
  81         if (FAILED(ret)) {
  82                 IMoniker_Release(moniker);
  83                 return ret;
  84         }
  85         ret = IRunningObjectTable_GetObject(runobtable,moniker,ppunk);
  86         IRunningObjectTable_Release(runobtable);
  87         IMoniker_Release(moniker);
  88         return ret;
  89 }
  90
  91
  92 /***********************************************************************
  93  *           OaBuildVersion           [OLEAUT32.170]
  94  *
  95  * known OLEAUT32.DLL versions:
  96  * OLE 2.1  NT                          1993-95 10     3023
  97  * OLE 2.1                                      10     3027
  98  * Win32s 1.1e                                  20     4049
  99  * OLE 2.20 W95/NT                      1993-96 20     4112
 100  * OLE 2.20 W95/NT                      1993-96 20     4118
 101  * OLE 2.20 W95/NT                      1993-96 20     4122
 102  * OLE 2.30 W95/NT                      1993-98 30     4265
 103  * OLE 2.40 NT??                        1993-98 40     4267
 104  * OLE 2.40 W98 SE orig. file           1993-98 40     4275
 105  * OLE 2.40 W2K orig. file              1993-XX 40     4514
 106  *
 107  * I just decided to use version 2.20 for Win3.1, 2.30 for Win95 & NT 3.51,
 108  * and 2.40 for all newer OSs. The build number is maximum, i.e. 0xffff.
 109  */
 110 UINT WINAPI OaBuildVersion()
 111 {
 112     switch(GetVersion() & 0x8000ffff)  /* mask off build number */
 113     {
 114     case 0x80000a03:  /* WIN31 */
 115                 return MAKELONG(0xffff, 20);
 116     case 0x00003303:  /* NT351 */
 117                 return MAKELONG(0xffff, 30);
 118     case 0x80000004:  /* WIN95; I'd like to use the "standard" w95 minor
 119                          version here (30), but as we still use w95
 120                          as default winver (which is good IMHO), I better
 121                          play safe and use the latest value for w95 for now.
 122                          Change this as soon as default winver gets changed
 123                          to something more recent */
 124     case 0x80000a04:  /* WIN98 */
 125     case 0x00000004:  /* NT40 */
 126     case 0x00000005:  /* W2K */
 127                 return MAKELONG(0xffff, 40);
 128     default:
 129                 ERR("Version value not known yet. Please investigate it !\n");
 130                 return 0x0;
 131     }
 132 }
 133
 134 /***********************************************************************
 135  *              DllRegisterServer (OLEAUT32.320)
 136  */
 137 HRESULT WINAPI OLEAUT32_DllRegisterServer() {
 138     FIXME("stub!\n");
 139     return S_OK;
 140 }
 141
 142 /***********************************************************************
 143  *              DllUnregisterServer (OLEAUT32.321)
 144  */
 145 HRESULT WINAPI OLEAUT32_DllUnregisterServer() {
 146     FIXME("stub!\n");
 147     return S_OK;
 148 }
 149
 150 extern void _get_STDFONT_CF(LPVOID);
 151
 152 /***********************************************************************
 153  *              DllGetClassObject (OLEAUT32.1)
 154  */
 155 HRESULT WINAPI OLEAUT32_DllGetClassObject(REFCLSID rclsid, REFIID iid,LPVOID *ppv)
 156 {
 157     *ppv = NULL;
 158     if (IsEqualGUID(rclsid,&CLSID_StdFont)) {
 159         if (IsEqualGUID(iid,&IID_IClassFactory)) {
 160             _get_STDFONT_CF(ppv);
 161             IClassFactory_AddRef((IClassFactory*)*ppv);
 162             return S_OK;
 163         }
 164     }
 165     FIXME("\n\tCLSID:\t%s,\n\tIID:\t%s\n",debugstr_guid(rclsid),debugstr_guid(iid));
 166     return CLASS_E_CLASSNOTAVAILABLE;
 167 }
 168
 169 /***********************************************************************
 170  *              DllCanUnloadNow (OLEAUT32.410)
 171  */
 172 HRESULT WINAPI OLEAUT32_DllCanUnloadNow() {
 173     FIXME("(), stub!\n");
 174     return S_FALSE;
 175 }