diff options
author | Michael Stahl <mstahl@redhat.com> | 2012-01-28 20:52:45 +0100 |
---|---|---|
committer | Michael Stahl <mstahl@redhat.com> | 2012-01-28 20:52:45 +0100 |
commit | 2e626373db2412ac22e8c5c27a60d11cd29e875b (patch) | |
tree | 9e9f67205cd5b72f1031721273e1534a3a1e5b0f /extensions/test/ole/unoTocomCalls/Test/Test.cpp | |
parent | f7ee7bbd5174b084f018c2ec94d8c70c98ee04da (diff) |
replace obsolete "master" branch with README that points at new repoHEADmaster-deletedmaster
Diffstat (limited to 'extensions/test/ole/unoTocomCalls/Test/Test.cpp')
-rw-r--r-- | extensions/test/ole/unoTocomCalls/Test/Test.cpp | 249 |
1 files changed, 0 insertions, 249 deletions
diff --git a/extensions/test/ole/unoTocomCalls/Test/Test.cpp b/extensions/test/ole/unoTocomCalls/Test/Test.cpp deleted file mode 100644 index fcb121be6..000000000 --- a/extensions/test/ole/unoTocomCalls/Test/Test.cpp +++ /dev/null @@ -1,249 +0,0 @@ -/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ -/************************************************************************* - * - * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. - * - * Copyright 2000, 2010 Oracle and/or its affiliates. - * - * OpenOffice.org - a multi-platform office productivity suite - * - * This file is part of OpenOffice.org. - * - * OpenOffice.org is free software: you can redistribute it and/or modify - * it under the terms of the GNU Lesser General Public License version 3 - * only, as published by the Free Software Foundation. - * - * OpenOffice.org is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU Lesser General Public License version 3 for more details - * (a copy is included in the LICENSE file that accompanied this code). - * - * You should have received a copy of the GNU Lesser General Public License - * version 3 along with OpenOffice.org. If not, see - * <http://www.openoffice.org/license.html> - * for a copy of the LGPLv3 License. - * - ************************************************************************/ -// Test.cpp : Defines the entry point for the console application. -// - -#include "stdafx.h" -#include "../XCallback_Impl/XCallback_Impl.h" -#include "../XCallback_Impl/XCallback_Impl_i.c" - -CComModule _Module; -BEGIN_OBJECT_MAP(ObjectMap) -END_OBJECT_MAP() - -HRESULT doTest(); - -int main(int argc, char* argv[]) -{ - HRESULT hr; - if( FAILED( hr=CoInitialize(NULL))) - { - _tprintf(_T("CoInitialize failed \n")); - return -1; - } - - - _Module.Init( ObjectMap, GetModuleHandle( NULL)); - - if( FAILED(hr=doTest())) - { - _com_error err( hr); - const TCHAR * errMsg= err.ErrorMessage(); - MessageBox( NULL, errMsg, "Test failed", MB_ICONERROR); - } - - - _Module.Term(); - CoUninitialize(); - - - return 0; -} - - -HRESULT doTest() -{ - HRESULT hr= S_OK; - - CComPtr<IUnknown> spUnk; - hr= spUnk.CoCreateInstance(L"com.sun.star.ServiceManager"); - if( FAILED( hr)) - return hr; - - CComDispatchDriver manager( spUnk); - CComVariant param( L"oletest.OleTest"); - CComVariant retVal; - hr= manager.Invoke1((LPCOLESTR)L"createInstance", ¶m, &retVal ); - - CComDispatchDriver oletest( retVal.punkVal); - - spUnk.Release(); - - hr= spUnk.CoCreateInstance(L"XCallback_Impl.Callback"); - if( FAILED( hr)) - return hr; - - CComQIPtr<IDispatch> paramDisp(spUnk); - - - //###################################################################### - // out parameters - //###################################################################### - CComVariant param1( paramDisp); - CComVariant param2(1); - - // oletest calls XCallback::func1 - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::returnInterface - param2= 2; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outInterface - param2= 3; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outStruct - param2= 4; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outEnum - param2= 5; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outSeqAny - param2= 6; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outAny - param2= 7; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outBool - param2= 8; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outChar - param2= 9; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outString - param2= 10; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outFloat - param2= 11; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outDouble - param2= 12; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outByte - param2= 13; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outShort - param2= 14; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outLong - param2= 15; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outValuesMixed - param2= 30; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::outValuesAll - param2= 31; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - - // XCallback::outSeqByte - // Does not work currently because Sequences are always converted to - // SAFEARRAY( VARIANT) - // param2= 32; - // hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - - //###################################################################### - // in / out parameters - //###################################################################### - // XCallback::inoutInterface - param2= 100; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutStruct - param2= 101; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutEnum - param2= 102; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutSeqAny - param2= 103; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutAny - param2= 104; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutBool - param2= 105; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutChar - param2= 106; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutString - param2= 107; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutFloat - param2= 108; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutDouble - param2= 109; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutByte - param2= 110; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutShort - param2= 111; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutLong - param2= 112; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutValuesAll - param2=120; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - //###################################################################### - // in parameters - //###################################################################### - // XCallback::inValues - param2= 200; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inSeqByte - // SAFEARRAY( VARIANT) - param2= 201; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - //XCallback::inSeqXEventListener - param2= 202; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - //###################################################################### - // The UNO test component OleTest calls on XCallback_Impl.Callback directly - // that is the COM object has not been past a parameter but rather OleTest - // creates the COM object itself - //###################################################################### - // XCallback::outValuesAll - // does not work currently - param2= 300; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutValuesAll - param2= 301; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - // XCallback::inoutValues - param2= 302; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - - // XCallback::inValues - param2= 303; - hr= oletest.Invoke2(L"testInterface", ¶m1, ¶m2); - //###################################################################### - // Test a COM object which implements several interfaces. - //###################################################################### - - CComQIPtr<IDispatch> dispSimple; - hr= dispSimple.CoCreateInstance(L"XCallback_Impl.Simple"); - CComVariant varSimple( dispSimple); - param2= 0; - hr= oletest.Invoke2(L"testInterface2", &varSimple, ¶m2); - - return hr; -} -// VARIANT CComVariant VT_UNKNOWN VT_DISPATCH V_UI1 CComDispatchDriver WINAPI - - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |