extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.cpp

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2000, 2010 Oracle and/or its affiliates.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * This file is part of OpenOffice.org.
  10  *
  11  * OpenOffice.org is free software: you can redistribute it and/or modify
  12  * it under the terms of the GNU Lesser General Public License version 3
  13  * only, as published by the Free Software Foundation.
  14  *
  15  * OpenOffice.org is distributed in the hope that it will be useful,
  16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18  * GNU Lesser General Public License version 3 for more details
  19  * (a copy is included in the LICENSE file that accompanied this code).
  20  *
  21  * You should have received a copy of the GNU Lesser General Public License
  22  * version 3 along with OpenOffice.org.  If not, see
  23  * <http://www.openoffice.org/license.html>
  24  * for a copy of the LGPLv3 License.
  25  *
  26  ************************************************************************/
  27 // Simple.cpp : Implementation of CSimple
  28 #include "stdafx.h"
  29 #include "XCallback_Impl.h"
  30 #include "Simple.h"
  31
  32 /////////////////////////////////////////////////////////////////////////////
  33 // CSimple
  34
  35
  36 STDMETHODIMP CSimple::func(BSTR message)
  37 {
  38     USES_CONVERSION;
  39     MessageBox( NULL, W2T( message), _T("XCallback_Impl.Simple"), MB_OK);
  40     return S_OK;
  41 }
  42
  43
  44 STDMETHODIMP CSimple::func2(BSTR message)
  45 {
  46     USES_CONVERSION;
  47     MessageBox( NULL, W2T( message), _T("XCallback_Impl.Simple"), MB_OK);
  48     return S_OK;
  49 }
  50
  51 STDMETHODIMP CSimple::func3(BSTR message)
  52 {
  53     USES_CONVERSION;
  54     MessageBox( NULL, W2T( message), _T("XCallback_Impl.Simple"), MB_OK);
  55     return S_OK;
  56 }
  57
  58
  59 STDMETHODIMP CSimple::get__implementedInterfaces(LPSAFEARRAY *pVal)
  60 {
  61     HRESULT hr= S_OK;
  62     SAFEARRAY *pArr=    SafeArrayCreateVector( VT_BSTR, 0, 3);
  63     if( pArr)
  64     {   long index=0;
  65         BSTR name1= SysAllocString(L"oletest.XSimple");
  66         BSTR name2= SysAllocString(L"oletest.XSimple2");
  67         BSTR name3= SysAllocString(L"oletest.XSimple3");
  68
  69         hr= SafeArrayPutElement( pArr, & index, name1);
  70         index++;
  71         hr= SafeArrayPutElement( pArr, &index, name2);
  72         index++;
  73         hr= SafeArrayPutElement( pArr, &index, name3);
  74         *pVal= pArr;
  75
  76     }
  77     *pVal= pArr;
  78     return S_OK;
  79 }
  80