summaryrefslogtreecommitdiff
path: root/extensions/test/ole/OleClient
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/test/ole/OleClient')
-rw-r--r--extensions/test/ole/OleClient/OleClient.ini5
-rw-r--r--extensions/test/ole/OleClient/axhost.cxx58
-rw-r--r--extensions/test/ole/OleClient/axhost.hxx62
-rw-r--r--extensions/test/ole/OleClient/clientTest.cxx1319
-rw-r--r--extensions/test/ole/OleClient/funcs.cxx358
-rw-r--r--extensions/test/ole/OleClient/makefile.mk72
-rw-r--r--extensions/test/ole/OleClient/readme.txt10
7 files changed, 0 insertions, 1884 deletions
diff --git a/extensions/test/ole/OleClient/OleClient.ini b/extensions/test/ole/OleClient/OleClient.ini
deleted file mode 100644
index fa1ac118f..000000000
--- a/extensions/test/ole/OleClient/OleClient.ini
+++ /dev/null
@@ -1,5 +0,0 @@
-[Bootstrap]
-UNO_TYPES=types.rdb
-UNO_SERVICES=services.rdb
-
-
diff --git a/extensions/test/ole/OleClient/axhost.cxx b/extensions/test/ole/OleClient/axhost.cxx
deleted file mode 100644
index 93d5721b3..000000000
--- a/extensions/test/ole/OleClient/axhost.cxx
+++ /dev/null
@@ -1,58 +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.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-
-
-#include "axhost.hxx"
-
-HostWin::HostWin(LPWSTR progid)
-{
- controlName= progid;
- RECT rcPos={0,0,200,200};
- Create(0, rcPos, _T("HostWin"));
-}
-HostWin::~HostWin()
-{
- DestroyWindow();
-}
-
-
-LRESULT HostWin::OnCreate(UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL& /*bHandled*/)
-{
- CAxWindow wnd(m_hWnd);
-
- HRESULT hr= wnd.CreateControlEx( controlName, NULL, NULL,&spControl.p);
-
- return 0;
-}
-
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleClient/axhost.hxx b/extensions/test/ole/OleClient/axhost.hxx
deleted file mode 100644
index 88b870f84..000000000
--- a/extensions/test/ole/OleClient/axhost.hxx
+++ /dev/null
@@ -1,62 +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.
- *
- ************************************************************************/
-
-#ifndef __AXHOST_HXX
-#define __AXHOST_HXX
-
-#include <atlbase.h>
-extern CComModule _Module;
-#include <atlcom.h>
-#include <atlhost.h>
-
-
-class HostWin: public CWindowImpl<HostWin, CWindow,
- CWinTraits< WS_CAPTION|WS_POPUPWINDOW|WS_VISIBLE, 0> >
-{
- CComBSTR controlName;
- CComPtr<IUnknown> spControl;
-public:
- HostWin(LPWSTR progid);
-
- ~HostWin();
-
-
- BEGIN_MSG_MAP(HostWin)
- MESSAGE_HANDLER( WM_CREATE, OnCreate)
- END_MSG_MAP()
-
- IUnknown* GetHostedControl(){
- return spControl;
- }
-
- LRESULT OnCreate(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled);
-};
-#endif
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleClient/clientTest.cxx b/extensions/test/ole/OleClient/clientTest.cxx
deleted file mode 100644
index 8277bd89d..000000000
--- a/extensions/test/ole/OleClient/clientTest.cxx
+++ /dev/null
@@ -1,1319 +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.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-
-#include <atlbase.h>
-
-CComModule _Module;
-#include<atlcom.h>
-#include <comdef.h>
-
-#include "axhost.hxx"
-
-#include <stdio.h>
-#include "typelib/typedescription.hxx"
-#include <com/sun/star/bridge/oleautomation/Date.hpp>
-#include <com/sun/star/bridge/oleautomation/Currency.hpp>
-#include <com/sun/star/bridge/oleautomation/Decimal.hpp>
-#include <com/sun/star/bridge/oleautomation/SCode.hpp>
-#include <com/sun/star/bridge/oleautomation/NamedArgument.hpp>
-#include <com/sun/star/bridge/oleautomation/PropertyPutArgument.hpp>
-#include <com/sun/star/lang/XMultiServiceFactory.hpp>
-#include <com/sun/star/script/XInvocation.hpp>
-#include <com/sun/star/uno/Reference.h>
-#include <cppuhelper/servicefactory.hxx>
-#include <rtl/string.h>
-
-#define OUSTR(x) ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM(x) )
-BEGIN_OBJECT_MAP(ObjectMap)
-END_OBJECT_MAP()
-
-using namespace com::sun::star::lang;
-using namespace com::sun::star::uno;
-using namespace com::sun::star::script;
-using namespace com::sun::star::bridge::oleautomation;
-using namespace cppu;
-
-using ::rtl::OUString;
-
-Reference<XInvocation> convertComObject( IUnknown* pUnk);
-Reference<XInvocation> getComObject( OUString progId);
-bool checkOutArgs(const Sequence<Any> & outArgs,
- const Sequence<sal_Int16> & indices, const Sequence<Any> & values);
-
-bool doSimpleTest(const Reference<XInvocation> & inv);
-bool doSimpleSequenceTest(const Reference<XInvocation> & inv);
-bool doParameterTest(const Reference<XInvocation> & inv);
-bool doPropertyWithArgumentTest(const Reference<XInvocation> & inv);
-bool equalSequences(const Any& orig, const Any& returned);
-HRESULT doTest();
-HRESULT doTest2( Reference<XInvocation> &);
-Reference<XInvocation> getComObject(OUString& );
-
-HRESULT InitializeParameter();
-void printResultVariantArray( VARIANT & var);
-void printVariant( VARIANT & var);
-void printSequence( Sequence<Any>& val);
-
-extern "C" int SAL_CALL main( int , char **)
-{
- 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);
- }
- else
- {
- MessageBox( NULL,NULL , "Test succeeded", MB_ICONINFORMATION);
- }
-
-
- _Module.Term();
- CoUninitialize();
- return 0;
-}
-//Also supports named args
-
-bool doParameterTest(const Reference<XInvocation> & inv)
-{
- Sequence< sal_Int16> seqIndices;
- Sequence<Any> seqOut;
-
- Any arArgs[2];
- Any arValue[2];
- Any arArgs1[4];
-
- NamedArgument arg1(OUString(L"val1"), makeAny((sal_Int32) 123));
- NamedArgument arg2(OUString(L"val2"), makeAny((sal_Int32) 456));
- NamedArgument arg3(OUString(L"val3"), makeAny((sal_Int32) 0xff));
- NamedArgument arg4(OUString(L"val4"), makeAny((sal_Int32) 0xffff));
-
- NamedArgument argOut1(OUString(L"val1"), Any());
- NamedArgument argOut2(OUString(L"val2"), Any());
- Sequence<Any> seqNoArgs;
- arArgs[0] <<= (sal_Int32) 0;
- arArgs[1] <<= (sal_Int32) 0;
- Sequence<Any> seqPositional0(arArgs, 2);
-
-
- arArgs[0] <<= arg1;
- arArgs[1] <<= arg2;
- Sequence<Any> seqNamed(arArgs, 2);
- arArgs[0] <<= arg2;
- arArgs[1] <<= arg1;
- Sequence<Any> seqNamed2(arArgs, 2);
- arArgs[0] <<= argOut1;
- arArgs[1] <<= argOut2;
- Sequence<Any> seqNamed3(arArgs, 2);
- arArgs[0] <<= argOut2;
- arArgs[1] <<= argOut1;
- Sequence<Any> seqNamed4(arArgs, 2);
-
- arArgs[0] <<= arg1;
- Sequence<Any> seqNamed5(arArgs, 1);
- arArgs[0] <<= arg2;
- Sequence<Any> seqNamed6(arArgs, 1);
-
- arArgs[0] <<= (sal_Int32) 123;
- arArgs[1] <<= (sal_Int32) 456;
- Sequence<Any> seqPositional(arArgs, 2);
- arArgs[0] <<= (sal_Int32) 123;
- Sequence<Any> seqPositional2(arArgs, 1);
-
- arArgs[0] <<= Any();
- arArgs[1] <<= Any();
- Sequence<Any> seqPositional3(arArgs, 2);
-
- arArgs[0] <<= (sal_Int32) 123;
- arArgs[1] <<= SCode(DISP_E_PARAMNOTFOUND);
- Sequence<Any> seqOutOpt1(arArgs, 2);
-
- arArgs[0] <<= SCode(DISP_E_PARAMNOTFOUND);
- arArgs[1] <<= SCode(DISP_E_PARAMNOTFOUND);
- Sequence<Any> seqOutOpt2(arArgs, 2);
-
- arArgs[0] <<= SCode(DISP_E_PARAMNOTFOUND);
- arArgs[1] <<= (sal_Int32) 456;
- Sequence<Any> seqOutOpt3(arArgs, 2);
-
- arArgs1[0] <<= (sal_Int32) 0;
- arArgs1[1] <<= (sal_Int32) 0;
- arArgs1[2] <<= (sal_Int32) 0;
- arArgs1[3] <<= (sal_Int32) 0;
- Sequence<Any> seqMix0(arArgs1, 4);
-
- arArgs1[0] <<= (sal_Int32) 123;
- arArgs1[1] <<= (sal_Int32) 456;
- arArgs1[2] <<= arg3;
- arArgs1[3] <<= arg4;
- Sequence<Any> seqMix(arArgs1, 4);
-
- arArgs1[0] <<= Any();
- arArgs1[1] <<= (sal_Int32) 456;
- arArgs1[2] <<= arg4;
- Sequence<Any> seqMix2(arArgs1, 3);
-
- arArgs1[0] <<= SCode(DISP_E_PARAMNOTFOUND);
- arArgs1[1] <<= (sal_Int32) 456;
- arArgs1[2] <<= SCode(DISP_E_PARAMNOTFOUND);
- arArgs1[3] <<= arg4.Value;
- Sequence<Any> seqMixOut(arArgs1, 4);
-
- arArgs1[0] <<= SCode(DISP_E_PARAMNOTFOUND);
- arArgs1[1] <<= Any();
- arArgs1[2] <<= arg4;
- Sequence<Any> seqMix2Out(arArgs1, 3);
-
-
-
- //in args + out, optional, positional-----------------------------------------
- //first general test
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqPositional))
- return false;
-
- //2 optional args, 1 provided
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional2, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt1))
- return false;
-
- //2 optional args, 0 provided
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNoArgs, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional3, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt2))
- return false;
-
- //named args --------------------------------------------
-
- // 2 named args, correct position
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional0, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqPositional))
- return false;
-
- // 2named args, position differs
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed2, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqPositional))
- return false;
-
- //named out args, 2 named args with correct position
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqIndices.realloc(0);
- inv->invoke(OUString(L"optional5"), seqNamed3, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqNamed ))
- return false;
-
- //named out args, 2 named args with different position
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqIndices.realloc(0);
- inv->invoke(OUString(L"optional5"), seqNamed4, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqNamed2 ))
- return false;
-
-
- //2 args, 1 provided (correct order)
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed5, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt1))
- return false;
- //2 args, 1 provided (incorrect order)
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed6, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt3))
- return false;
-
- //2position + 2 2named args, correct order
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional6"), seqMix0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional6"), seqMix, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional7"), seqMix, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqMix))
- return false;
-
- // 4 in args, 1 positional, 1 named, 1 positional omitted
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional6"), seqMix0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional6"), seqMix2, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional7"), seqMix0, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqMixOut))
- return false;
-
- // 4 out args, 1 positional, 1 named, 1 positional omitted
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional6"), seqMix2, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional7"), seqMix2Out, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqMix2Out))
- return false;
-
-
- return true;
-}
-bool doPropertyTest(const Reference<XInvocation> & inv)
-{
- Sequence< sal_Int16> seqIndices;
- Sequence<Any> seqOut;
-
- Any inBool, outBool;
- Any inByte, outByte;
- Any inShort, outShort;
- Any inLong, outLong;
- Any inString, outString;
- Any inFloat, outFloat;
- Any inDouble, outDouble;
- Any inVariant, outVariant;
- Any inObject, outObject;
- Any inUnknown, outUnknown;
- Any inCY, outCY;
- Any inDate, outDate;
- Any inDecimal, outDecimal;
- Any inSCode, outSCode;
- Any inrefLong, outrefLong;
- Any inrefVariant, outrefVariant;
- Any inrefDecimal, outrefDecimal;
- Any inParamsLong, outParamsLong;
- Reference<XInterface> xintUnknown(getComObject(L"AxTestComponents.Foo"));
-
- inBool <<= (sal_Bool) sal_True;
- inv->setValue(OUString(L"prpBool"), inBool);
- outBool = inv->getValue(OUString(L"prpBool"));
-
- inByte <<= (sal_Int8) 100;
- inv->setValue(OUString(L"prpByte"), inByte);
- outByte = inv->getValue(OUString(L"prpByte"));
-
- inShort <<= static_cast<sal_Int16>( -1);
- inv->setValue(OUString(L"prpShort"), inShort);
- outShort = inv->getValue(OUString(L"prpShort"));
-
- inLong <<= ( sal_Int32) 1234567;
- inv->setValue(OUString(L"prpLong"), inLong // TODO: Add your implementation code here
-);
- outLong = inv->getValue(OUString(L"prpLong"));
-
- inString <<= OUString(L" this is clientTest.exe");
- inv->setValue(OUString(L"prpString"), inString);
- outString = inv->getValue(OUString(L"prpString"));
-
- inFloat <<= 3.14f;
- inv->setValue(OUString(L"prpFloat"), inFloat);
- outFloat = inv->getValue(OUString(L"prpFloat"));
-
- inDouble <<= ( double) 3.145;
- inv->setValue(OUString(L"prpDouble"), inDouble);
- outDouble = inv->getValue(OUString(L"prpDouble"));
-
- inVariant <<= OUString(L"A string in an any");
- inv->setValue(OUString(L"prpVariant"), inVariant);
- outVariant = inv->getValue(OUString(L"prpVariant"));
-
- inObject <<= inv;
- inv->setValue(OUString(L"prpObject"), inObject);
- outObject = inv->getValue(OUString(L"prpObject"));
-
- inUnknown <<= xintUnknown;
- inv->setValue(OUString(L"prpUnknown"), inUnknown);
- outUnknown = inv->getValue(OUString(L"prpUnknown"));
-
- Currency cur(99999);
- inCY <<= cur;
- inv->setValue(OUString(L"prpCurrency"), inCY);
- outCY = inv->getValue(OUString(L"prpCurrency"));
-
- Date d(37889.0);
- inDate <<= d;
- inv->setValue(OUString(L"prpDate"), inDate);
- outDate = inv->getValue(OUString(L"prpDate"));
-
- Decimal dec(20, 0, 0xffffffff, 0xffffffff, 0x0fffffff);
- inDecimal <<= dec;
- inv->setValue(OUString(L"prpDecimal"), inDecimal);
- outDecimal = inv->getValue(OUString(L"prpDecimal"));
-
- SCode code(DISP_E_BADVARTYPE);
- inSCode <<= code;
- inv->setValue(OUString(L"prpSCode"), inSCode);
- outSCode = inv->getValue(OUString(L"prpSCode"));
-
- inrefLong <<= (sal_Int32) 123456;
- inv->setValue(OUString(L"prprefLong"), inrefLong);
- outrefLong = inv->getValue(OUString(L"prprefLong"));
-
- inrefVariant <<= OUString(L"A string in an any");
- inv->setValue(OUString(L"prprefVariant"), inrefVariant);
- outrefVariant = inv->getValue(OUString(L"prprefVariant"));
-
- Decimal decref(20, 0, 0xffffffff, 0xffffffff, 0x0fffffff);
- inrefDecimal <<= decref;
- inv->setValue(OUString(L"prprefDecimal"), inrefDecimal);
- outrefDecimal = inv->getValue(OUString(L"prprefDecimal"));
-
- if (inBool != outBool || inByte != outByte || inShort != outShort || inLong != outLong
- || inFloat != outFloat || inDouble != outDouble || inString != outString
- || inVariant != outVariant || inObject != outObject
- || inUnknown != outUnknown || inCY != outCY
- || inDate != outDate || inDecimal != outDecimal || inSCode != outSCode
- || inrefLong != outrefLong ||inrefVariant != outrefVariant
- || inrefDecimal != outrefDecimal)
- return false;
- return true;
-}
-
-bool doPropertyWithArgumentTest(const Reference<XInvocation> & inv)
-{
- Sequence< sal_Int16> seqIndices;
- Sequence<Any> seqOut;
-
- Any arMultiArgs[3];
- arMultiArgs[0] <<= makeAny((sal_Int32) 0);
- arMultiArgs[1] <<= makeAny((sal_Int32) 0);
- arMultiArgs[2] <<= PropertyPutArgument(makeAny((sal_Int32) 0));
- Sequence<Any> seqMultiArgPut0(arMultiArgs, 3);
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 1);
- arMultiArgs[1] <<= makeAny((sal_Int32) 2);
- arMultiArgs[2] <<= PropertyPutArgument(makeAny((sal_Int32) 3));
- Sequence<Any> seqMultiArgPut1(arMultiArgs, 3);
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 1);
- arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 3));
- Sequence<Any> seqMultiArgPut2(arMultiArgs, 2);
-
- arMultiArgs[0] <<= NamedArgument(OUString(L"val2"), makeAny((sal_Int32) 1));
- arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 3));
- Sequence<Any> seqMultiArgPut3(arMultiArgs, 2);
-
- arMultiArgs[0] <<= NamedArgument(OUString(L"val2"), makeAny((sal_Int32) 1));
- arMultiArgs[1] <<= NamedArgument(OUString(L"val3"), makeAny((sal_Int32) 3));
- Sequence<Any> seqMultiArgPut4(arMultiArgs, 2);
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 0);
- arMultiArgs[1] <<= makeAny((sal_Int32) 0);
- Sequence<Any> seqMultiArgGet0(arMultiArgs, 2);
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 1);
- arMultiArgs[1] <<= makeAny((sal_Int32) 2);
- Sequence<Any> seqMultiArgGet1(arMultiArgs, 2);
- Sequence<Any> seqMultiArgGet2(arMultiArgs, 1);
-
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 0);
- arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 0));
- Sequence<Any> seqMultiArgPut5(arMultiArgs, 2);
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 1);
- arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 2));
- Sequence<Any> seqMultiArgPut6(arMultiArgs, 2);
-
- arMultiArgs[0] <<= Any();
- arMultiArgs[1] <<= Any();
- Sequence<Any> seqMultiVoid(arMultiArgs, 2);
-
- arMultiArgs[0] = makeAny((sal_Int32) 0);
- arMultiArgs[1] = makeAny((sal_Int32) 0);
- Sequence<Any> seqMultiVoid2(arMultiArgs, 2);
-
- //[propput, ...] HRESULT prpMultiArg1([in,out,optional] VARIANT* val1, [in,out,optional] VARIANT* val2, [in] VARIANT* newVal);
- //[propget, ...] HRESULT prpMultiArg1([in,out,optional] VARIANT* val1, [in,out,optional] VARIANT* val2, [out, optional, retval] VARIANT* pVal);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut0, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut1, seqIndices, seqOut);
- //check in/out args
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- Any anyRet = inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgGet0,
- seqIndices, seqOut);
-
- if (anyRet != ((PropertyPutArgument const *)seqMultiArgPut1[2].getValue())->Value
- || ! checkOutArgs(seqOut, seqIndices, Sequence<Any>(seqMultiArgPut1.getArray(), 2)))
- {
- return false;
- }
- // test optional (one arg omitted
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut0, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut2, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- anyRet = inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgGet0,
- seqIndices, seqOut);
-
- arMultiArgs[0] = makeAny((sal_Int32) 1);
- arMultiArgs[1] = makeAny((SCode(DISP_E_PARAMNOTFOUND)));
-
- if (anyRet != ((PropertyPutArgument const *) seqMultiArgPut2[1].getValue())->Value
- || ! checkOutArgs(seqOut, seqIndices, Sequence<Any>(arMultiArgs, 2)))
- {
- return false;
- }
-
- //test one named arg and one omitted
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut0, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut3, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- anyRet = inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgGet0,
- seqIndices, seqOut);
-
- arMultiArgs[0] = makeAny((SCode(DISP_E_PARAMNOTFOUND)));
- arMultiArgs[1] = ((NamedArgument const*) seqMultiArgPut3[0].getValue())->Value;
- if (anyRet != ((PropertyPutArgument const*) seqMultiArgPut3[1].getValue())->Value
- || ! checkOutArgs(seqOut, seqIndices, Sequence<Any>(arMultiArgs, 2)))
- {
- return false;
- }
-
-// [propget,...] HRESULT prpMultiArg2([in] VARIANT val1, [out, retval] VARIANT* pVal);
-// [propput,...] HRESULT prpMultiArg2([in] VARIANT val1, [in] VARIANT newVal);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg2"), seqMultiArgPut5, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg2GetValues"), seqMultiVoid, seqIndices, seqOut);
-
- if ( ! checkOutArgs(seqOut, seqIndices, seqMultiVoid2))
- return false;
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- anyRet = inv->invoke(OUString(L"prpMultiArg2"), seqMultiArgPut6,
- seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- anyRet = inv->invoke(OUString(L"prpMultiArg2GetValues"), seqMultiVoid,
- seqIndices, seqOut);
-
-// [propget,...] HRESULT prpMultiArg3([in,out] LONG* val1, [out, retval] LONG* pVal);
-// [propput,...] HRESULT prpMultiArg3([in,out] LONG* val1, [in] LONG newVal);
-
- if ( ! checkOutArgs(seqOut, seqIndices, seqMultiArgGet1 ))
- return false;
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg3"), seqMultiArgPut5, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg3"), seqMultiArgPut6, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- anyRet = inv->invoke(OUString(L"prpMultiArg3"), seqMultiArgGet2, seqIndices, seqOut);
-
- if ( anyRet != ((PropertyPutArgument const*) seqMultiArgPut6[1].getValue())->Value
- || !checkOutArgs(seqOut, seqIndices, seqMultiArgGet2))
- return false;
-
-
- //hasProperty, hasMethod
- if (inv->hasProperty(OUSTR("prpMultiArg1")))
- return false;
- if ( ! inv->hasMethod(OUSTR("prpMultiArg1")))
- return false;
- if ( ! inv->hasProperty(OUSTR("prprefLong")))
- return false;
- if (inv->hasMethod(OUSTR("prprefLong")))
- return false;
- if ( ! inv->hasMethod(OUSTR("inLong")))
- return false;
-
- return true;
-}
-bool doSimpleTest(const Reference<XInvocation> & inv)
-{
- Sequence< sal_Int16> seqIndices;
- Sequence<Any> seqOut;
-
- Any inBool, outBool;
- Any inByte, outByte;
- Any inShort, outShort;
- Any inLong, outLong;
- Any inString, outString;
- Any inFloat, outFloat;
- Any inDouble, outDouble;
- Any inVariant, outVariant;
- Any inObject, outObject;
- Any inUnknown, outUnknown;
- Any inCY, outCY;
- Any inDate, outDate;
- Any inDecimal, outDecimal;
- Any inSCode, outSCode;
- Any inrefLong, outrefLong;
- Any inrefVariant, outrefVariant;
- Any inrefDecimal, outrefDecimal;
-
- Reference<XInterface> xIntFoo(getComObject(L"AxTestComponents.Foo"));
- //###################################################################################
- // in and out parameter
- //###################################################################################
- sal_Bool aBool = sal_True;
- inBool.setValue(&aBool, getCppuBooleanType());
- inv->invoke(OUString(L"inBool"), Sequence< Any > ( &inBool, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outBool"), Sequence< Any > ( & outBool, 1), seqIndices, seqOut);
- outBool <<= seqOut[0];
-
- inByte <<= (sal_Int8) 127;
- inv->invoke(OUString(L"inByte"), Sequence< Any > ( & inByte, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outByte"), Sequence< Any > ( & outByte, 1), seqIndices, seqOut);
- outByte <<= seqOut[0];
-
- inShort <<= static_cast<sal_Int16>(-1);
- inv->invoke(OUString(L"inShort"), Sequence< Any > ( & inShort, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outShort"), Sequence< Any > ( & outShort, 1), seqIndices, seqOut);
- outShort <<= seqOut[0];
-
- inLong <<= ( sal_Int32) 1234567;
- inv->invoke(OUString(L"inLong"), Sequence< Any > ( & inLong, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outLong"), Sequence< Any > ( & outLong, 1 ), seqIndices, seqOut);
- outLong <<= seqOut[0];
-
- inString <<= OUString(L" this is clientTest.exe");
- inv->invoke(OUString(L"inString"), Sequence< Any > ( & inString, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outString"), Sequence< Any > ( & outString, 1 ), seqIndices, seqOut);
- outString <<= seqOut[0];
-
- inFloat <<= 3.14f;
- inv->invoke(OUString(L"inFloat"), Sequence< Any > ( & inFloat, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outFloat"), Sequence< Any > ( & outFloat, 1 ), seqIndices, seqOut);
- outFloat <<= seqOut[0];
-
- inDouble <<= ( double) 3.145;
- inv->invoke(OUString(L"inDouble"), Sequence< Any > ( & inDouble, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outDouble"), Sequence< Any > ( & outDouble, 1 ), seqIndices, seqOut);
- outDouble <<= seqOut[0];
-
- inVariant <<= OUString(L" A string in an any");
- inv->invoke(OUString(L"inVariant"), Sequence< Any > ( & inVariant, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outVariant"), Sequence< Any > (&outVariant, 1), seqIndices, seqOut);
- outVariant <<= seqOut[0];
-
- inObject <<= inv;
- inv->invoke(OUString(L"inObject"), Sequence< Any > ( & inObject, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outObject"), Sequence< Any > (& outObject, 1), seqIndices, seqOut);
- outObject <<= seqOut[0];
-
- inUnknown <<= xIntFoo;
- inv->invoke(OUString(L"inUnknown"), Sequence< Any > ( & inUnknown, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outUnknown"), Sequence< Any > (& outUnknown, 1), seqIndices, seqOut);
- outUnknown <<= seqOut[0];
-
- Currency cur(999999);
- inCY <<= cur;
- inv->invoke(OUString(L"inCurrency"), Sequence<Any>( & inCY, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outCurrency"), Sequence< Any > (& outCY, 1), seqIndices, seqOut);
- outCY <<= seqOut[0];
-
- Date dDate(37889.0);
- inDate <<= dDate;
- inv->invoke(OUString(L"inDate"), Sequence<Any>( & inDate, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outDate"), Sequence< Any > (& outDate, 1), seqIndices, seqOut);
- outDate <<= seqOut[0];
-
- Decimal dec(3, 0, 0xffffffff, 0xffffffff, 0xfffffff0);
- inDecimal <<= dec;
- inv->invoke(OUString(L"inDecimal"), Sequence<Any>( & inDecimal, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outDecimal"), Sequence< Any > (& outDecimal, 1), seqIndices, seqOut);
- outDecimal <<= seqOut[0];
-
- SCode code(DISP_E_BADVARTYPE);
- inSCode <<= code;
- inv->invoke(OUString(L"inSCode"), Sequence<Any>( & inSCode, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSCode"), Sequence< Any > (& outSCode, 1), seqIndices, seqOut);
- outSCode <<= seqOut[0];
-
- if (inBool != outBool || inByte != outByte || inShort != outShort || inLong != outLong
- || inFloat != outFloat || inDouble != outDouble || inString != outString
- || inVariant != outVariant || inObject != outObject || inUnknown != outUnknown
- || inCY != outCY
- || inDate != outDate || inDecimal != outDecimal || inSCode != outSCode)
- return false;
- //###################################################################################
- // in/out parameter
- //###################################################################################
- outBool = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutBool"), Sequence< Any > ( & inBool, 1), seqIndices, seqOut);
- outBool <<= seqOut[0];
-
- outByte = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutByte"), Sequence< Any > ( & inByte, 1), seqIndices, seqOut);
- outByte <<= seqOut[0];
-
- outShort = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutShort"), Sequence< Any > ( & inShort, 1), seqIndices, seqOut);
- outShort <<= seqOut[0];
-
- outLong = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutLong"), Sequence< Any > ( & inLong, 1), seqIndices, seqOut);
- outLong <<= seqOut[0];
-
- outString = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutString"), Sequence< Any > ( & inString, 1), seqIndices, seqOut);
- outString <<= seqOut[0];
-
- outFloat = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutFloat"), Sequence< Any > ( & inFloat, 1), seqIndices, seqOut);
- outFloat <<= seqOut[0];
-
- outDouble = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutDouble"), Sequence< Any > ( &inDouble, 1), seqIndices, seqOut);
- outDouble <<= seqOut[0];
-
- outVariant = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutVariant"), Sequence< Any > ( & inVariant, 1), seqIndices, seqOut);
- outVariant <<= seqOut[0];
-
- outObject = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutObject"), Sequence< Any > ( & inObject, 1), seqIndices, seqOut);
- outObject <<= seqOut[0];
-
- outCY = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutCurrency"), Sequence< Any > ( & inCY, 1), seqIndices, seqOut);
- outCY <<= seqOut[0];
-
- outDate = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutDate"), Sequence< Any > ( & inDate, 1), seqIndices, seqOut);
- outDate <<= seqOut[0];
-
- outDecimal = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutDecimal"), Sequence< Any > (& inDecimal, 1), seqIndices, seqOut);
- outDecimal <<= seqOut[0];
-
- outSCode = Any();
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutSCode"), Sequence< Any > (& inSCode, 1), seqIndices, seqOut);
- outSCode <<= seqOut[0];
-
- if (inBool != outBool || inByte != outByte || inShort != outShort || inLong != outLong
- || inFloat != outFloat || inDouble != outDouble || inString != outString
- || inVariant != outVariant || inObject != outObject || inCY != outCY
- || inDate != outDate || inDecimal != outDecimal || inSCode != outSCode)
- return false;
-
- //###################################################################################
- // in byref parameters
- //###################################################################################
-
- inrefLong <<= (sal_Int32) 1234;
- inv->invoke(OUString(L"inrefLong"), Sequence<Any>( & inrefLong, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outLong"), Sequence< Any > (& outrefLong, 1), seqIndices, seqOut);
- outrefLong <<= seqOut[0];
-
- inrefVariant <<= OUString(L" A string in an any");
- inv->invoke(OUString(L"inrefVariant"), Sequence< Any > ( & inrefVariant, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outVariant"), Sequence< Any > (&outrefVariant, 1), seqIndices, seqOut);
- outrefVariant <<= seqOut[0];
-
- Decimal refdec(5, 1, 0xffff, 0xff, 0x1);
- inrefDecimal <<= refdec;
- inv->invoke(OUString(L"inrefDecimal"), Sequence< Any > ( & inrefDecimal, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outDecimal"), Sequence< Any > (&outrefDecimal, 1), seqIndices, seqOut);
- outrefDecimal <<= seqOut[0];
-
- if (inrefLong != outrefLong || inrefVariant != outrefVariant
- || inrefDecimal != outrefDecimal)
- return false;
-
-
- //###################################################################################
- // mixed parameter
- //###################################################################################
- // mixed1
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- Any param[3];
- param[0] = inByte;
- param[1] = inFloat;
- param[2] = inVariant;
- inv->invoke(OUString(L"mixed1"), Sequence< Any >(param, 3), seqIndices, seqOut);
-
- if (seqOut.getLength() != 3 || inByte != seqOut[0] || inFloat != seqOut[1]
- || inVariant != seqOut[2])
- return false;
- return true;
-}
-
-bool doSimpleSequenceTest(const Reference<XInvocation> & inv)
-{
- bool ret = true;
- Sequence<sal_Int16> seqIndices;
- Sequence<Any> seqOut;
- Any voidAny;
- Any inArAny;
- Any outArray;
- Any inArBool, outArBool;
- Any inArByte, outArByte;
- Any inArShort, outArShort;
- Any inArLong, outArLong;
- Any inArString, outArString;
- Any inArFloat, outArFloat;
- Any inArDouble, outArDouble;
- Any inArObject, outArObject;
- Any outVariant;
-
- //Initialize arrays
- OUString arStr[]= {L"string0", L"string1", L"string2"};
- Sequence<OUString> seq( arStr, 3);
- inArString <<= seq;
-
- Any arAnyStrTmp[3];
- arAnyStrTmp[0]<<= arStr[0];
- arAnyStrTmp[1]<<= arStr[1];
- arAnyStrTmp[2]<<= arStr[2];
- Sequence<Any> seq_1( arAnyStrTmp, 3);
- inArAny <<= seq_1;
- //###################################################################################
- // in, out Sequences
- //###################################################################################
- //Test sequence containing Anys of Strings
- inv->invoke(OUString(L"inArray"), Sequence< Any > ( & inArAny, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outArray"), Sequence<Any>( & voidAny, 1), seqIndices, seqOut);
- if (inArAny != seqOut[0])
- return false;
-
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inArray"), Sequence< Any >( & inArString, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"outArray"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArray <<= seqOut[0];
-
- sal_Int8 arByte[]={1,2,3};
- Sequence<sal_Int8> seqByte(arByte, 3);
- inArByte <<= seqByte;
- inv->invoke(OUString(L"inSequenceByte"),Sequence<Any>( & inArByte, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceByte"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArByte <<= seqOut[0];
-
- sal_Int16 arShort[]={4,5,6};
- Sequence<sal_Int16> seqShort(arShort, 3);
- inArShort<<= seqShort;
- inv->invoke(OUString(L"inSequenceShort"),Sequence< Any >( & inArShort, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceShort"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArShort <<= seqOut[0];
-
- sal_Int32 arLong[] = {7,8,9};
- Sequence<sal_Int32> seqLong(arLong, 3);
- inArLong <<= seqLong;
- inv->invoke(OUString(L"inSequenceLong"),Sequence< Any > ( & inArLong, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceLong"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArLong <<= seqOut[0];
-
- inv->invoke(OUString(L"inSequenceLong"),Sequence< Any > ( & inArLong, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceLong"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArLong <<= seqOut[0];
-
- inv->invoke( OUString(L"inSequenceString"),Sequence< Any > ( & inArString, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceString"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArString <<= seqOut[0];
-
- float arFloat[]={3.14f, 31.4f, 314.f};
- Sequence<float> seqFloat( arFloat, 3);
- inArFloat <<= seqFloat;
- inv->invoke( OUString(L"inSequenceFloat"),Sequence< Any > ( & inArFloat, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceFloat"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArFloat <<= seqOut[0];
-
- double arDouble[]={3.145, 31.45, 3145.};
- Sequence<double> seqDouble( arDouble, 3);
- inArDouble <<= seqDouble;
- inv->invoke(OUString(L"inSequenceDouble"),Sequence< Any >( & inArDouble, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceDouble"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArDouble <<= seqOut[0];
-
- Sequence<Reference<XInvocation> > seqObj(2);
- seqObj[0]= getComObject(L"AxTestComponents.Basic");
- seqObj[1]= getComObject(L"AxTestComponents.Basic");
- inArObject <<= seqObj;
- inv->invoke(OUString(L"inSequenceObject"),Sequence< Any >( & inArObject, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceObject"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArObject <<= seqOut[0];
-
- if ( ! equalSequences(inArByte, outArByte) || ! equalSequences(inArShort, outArShort)
- || ! equalSequences(inArLong, outArLong) || ! equalSequences(inArString, outArray)
- || ! equalSequences(inArFloat, outArFloat) || ! equalSequences(inArDouble, outArDouble)
- || ! equalSequences(inArString, outArString) || ! equalSequences(inArObject, outArObject))
- return false;
-
- //###################################################################################
- // in/out Sequences
- //###################################################################################
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutArray"), Sequence< Any >( & inArString, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutArray"), Sequence< Any >( & inArString, 1), seqIndices, seqOut);
- outArray <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceByte"), Sequence<Any>( & inArByte, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceByte"), Sequence<Any>( & inArByte, 1), seqIndices, seqOut);
- outArByte <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceShort"), Sequence<Any>( & inArShort, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceShort"), Sequence<Any>( & inArShort, 1), seqIndices, seqOut);
- outArShort <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceLong"), Sequence<Any>( & inArLong, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceLong"), Sequence< Any >( & inArLong, 1), seqIndices, seqOut);
- outArLong <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceString"), Sequence<Any>( & inArString, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceString"), Sequence<Any>( & inArString, 1), seqIndices, seqOut);
- outArString <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceFloat"), Sequence<Any>( & inArFloat, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceFloat"), Sequence<Any>( & inArFloat, 1), seqIndices, seqOut);
- outArFloat <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceDouble"), Sequence<Any>( & inArDouble, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceDouble"), Sequence<Any>( & inArDouble, 1), seqIndices, seqOut);
- outArDouble <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceObject"), Sequence<Any>( & inArObject, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceObject"), Sequence<Any>( & inArObject, 1), seqIndices, seqOut);
- outArObject <<= seqOut[0];
-
- if ( ! equalSequences(inArByte, outArByte) || ! equalSequences(inArShort, outArShort)
- || ! equalSequences(inArLong, outArLong) || ! equalSequences(inArString, outArray)
- || ! equalSequences(inArFloat, outArFloat) || ! equalSequences(inArDouble, outArDouble)
- || ! equalSequences(inArString, outArString) || ! equalSequences(inArObject, outArObject))
- return false;
-
- return ret;
-}
-
-HRESULT doTest()
-{
- HRESULT hr= S_OK;
- USES_CONVERSION;
- Reference<XInvocation> inv= getComObject( L"AxTestComponents.Basic");
-
- HostWin* pWin= new HostWin( L"MFCCONTROL.MfcControlCtrl.1");
- CComPtr<IUnknown> spUnk= pWin->GetHostedControl();
- Reference<XInvocation> invMfc= convertComObject( spUnk.p);
-
- Sequence< sal_Int16> seqIndices;
- Sequence<Any> seqOut;
-
- Any aAny;
- Any anyOut;
- char buff[1024];
- Any seqAny;
-
- if (! doSimpleTest(inv))
- {
- fprintf(stdout, "### Test failed!\n");
- return E_FAIL;
- }
-
- if (! doPropertyTest(inv))
- {
- fprintf(stdout, "### Test failed!\n");
- return E_FAIL;
- }
-
- if ( ! doSimpleSequenceTest(inv))
- {
- fprintf(stdout, "### Test failed! \n");
- return E_FAIL;
- }
-
- if ( ! doParameterTest(inv))
- {
- fprintf(stdout, "### Test failed! \n");
- return E_FAIL;
- }
-
- if ( ! doPropertyWithArgumentTest(inv))
- {
- fprintf(stdout, "### Test failed! \n");
- return E_FAIL;
- }
-
-
-
-
-
-//
-// //###################################################################################
-// // in multi Sequences
-// //###################################################################################
-// // inMulDimArrayLong
- sal_Int32 arLongi[]={1,2,3};
- sal_Int32 arLongi2[]={4,5,6,7};
- sal_Int32 arLongi3[]={8,9,10,11,12};
-
- Sequence<sal_Int32> seqLongi1( arLongi, 3);
- Sequence<sal_Int32> seqLongi2( arLongi2, 4);
- Sequence<sal_Int32> seqLongi3( arLongi3, 5);
-
- Sequence< Sequence< sal_Int32 > > seq2i(3);
- seq2i[0]= seqLongi1;
- seq2i[1]= seqLongi2;
- seq2i[2]= seqLongi3;
- seqAny<<= seq2i;
- // dimension length 3,5
- inv->invoke( OUString(L"inMulDimArrayLong"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-//
- //inMulDimArrayVariant
- inv->invoke( OUString(L"inMulDimArrayVariant"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-
- //inMulDimArrayLong2
- sal_Int32 arLongii1[]={1,2,3};
- sal_Int32 arLongii2[]={4,5,6,7};
- sal_Int32 arLongii3[]={8,9,10,11,12};
- sal_Int32 arLongii4[]={13,14,15,16};
- sal_Int32 arLongii5[]={17,18,19};
-
- Sequence<sal_Int32> seqLongii1( arLongii1, 3);
- Sequence<sal_Int32> seqLongii2( arLongii2, 4);
- Sequence<sal_Int32> seqLongii3( arLongii3, 5);
- Sequence<sal_Int32> seqLongii4( arLongii4, 4);
- Sequence<sal_Int32> seqLongii5( arLongii5, 3);
-
- Sequence< Sequence< sal_Int32 > > seq2ii(3);
- Sequence< Sequence< sal_Int32> > seq2ii2(2);
- seq2ii[0]= seqLongii1;
- seq2ii[1]= seqLongii2;
- seq2ii[2]= seqLongii3;
-
- seq2ii2[0]= seqLongii4;
- seq2ii2[1]= seqLongii5;
-
- Sequence< Sequence< Sequence< sal_Int32> > > seq3ii(2);
- seq3ii[0]=seq2ii;
- seq3ii[1]=seq2ii2;
- seqAny<<= seq3ii;
- inv->invoke( OUString(L"inMulDimArrayLong2"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-
- // inMulDimArrayByte2
- sal_Int8 arByteii1[]={1,2,3};
- sal_Int8 arByteii2[]={4,5,6,7};
- sal_Int8 arByteii3[]={8,9,10,11,12};
- sal_Int8 arByteii4[]={13,14,15,16};
- sal_Int8 arByteii5[]={17,18,19};
-
- Sequence<sal_Int8> seqByteii1( arByteii1, 3);
- Sequence<sal_Int8> seqByteii2( arByteii2, 4);
- Sequence<sal_Int8> seqByteii3( arByteii3, 5);
- Sequence<sal_Int8> seqByteii4( arByteii4, 4);
- Sequence<sal_Int8> seqByteii5( arByteii5, 3);
-
- Sequence< Sequence< sal_Int8 > > seq2Byteii(3);
- Sequence< Sequence< sal_Int8> > seq2Byteii2(2);
- seq2Byteii[0]= seqByteii1;
- seq2Byteii[1]= seqByteii2;
- seq2Byteii[2]= seqByteii3;
-
- seq2Byteii2[0]= seqByteii4;
- seq2Byteii2[1]= seqByteii5;
-
- Sequence< Sequence< Sequence< sal_Int8> > > seq3Byteii(2);
- seq3Byteii[0]=seq2Byteii;
- seq3Byteii[1]=seq2Byteii2;
- seqAny<<= seq3Byteii;
- inv->invoke( OUString(L"inMulDimArrayByte2"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-
-
-
- //###################################################################################
- //###################################################################################
- //###################################################################################
- // Tests with a MFC ActiveX control, ( pure dispinterface)
- //###################################################################################
-
- //###################################################################################
- // in parameter MFC ActiveX
- //###################################################################################
- // unsigned char is not supported by MFC
- // aAny <<= ( sal_Int8) 127;
- // invMfc->invoke( OUString(L"inByte"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- if ( ! invMfc.is())
- return hr;
- aAny <<= static_cast<sal_Int16>(-1);
- aAny= invMfc->invoke( OUString(L"inShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
-//
- aAny <<= ( sal_Int32) 1234567;
- aAny=invMfc->invoke( OUString(L"inLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- sal_Int32 retLong= *(sal_Int32*)aAny.getValue();
-
- OUString str_1(L" this is clientTest.exe");
- aAny <<= str_1;
- aAny=invMfc->invoke( OUString(L"inString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- aAny>>= str_1;
-
- aAny <<= ( float) 3.14;
- aAny=invMfc->invoke( OUString(L"inFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
- aAny <<= ( double) 3.145;
- aAny=invMfc->invoke( OUString(L"inDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
- aAny <<= OUString( L" A string in an any");
- aAny=invMfc->invoke( OUString(L"inVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
-
- Reference < XInvocation > inv5= getComObject(L"AxTestComponents.Basic");
- Any anyVal4;
- anyVal4 <<= OUString(L"this is the value of prpString");
- inv5->setValue( OUString(L"prpString"), anyVal4);
- aAny <<= inv5;
- aAny=invMfc->invoke( OUString(L"inObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-//
-// //###################################################################################
-// // out parameter MFC ActiveX
-// //###################################################################################
-//
-// // outShort
- aAny= invMfc->invoke( OUString(L"outShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outShort %d", *(sal_Int16*)anyOut.getValue());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outLong
- aAny= invMfc->invoke( OUString(L"outLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outLong %d", *(sal_Int32*)anyOut.getValue());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outString
- aAny= invMfc->invoke( OUString(L"outString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outString %S", ((OUString*)anyOut.getValue())->getStr());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outFloat
- aAny= invMfc->invoke( OUString(L"outFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outFloat %f", *(float*)anyOut.getValue());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outDouble
- aAny= invMfc->invoke( OUString(L"outDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outFloat %f", *(double*)anyOut.getValue());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outVariant
- // we expect a string!! ( VT_BSTR)
- aAny= invMfc->invoke( OUString(L"outVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outVariant %S", ((OUString*)anyOut.getValue())->getStr());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outDouble
- aAny= invMfc->invoke( OUString(L"outObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- Reference<XInvocation> invOut5;
- seqOut[0]>>= invOut5;
- // we assume that an object of AxTestControls.Basic is being returned.
- anyOut= invOut5->getValue( OUString(L"prpString"));
- OUString tmpStr;
- anyOut>>=tmpStr;
- sprintf(buff, "MFC outObject, property: %S", tmpStr.getStr());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
-
- //###################################################################################
- // Sequence parameter MFC ActiveX
- //###################################################################################
- // Sequences are not directly supported.
-
-
- delete pWin;
- return hr;
-
-}
-
-
-
-//VARIANT_TRUE VT_UI1
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleClient/funcs.cxx b/extensions/test/ole/OleClient/funcs.cxx
deleted file mode 100644
index b797ab140..000000000
--- a/extensions/test/ole/OleClient/funcs.cxx
+++ /dev/null
@@ -1,358 +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.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-
-#include <atlbase.h>
-#include <stdio.h>
-#include "cppuhelper/bootstrap.hxx"
-#include "rtl/process.h"
-#include "typelib/typedescription.hxx"
-
-#include "com/sun/star/bridge/ModelDependent.hpp"
-#include "com/sun/star/bridge/XBridgeSupplier2.hpp"
-#include "com/sun/star/uno/TypeClass.hpp"
-#include "com/sun/star/script/XInvocation.hpp"
-#include "com/sun/star/lang/XMultiServiceFactory.hpp"
-#include "com/sun/star/uno/XComponentContext.hpp"
-#include <com/sun/star/bridge/oleautomation/NamedArgument.hpp>
-#include "rtl/ustring.hxx"
-
-using namespace com::sun::star::bridge;
-using namespace com::sun::star::bridge::ModelDependent;
-using namespace com::sun::star::uno;
-using namespace com::sun::star::lang;
-using namespace com::sun::star::script;
-using namespace com::sun::star::bridge::oleautomation;
-using namespace cppu;
-
-using ::rtl::OUString;
-
-template< class T >
-bool equalSequences(const Sequence<T>& seqIn, const Sequence<Any> & returned);
-
-
-Reference< XMultiServiceFactory > objectFactory;//
-
-
-Reference<XMultiServiceFactory> getMultiServiceFactory()
-{
- static Reference< XMultiServiceFactory > factory;
- if( ! objectFactory.is() )
- {
- Reference<XComponentContext> context = defaultBootstrap_InitialComponentContext();
- factory = Reference<XMultiServiceFactory>( context->getServiceManager(), UNO_QUERY);
-
- }
- return factory;
-}
-
-Reference<XInvocation> getComObject( OUString progId)
-{
- HRESULT hr= S_OK;
- Reference< XInvocation > ret;
-// Reference<XMultiServiceFactory> fac;
- if( ! objectFactory.is())
- { Reference<XMultiServiceFactory> mgr= getMultiServiceFactory();
- Reference<XInterface> xInt= mgr->createInstance(
- OUString(L"com.sun.star.bridge.oleautomation.Factory"));
- objectFactory= Reference<XMultiServiceFactory>::query( xInt);
- }
-
- if( objectFactory.is())
- {
- Reference<XInterface> xIntAx= objectFactory->createInstance( progId.getStr());
- if( xIntAx.is() )
- {
- Reference< XInvocation > xInv( xIntAx, UNO_QUERY);
- ret= xInv;
- }
- }
- return ret;
-}
-
-Reference<XInvocation> convertComObject( IUnknown* pUnk)
-{
- Reference< XMultiServiceFactory > mgr= getMultiServiceFactory();
- Reference< XInterface > xIntSupplier= mgr->createInstance(OUString(L"com.sun.star.bridge.OleBridgeSupplier2"));
- Reference< XBridgeSupplier2 > xSuppl( xIntSupplier, UNO_QUERY);
-
- Any any;
- CComVariant var( pUnk);
- any <<= ( sal_uInt32)&var;
- sal_uInt8 arId[16];
- rtl_getGlobalProcessId( arId);
- Any target= xSuppl->createBridge( any, Sequence<sal_Int8>( (sal_Int8*)arId, 16), OLE, UNO );
-
- Reference<XInvocation> ret;
- target>>= ret;
- return ret;
-}
-
-/*
- Parameter values contains the expected return values. The value at index 0
- correspond to parameter 0 (left - most). For parameters which are not out or
- in/out the value must be a void any.
-
- The number of items in value must be the
- same as the number of provided parameter during the call on the method.
-
- The parameter outArgs, indices correspond to the sequences which are
- arguments to XInvocation::invoke
- */
-bool checkOutArgs(const Sequence<Any> & outArgs,
- const Sequence<sal_Int16> & indices, const Sequence<Any> & values)
-{
- if (values.getLength() != outArgs.getLength())
- return false;
- //iterate over all parameters. i represents the parameter index
- for (int i = 0; i < values.getLength(); i++)
- {
- if (values[i].getValueType() == getVoidCppuType())
- continue;
- //out parameter
- //Based on the parameter index find the correspondent out value
- int indexOutSeq = -1;
- for (int iIndices = indices.getLength() - 1; iIndices >= 0; iIndices --)
- {
- if (indices[iIndices] == i)
- {
- indexOutSeq = iIndices;
- break;
- }
- }
- if (indexOutSeq == -1)
- return false;
-
- Any value;
- Any out;
- values[i] >>= value;
- outArgs[indexOutSeq] >>=out;
- NamedArgument naVal;
- NamedArgument naOut;
- value >>= naVal;
- out >>= naOut;
- if (values[i].getValueType() == getCppuType((NamedArgument *) 0))
- {
- NamedArgument inNamed;
- values[i] >>= inNamed;
- value <<= inNamed.Value;
- }
- if (value != outArgs[indexOutSeq])
- return false;
- }
- return true;
-}
-
-/* The returned sequence always contains Any elements
-*/
-bool equalSequences(const Any& orig, const Any& returned)
-{
- if (orig.getValueTypeClass() != TypeClass_SEQUENCE)
- {
- OSL_ASSERT(0);
- return false;
- }
- TypeDescription td(orig.getValueTypeRef());
- typelib_IndirectTypeDescription * indirect_td = (typelib_IndirectTypeDescription *) td.get();
-
- switch (indirect_td->pType->eTypeClass)
- {
- case TypeClass_CHAR:
- {
- Sequence<sal_Unicode> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_BOOLEAN:
- {
- Sequence<sal_Bool> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_BYTE:
- {
- Sequence<sal_Int8> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_SHORT:
- {
- Sequence<sal_Int16> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_LONG:
- {
- Sequence<sal_Int32> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_FLOAT:
- {
- Sequence<float> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_DOUBLE:
- {
- Sequence<double> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_STRING:
- {
- Sequence<OUString> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_ANY:
- {
- Sequence<Any> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_SEQUENCE:
- {
- //Sequence<sal_Unicode> seq;
- //orig >>= seq;
- //Sequence<Any> seq2;
- //returned >>= seq2;
- //return equalSequences(seq, seq2);
- break;
- }
- case TypeClass_INTERFACE:
- {
- Sequence<Reference<XInvocation> > seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- default:
- return false;
- }
- return false;
-}
-
-template< class T >
-bool equalSequences(const Sequence<T>& seqIn, const Sequence<Any> & seqOut)
-{
- if (seqIn.getLength() != seqOut.getLength())
- return false;
- int len = seqIn.getLength();
- for (int i = 0; i < len; i++)
- {
- Any anyIn;
- anyIn <<= seqIn[i];
- Any anyOut = seqOut[i];
- if (anyIn != anyOut)
- return false;
- }
-
- return true;
-}
-
-void printSequence( Sequence<Any>& val)
-{
-
-// typelib_TypeDescription* desc;
-// val.getValueTypeDescription( &desc);
-// typelib_typedescription_release( desc);
-
- USES_CONVERSION;
- char buff[1024];
- buff[0]=0;
- char tmpBuf[1024];
- tmpBuf[0]=0;
- sal_Int32 i;
-
- for( i=0; i< val.getLength(); i++)
- {
- Any& elem= val[i];
- switch ( elem.getValueTypeClass())
- {
- case TypeClass_BYTE:
- sprintf( tmpBuf, "sal_Int8 %d \n", *(sal_Int8*)elem.getValue());
- break;
- case TypeClass_SHORT:
- sprintf( tmpBuf, "sal_Int16 %d \n", *(sal_Int16*)elem.getValue());
- break;
- case TypeClass_LONG:
- sprintf( tmpBuf, "sal_Int32 %d \n", *(sal_Int32*)elem.getValue());
- break;
- case TypeClass_DOUBLE:
- sprintf( tmpBuf, "double %f \n", *(double*)elem.getValue());
- break;
- case TypeClass_FLOAT:
- sprintf( tmpBuf, "float %f \n", *(float*)elem.getValue());
- break;
- case TypeClass_STRING:
- sprintf( tmpBuf, "%S \n", (*(OUString*)elem.getValue()).getStr());
- break;
- case TypeClass_INTERFACE:
- {
- // we assume that the interface is XInvocation of a AxTestControls.Basic component.
- Reference<XInvocation> inv;
- elem>>= inv;
- if( inv.is())
- {
- Any prpVal= inv->getValue( OUString( L"prpString"));
- sprintf( tmpBuf, "Property prpString: %S \n", (*(OUString*)prpVal.getValue()).getStr());
- }
- break;
- }
- default:break;
- }
- strcat( buff, tmpBuf);
-
- }
-
- MessageBox( NULL, A2T(buff), _T("clientTest: printing Sequence elements"), MB_OK);
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleClient/makefile.mk b/extensions/test/ole/OleClient/makefile.mk
deleted file mode 100644
index 0587038d0..000000000
--- a/extensions/test/ole/OleClient/makefile.mk
+++ /dev/null
@@ -1,72 +0,0 @@
-#*************************************************************************
-#
-# 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.
-#
-#*************************************************************************
-
-PRJ=..$/..$/..$/
-
-PRJNAME=extensions
-TARGET=clientTest
-TARGETTYPE=CUI
-LIBTARGET=NO
-
-ENABLE_EXCEPTIONS=TRUE
-
-# --- Settings ---
-
-.INCLUDE : settings.mk
-
-# --- Files ---
-
-INCPRE+= $(OUT)$/inc -I$(ATL_INCLUDE)
-
-
-
-APP1TARGET= $(TARGET)
-APP1OBJS= \
- $(OBJ)$/clientTest.obj \
- $(OBJ)$/axhost.obj \
- $(OBJ)$/funcs.obj
-
-APP1STDLIBS= \
- $(SALLIB) \
- $(CPPUHELPERLIB) \
- $(CPPULIB) \
- $(USER32LIB) \
- $(COMPATH)$/atlmfc$/lib$/atls.lib \
- $(KERNEL32LIB) \
- $(OLE32LIB) \
- $(OLEAUT32LIB) \
- $(UUIDLIB) \
- $(GDI32LIB) \
- $(ADVAPI32LIB)
-
-APP1DEF= $(MISC)\$(APP1TARGET).def
-
-# --- Targets ---
-
-.INCLUDE : target.mk
-
-
diff --git a/extensions/test/ole/OleClient/readme.txt b/extensions/test/ole/OleClient/readme.txt
deleted file mode 100644
index 96181e44d..000000000
--- a/extensions/test/ole/OleClient/readme.txt
+++ /dev/null
@@ -1,10 +0,0 @@
-The program tests the OleObjectFactory service which enables to use COM components
-through XInvocation.
-
-Requirements:
-
-types.rdb and services.rdb and OleClient.ini have to be next to the executable.
-COM component: XCallback_Impl.Simple ( extensions/test/ole/unotocomcalls/XCallback_Impl )
-ActiveX controls: AxTestComponent.Basic ( extensions/test/ole/AxTestComponents)
- MFCCONTROL.MfcControlCtrl.1 (extensions/test/ole/MfcControl)
-
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-23 21:11:57 +0000