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