extensions/source/ole/unotypewrapper.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include "unotypewrapper.hxx"
  21 #include "rtl/ustring.hxx"
  22
  23
  24 bool createUnoTypeWrapper(BSTR sTypeName, VARIANT * pVar)
  25 {
  26     bool ret = false;
  27     OSL_ASSERT(sTypeName && pVar);
  28     CComObject< UnoTypeWrapper>* pObj;
  29     VariantClear(pVar);
  30     if( SUCCEEDED( CComObject<UnoTypeWrapper>::CreateInstance( &pObj)))
  31     {
  32         pObj->AddRef();
  33         pVar->vt= VT_DISPATCH;
  34 #ifdef __MINGW32__
  35         pVar->pdispVal= CComQIPtr<IDispatch, &__uuidof(IDispatch)>(pObj->GetUnknown());
  36 #else
  37         pVar->pdispVal= CComQIPtr<IDispatch>(pObj->GetUnknown());
  38 #endif
  39         //now set the value, e.i. the name of the type
  40 #ifdef __MINGW32__
  41         CComQIPtr<IUnoTypeWrapper, &__uuidof(IUnoTypeWrapper)> spType(pVar->pdispVal);
  42 #else
  43         CComQIPtr<IUnoTypeWrapper> spType(pVar->pdispVal);
  44 #endif
  45         OSL_ASSERT(spType);
  46         if (SUCCEEDED(spType->put_Name(sTypeName)))
  47         {
  48             ret = true;
  49         }
  50     }
  51     return ret;
  52 }
  53
  54
  55 bool createUnoTypeWrapper(const OUString& sTypeName, VARIANT * pVar)
  56 {
  57     CComBSTR bstr(reinterpret_cast<LPCOLESTR>(sTypeName.getStr()));
  58     return createUnoTypeWrapper(bstr, pVar);
  59 }
  60
  61 UnoTypeWrapper::UnoTypeWrapper()
  62 {
  63 }
  64
  65 UnoTypeWrapper::~UnoTypeWrapper()
  66 {
  67 }
  68
  69
  70 // UnoTypeWrapper, IDispatch --------------------------------------------
  71 STDMETHODIMP UnoTypeWrapper::GetTypeInfoCount(UINT* /*pctinfo*/)
  72 {
  73     return E_NOTIMPL;
  74 }
  75
  76 // UnoTypeWrapper, IDispatch --------------------------------------------
  77 STDMETHODIMP UnoTypeWrapper::GetTypeInfo( UINT /*iTInfo*/,
  78                                           LCID /*lcid*/,
  79                                           ITypeInfo** /*ppTInfo*/)
  80 {
  81     return E_NOTIMPL;
  82 }
  83
  84 // UnoTypeWrapper, IDispatch --------------------------------------------
  85 STDMETHODIMP UnoTypeWrapper::GetIDsOfNames( REFIID /*riid*/,
  86                                             LPOLESTR *rgszNames,
  87                                             UINT /*cNames*/,
  88                                             LCID /*lcid*/,
  89                                             DISPID *rgDispId)
  90 {
  91     if( !rgDispId)
  92         return E_POINTER;
  93
  94     HRESULT ret= S_OK;
  95     CComBSTR name(*rgszNames);
  96     name.ToLower();
  97
  98     if( name == CComBSTR( L"name") )
  99         *rgDispId= DISPID_VALUE;
 100     else
 101         ret= DISP_E_UNKNOWNNAME;
 102
 103     return ret;
 104 }
 105
 106 // UnoTypeWrapper, IDispatch --------------------------------------------
 107 STDMETHODIMP UnoTypeWrapper::Invoke( DISPID dispIdMember,
 108                          REFIID /*riid*/,
 109                          LCID /*lcid*/,
 110                          WORD wFlags,
 111                          DISPPARAMS *pDispParams,
 112                          VARIANT *pVarResult,
 113                          EXCEPINFO* /*pExcepInfo*/,
 114                          UINT* /*puArgErr*/)
 115 {
 116     if (pDispParams == NULL)
 117         return DISP_E_EXCEPTION;
 118
 119     if( pDispParams->cNamedArgs)
 120         return DISP_E_NONAMEDARGS;
 121
 122
 123     HRESULT ret= S_OK;
 124     switch( dispIdMember)
 125     {
 126     case DISPID_VALUE: // DISPID_VALUE
 127         if (wFlags & DISPATCH_PROPERTYGET)
 128         {
 129             if (pVarResult == NULL)
 130             {
 131                 ret = E_POINTER;
 132                 break;
 133             }
 134             get_Name( & pVarResult->bstrVal);
 135             pVarResult->vt = VT_BSTR;
 136         }
 137         break;
 138     default:
 139         ret= DISP_E_MEMBERNOTFOUND;
 140         break;
 141      }
 142
 143     return ret;
 144 }
 145
 146 // IUnoTypeWrapper-----------------------
 147 STDMETHODIMP UnoTypeWrapper::put_Name(BSTR  val)
 148 {
 149      Lock();
 150      HRESULT hr = S_OK;
 151     m_sName = val;
 152      Unlock();
 153      return hr;
 154 }
 155
 156 // (UnoTypeWrapper-----------------------
 157 STDMETHODIMP UnoTypeWrapper::get_Name(BSTR  *pVal)
 158 {
 159      Lock();
 160     HRESULT hr = S_OK;
 161      if( !pVal)
 162          return E_POINTER;
 163     *pVal = m_sName.Copy();
 164      Unlock();
 165      return hr;
 166 }
 167
 168
 169
 170 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */