summaryrefslogtreecommitdiff
path: root/extensions/test/ole/unoTocomCalls/Test/Test.cpp
diff options
context:
space:
mode:
authorMichael Stahl <mstahl@redhat.com>2012-01-28 20:52:45 +0100
committerMichael Stahl <mstahl@redhat.com>2012-01-28 20:52:45 +0100
commit2e626373db2412ac22e8c5c27a60d11cd29e875b (patch)
tree9e9f67205cd5b72f1031721273e1534a3a1e5b0f /extensions/test/ole/unoTocomCalls/Test/Test.cpp
parentf7ee7bbd5174b084f018c2ec94d8c70c98ee04da (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.cpp249
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", &param, &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", &param1, &param2);
- // XCallback::returnInterface
- param2= 2;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outInterface
- param2= 3;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outStruct
- param2= 4;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outEnum
- param2= 5;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outSeqAny
- param2= 6;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outAny
- param2= 7;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outBool
- param2= 8;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outChar
- param2= 9;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outString
- param2= 10;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outFloat
- param2= 11;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outDouble
- param2= 12;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outByte
- param2= 13;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outShort
- param2= 14;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outLong
- param2= 15;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outValuesMixed
- param2= 30;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outValuesAll
- param2= 31;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
-
- // XCallback::outSeqByte
- // Does not work currently because Sequences are always converted to
- // SAFEARRAY( VARIANT)
- // param2= 32;
- // hr= oletest.Invoke2(L"testInterface", &param1, &param2);
-
- //######################################################################
- // in / out parameters
- //######################################################################
- // XCallback::inoutInterface
- param2= 100;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutStruct
- param2= 101;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutEnum
- param2= 102;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutSeqAny
- param2= 103;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutAny
- param2= 104;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutBool
- param2= 105;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutChar
- param2= 106;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutString
- param2= 107;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutFloat
- param2= 108;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutDouble
- param2= 109;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutByte
- param2= 110;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutShort
- param2= 111;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutLong
- param2= 112;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutValuesAll
- param2=120;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- //######################################################################
- // in parameters
- //######################################################################
- // XCallback::inValues
- param2= 200;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inSeqByte
- // SAFEARRAY( VARIANT)
- param2= 201;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- //XCallback::inSeqXEventListener
- param2= 202;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- //######################################################################
- // 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", &param1, &param2);
- // XCallback::inoutValuesAll
- param2= 301;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutValues
- param2= 302;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
-
- // XCallback::inValues
- param2= 303;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- //######################################################################
- // 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, &param2);
-
- return hr;
-}
-// VARIANT CComVariant VT_UNKNOWN VT_DISPATCH V_UI1 CComDispatchDriver WINAPI
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */