summaryrefslogtreecommitdiff
path: root/extensions/test/ole
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/test/ole')
-rw-r--r--extensions/test/ole/OleClient/clientTest.cxx1299
-rw-r--r--extensions/test/ole/OleClient/makefile.mk14
-rw-r--r--extensions/test/ole/OleClient/readme.txt4
3 files changed, 702 insertions, 615 deletions
diff --git a/extensions/test/ole/OleClient/clientTest.cxx b/extensions/test/ole/OleClient/clientTest.cxx
index 69af11fde992..155f3ae3a227 100644
--- a/extensions/test/ole/OleClient/clientTest.cxx
+++ b/extensions/test/ole/OleClient/clientTest.cxx
@@ -2,9 +2,9 @@
*
* $RCSfile: clientTest.cxx,v $
*
- * $Revision: 1.2 $
+ * $Revision: 1.3 $
*
- * last change: $Author: jl $ $Date: 2000-10-12 13:19:04 $
+ * last change: $Author: jl $ $Date: 2000-10-13 15:29:06 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@@ -78,6 +78,7 @@ extern CComModule _Module;
#include <rtl/string.h>
#pragma hdrstop
+#include "axhost.hxx"
CComModule _Module;
BEGIN_OBJECT_MAP(ObjectMap)
@@ -86,6 +87,8 @@ 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;
+using namespace com::sun::star::bridge::ModelDependent;
using namespace cppu;
using namespace rtl;
HRESULT doTest();
@@ -98,7 +101,7 @@ void printVariant( VARIANT & var);
void printSequence( Sequence<Any>& val);
-Reference< XMultiServiceFactory > objectFactory;
+Reference< XMultiServiceFactory > objectFactory;// OleObjectFactory;
int __cdecl _tmain( int argc, _TCHAR * argv[] )
@@ -126,6 +129,16 @@ int __cdecl _tmain( int argc, _TCHAR * argv[] )
return 0;
}
+Reference<XMultiServiceFactory> getMultiServiceFactory()
+{
+ static Reference< XMultiServiceFactory > factory;
+ if( ! objectFactory.is() )
+ {
+ Reference<XInterface> xint= createRegistryServiceFactory( OUString(L"applicat.rdb"));
+ factory= Reference<XMultiServiceFactory>( xint, UNO_QUERY);
+ }
+ return factory;
+}
Reference<XInvocation> getComObject( OUString progId)
{
@@ -133,8 +146,7 @@ Reference<XInvocation> getComObject( OUString progId)
Reference< XInvocation > ret;
// Reference<XMultiServiceFactory> fac;
if( ! objectFactory.is())
- {
- Reference< XMultiServiceFactory > mgr= createRegistryServiceFactory( OUString(L"applicat.rdb"));
+ { Reference<XMultiServiceFactory> mgr= getMultiServiceFactory();
Reference< XInterface > xInt= mgr->createInstance( OUString(L"com.sun.star.bridge.OleObjectFactory"));
objectFactory= Reference<XMultiServiceFactory>::query( xInt);
}
@@ -148,11 +160,24 @@ Reference<XInvocation> getComObject( OUString progId)
ret= xInv;
}
}
-// CComPtr<IUnknown> spUnkMgr;
-// Reference< XInvocation > ret;
-// Reference< XMultiServiceFactory > mgr= createRegistryServiceFactory( OUString(L"applicat.rdb"));
-// Reference< XInterface > xInt= mgr->createInstance(OUString(L"com.sun.star.bridge.OleObjectFactory"));
-// Reference< XMultiServiceFactory > fac( xInt, UNO_QUERY);
+ 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;
}
@@ -172,641 +197,697 @@ HRESULT doTest()
//###################################################################################
// in parameter
//###################################################################################
- aAny <<= ( sal_Int8) 127;
- inv->invoke( OUString(L"inByte"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
- aAny <<= ( sal_Int16) 0xffff;
- inv->invoke( OUString(L"inShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// aAny <<= ( sal_Int8) 127;
+// inv->invoke( OUString(L"inByte"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
//
- aAny <<= ( sal_Int32) 1234567;
- inv->invoke( OUString(L"inLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// aAny <<= ( sal_Int16) 0xffff;
+// inv->invoke( OUString(L"inShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- aAny <<= OUString(L" this is clientTest.exe");
- inv->invoke( OUString(L"inString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// aAny <<= ( sal_Int32) 1234567;
+// inv->invoke( OUString(L"inLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+//
+// aAny <<= OUString(L" this is clientTest.exe");
+// inv->invoke( OUString(L"inString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+//
+// aAny <<= ( float) 3.14;
+// inv->invoke( OUString(L"inFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+//
+// aAny <<= ( double) 3.145;
+// inv->invoke( OUString(L"inDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+//
+// aAny <<= OUString( L" A string in an any");
+// inv->invoke( OUString(L"inVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+//
+// OUString arStr[]= {L"string0", L"string1", L"string2"};
+// Sequence<OUString> seq( arStr, 3);
+// Any arAny[1];
+// arAny[0] <<= seq;
+// inv->invoke( OUString(L"inArray"), Sequence< Any > ( arAny, 1), seqIndices, seqOut);
+//
+// // same again but this time Sequence<Any> with the Anys containing strings.
+// OUString arStr1[]= {L"string0", L"string1", L"string2"};
+// Any arAnyStr1[3];
+// arAnyStr1[0]<<= arStr1[0];
+// arAnyStr1[1]<<= arStr1[1];
+// arAnyStr1[2]<<= arStr1[2];
+// Sequence<Any> seq_1( arAnyStr1, 3);
+// Any arAny_1[1];
+// arAny_1[0] <<= seq_1;
+// inv->invoke( OUString(L"inArray"), Sequence< Any > ( arAny_1, 1), seqIndices, seqOut);
+
+// Reference < XInvocation > inv2= getComObject(L"AxTestComponents.Basic");
+// Any anyVal;
+// anyVal <<= OUString(L"this is the value of prpString");
+// inv2->setValue( OUString(L"prpString"), anyVal);
+// aAny <<= inv2;
+// inv->invoke( OUString(L"inObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// //###################################################################################
+// // out parameter
+// //###################################################################################
+ // outByte
+// aAny= Any();
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// inv->invoke( OUString(L"outByte"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " out Byte: %d", *( char*)anyOut.getValue());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// // outShort
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// inv->invoke( OUString(L"outShort"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " out Short: %d", *( sal_Int16*)anyOut.getValue());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// // outLong
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// inv->invoke( OUString(L"outLong"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " out Long: %d", *( sal_Int32*)anyOut.getValue());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// // outString
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// inv->invoke( OUString(L"outString"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " out String: %S", (*( OUString*)anyOut.getValue()).getStr());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// // outFloat
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// inv->invoke( OUString(L"outFloat"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " out float: %f", *( float*)anyOut.getValue());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// // outDouble
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// inv->invoke( OUString(L"outDouble"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " out double: %g", *( double*)anyOut.getValue());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+
+ // outVariant
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// inv->invoke( OUString(L"outVariant"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// if( anyOut.getValueTypeClass() == TypeClass_STRING)
+// {
+// OUString s;
+// anyOut >>= s;
+// sprintf( buff, " out string ( variant): %S", s.getStr());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+// }
+//
+// // outArray
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// inv->invoke( OUString(L"outArray"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// Sequence<Any> seqOutValue;
+// anyOut >>= seqOutValue;
+//
+// // we assume that the Sequence contains Anys of strings
+// OUString usMessage;
+// for( int i=0; i < seqOutValue.getLength(); i++)
+// {
+// OUString stemp;
+// if( seqOutValue[i] >>= stemp)
+// {
+// usMessage += OUString(L"\n");
+// usMessage += stemp;
+// }
+// }
+// MessageBox( NULL, W2T( usMessage.getStr()), _T("Test Program"), MB_OK);
+//
+// // outObject
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// inv->invoke( OUString(L"outObject"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
+// Reference<XInvocation> invOut;
+// if( seqOut[0]>>=invOut)
+// {
+// Any val= invOut->getValue( L"prpString");
+//
+// if( val.getValueTypeClass() == TypeClass_STRING)
+// {
+// OUString s;
+// val>>=s;
+// MessageBox( NULL,W2T( s.getStr()), _T("Test Program"), MB_OK);
+// }
+// }
- aAny <<= ( float) 3.14;
- inv->invoke( OUString(L"inFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// //###################################################################################
+// // in/out parameter
+// //###################################################################################
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// aAny <<= ( sal_Int8) 127;
+// inv->invoke( OUString(L"inoutByte"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " in out Byte: %d", *( char*)anyOut.getValue());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+
+ // in out short
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// aAny <<= ( sal_Int16) 1111;
+// inv->invoke( OUString(L"inoutShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " in out Short: %d", *( sal_Int16*)anyOut.getValue());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// //in out long
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// aAny <<= ( sal_Int32) 111111;
+// inv->invoke( OUString(L"inoutLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, "inout Long: %d", *( sal_Int32*)anyOut.getValue());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// //in out string
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// aAny <<= OUString(L" this is clientTest.exe");
+// inv->invoke( OUString(L"inoutString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " inout String: %S", (*( OUString*)anyOut.getValue()).getStr());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// //in out float
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// aAny <<= ( float) 3.14;
+// inv->invoke( OUString(L"inoutFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " inout float: %f", *( float*)anyOut.getValue());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// // in out double
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// aAny <<= ( double) 3.145;
+// inv->invoke( OUString(L"inoutDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// sprintf( buff, " inout double: %g", *( double*)anyOut.getValue());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// // in out VARIANT
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// aAny <<= OUString( L" A string in an any");
+// inv->invoke( OUString(L"inoutVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// anyOut <<= seqOut[0];
+// if( anyOut.getValueTypeClass() == TypeClass_STRING)
+// {
+// OUString s;
+// anyOut >>= s;
+// sprintf( buff, " in out string ( variant): %S", s.getStr());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+// }
+
+// // in out Array
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// OUString arStr2[]= {L"string0", L"string1", L"string2"};
+// Sequence<OUString> seq2( arStr2, 3);
+// Any arAny2[1];
+// arAny2[0] <<= seq2;
+// inv->invoke( OUString(L"inoutArray"), Sequence< Any > ( arAny2, 1), seqIndices, seqOut);
+// Sequence<Any> seqOutValue2;
+// seqOut[0]>>= seqOutValue2;
+//
+// // we assume that the Sequence contains Anys of strings
+// OUString usMessage2;
+// for(int i2=0; i2 < seqOutValue2.getLength(); i2++)
+// {
+// OUString stemp;
+// if( seqOutValue2[i2] >>= stemp)
+// {
+// usMessage2 += OUString(L"\n");
+// usMessage2 += stemp;
+// }
+// }
+// MessageBox( NULL, W2T( usMessage2.getStr()), _T("Test Program"), MB_OK);
- aAny <<= ( double) 3.145;
- inv->invoke( OUString(L"inDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+//
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// Reference < XInvocation > inv3= getComObject(L"AxTestComponents.Basic");
+// Any anyVal2;
+// anyVal2 <<= OUString(L"this is the value of prpString");
+// inv3->setValue( OUString(L"prpString"), anyVal2);
+// aAny <<= inv3;
+// inv->invoke( OUString(L"inoutObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+// Reference<XInvocation> invOut2;
+// if( seqOut[0]>>=invOut2)
+// {
+// Any val= invOut2->getValue( L"prpString");
+//
+// if( val.getValueTypeClass() == TypeClass_STRING)
+// {
+// OUString s;
+// val>>=s;
+// MessageBox( NULL,W2T( s.getStr()), _T("Test Program"), MB_OK);
+// }
+// }
- aAny <<= OUString( L" A string in an any");
- inv->invoke( OUString(L"inVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
- OUString arStr[]= {L"string0", L"string1", L"string2"};
- Sequence<OUString> seq( arStr, 3);
- Any arAny[1];
- arAny[0] <<= seq;
- inv->invoke( OUString(L"inArray"), Sequence< Any > ( arAny, 1), seqIndices, seqOut);
-
- // same again but this time Sequence<Any> with the Anys containing strings.
- OUString arStr1[]= {L"string0", L"string1", L"string2"};
- Any arAnyStr1[3];
- arAnyStr1[0]<<= arStr1[0];
- arAnyStr1[1]<<= arStr1[1];
- arAnyStr1[2]<<= arStr1[2];
- Sequence<Any> seq_1( arAnyStr1, 3);
- Any arAny_1[1];
- arAny_1[0] <<= seq_1;
- inv->invoke( OUString(L"inArray"), Sequence< Any > ( arAny_1, 1), seqIndices, seqOut);
-//
- Reference < XInvocation > inv2= getComObject(L"AxTestComponents.Basic");
- Any anyVal;
- anyVal <<= OUString(L"this is the value of prpString");
- inv2->setValue( OUString(L"prpString"), anyVal);
- aAny <<= inv2;
- inv->invoke( OUString(L"inObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
//###################################################################################
- // out parameter
+ // mixed parameter
//###################################################################################
-// // outByte
- aAny= Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke( OUString(L"outByte"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " out Byte: %d", *( char*)anyOut.getValue());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- // outShort
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke( OUString(L"outShort"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " out Short: %d", *( sal_Int16*)anyOut.getValue());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- // outLong
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke( OUString(L"outLong"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " out Long: %d", *( sal_Int32*)anyOut.getValue());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- // outString
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke( OUString(L"outString"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " out String: %S", (*( OUString*)anyOut.getValue()).getStr());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- // outFloat
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke( OUString(L"outFloat"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " out float: %f", *( float*)anyOut.getValue());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- // outDouble
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke( OUString(L"outDouble"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " out double: %g", *( double*)anyOut.getValue());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-//
-// // outVariant
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke( OUString(L"outVariant"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- if( anyOut.getValueTypeClass() == TypeClass_STRING)
- {
- OUString s;
- anyOut >>= s;
- sprintf( buff, " out string ( variant): %S", s.getStr());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
- }
-
- // outArray
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke( OUString(L"outArray"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- Sequence<Any> seqOutValue;
- anyOut >>= seqOutValue;
-
- // we assume that the Sequence contains Anys of strings
- OUString usMessage;
- for( int i=0; i < seqOutValue.getLength(); i++)
- {
- OUString stemp;
- if( seqOutValue[i] >>= stemp)
- {
- usMessage += OUString(L"\n");
- usMessage += stemp;
- }
- }
- MessageBox( NULL, W2T( usMessage.getStr()), _T("Test Program"), MB_OK);
-
- // outObject
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke( OUString(L"outObject"), Sequence< Any > ( &aAny, 1 ), seqIndices, seqOut);
- Reference<XInvocation> invOut;
- if( seqOut[0]>>=invOut)
- {
- Any val= invOut->getValue( L"prpString");
-
- if( val.getValueTypeClass() == TypeClass_STRING)
- {
- OUString s;
- val>>=s;
- MessageBox( NULL,W2T( s.getStr()), _T("Test Program"), MB_OK);
- }
- }
+// // mixed1
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// Sequence< Any > params(12);
+// sal_Int8 aByte=111;
+// OUString aString(L" a string in a VARIANT");
+// Any param[12];
+// param[0] <<= aByte;
+// param[2] <<= aByte; //in out
+// param[3] <<= aString; // in String
+// param[5] <<= aString; // in out string
+//
+// OUString arStr3[]= {L"string0", L"string1", L"string2"};
+// Sequence<OUString> seq3( arStr3,3);
+// param[6] <<= seq3; // in Array
+// param[8] <<= seq3; // in ou Array
+//
+// Reference < XInvocation > inv4= getComObject(L"AxTestComponents.Basic");
+// Any anyVal3;
+// anyVal3 <<= OUString(L"this is the value of prpString");
+// inv4->setValue( OUString(L"prpString"), anyVal3);
+// param[9] <<= inv4; // in dispatch
+// param[11] <<= inv4;
+// inv->invoke( OUString(L"mixed1"), Sequence< Any > ( param, 12),seqIndices, seqOut);
+//
+// for( int i3=0; i3<seqOut.getLength();i3++)
+// {
+// Any any;
+// any <<= seqOut[i3];
+//
+// }
+// sal_Int8 outChar= *( char*)seqOut[0].getValue();
+// sal_Int8 inoutChar= *( char*)seqOut[1].getValue();
+// sprintf( buff, " out Byte: %d \n in out Byte %d", outChar, inoutChar );
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// OUString outString( *(OUString*)seqOut[2].getValue());
+// OUString inoutString( *(OUString*)seqOut[3].getValue());
+// sprintf( buff, "out string: %S \n in out string: %S", outString.getStr(), inoutString.getStr());
+// MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
+//
+// Sequence< Any > outSeq;
+// seqOut[4] >>= outSeq;
+// OUString usMessage3;
+// for(int i4=0; i4 < outSeq.getLength(); i4++)
+// {
+// OUString stemp;
+// if( outSeq[i4] >>= stemp)
+// {
+// usMessage3 += OUString(L"\n");
+// usMessage3 += stemp;
+// }
+// }
+// MessageBox( NULL, W2T( usMessage3.getStr()), _T("Test Program. out Sequence"), MB_OK);
+//
+// seqOut[5] >>= outSeq;
+// OUString usMessage4;
+// for(int i5=0; i5 < outSeq.getLength(); i5++)
+// {
+// OUString stemp;
+// if( outSeq[i5] >>= stemp)
+// {
+// usMessage4 += OUString(L"\n");
+// usMessage4 += stemp;
+// }
+// }
+// MessageBox( NULL, W2T( usMessage3.getStr()), _T("Test Program. in out Sequence"), MB_OK);
+//
+// Reference<XInvocation> invOut3;
+// seqOut[6] >>= invOut3;
+// if( seqOut[0]>>=invOut3)
+// {
+// Any val= invOut3->getValue( L"prpString");
+//
+// if( val.getValueTypeClass() == TypeClass_STRING)
+// {
+// OUString s;
+// val>>=s;
+// MessageBox( NULL,W2T( s.getStr()), _T("Test Program, out object"), MB_OK);
+// }
+// }
//
+// Reference<XInvocation> invOut4;
+// seqOut[6] >>= invOut4;
+// if( seqOut[0]>>=invOut4)
+// {
+// Any val= invOut4->getValue( L"prpString");
+//
+// if( val.getValueTypeClass() == TypeClass_STRING)
+// {
+// OUString s;
+// val>>=s;
+// MessageBox( NULL,W2T( s.getStr()), _T("Test Program, in out object"), MB_OK);
+// }
+// }
+
//###################################################################################
- // in/out parameter
+ // in Sequences
//###################################################################################
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- aAny <<= ( sal_Int8) 127;
- inv->invoke( OUString(L"inoutByte"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " in out Byte: %d", *( char*)anyOut.getValue());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-//
-// // in out short
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- aAny <<= ( sal_Int16) 1111;
- inv->invoke( OUString(L"inoutShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " in out Short: %d", *( sal_Int16*)anyOut.getValue());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- //in out long
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- aAny <<= ( sal_Int32) 111111;
- inv->invoke( OUString(L"inoutLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, "inout Long: %d", *( sal_Int32*)anyOut.getValue());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- //in out string
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- aAny <<= OUString(L" this is clientTest.exe");
- inv->invoke( OUString(L"inoutString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " inout String: %S", (*( OUString*)anyOut.getValue()).getStr());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- //in out float
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- aAny <<= ( float) 3.14;
- inv->invoke( OUString(L"inoutFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " inout float: %f", *( float*)anyOut.getValue());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- // in out double
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- aAny <<= ( double) 3.145;
- inv->invoke( OUString(L"inoutDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- sprintf( buff, " inout double: %g", *( double*)anyOut.getValue());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- // in out VARIANT
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- aAny <<= OUString( L" A string in an any");
- inv->invoke( OUString(L"inoutVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut <<= seqOut[0];
- if( anyOut.getValueTypeClass() == TypeClass_STRING)
- {
- OUString s;
- anyOut >>= s;
- sprintf( buff, " in out string ( variant): %S", s.getStr());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
- }
+ // inSequenceLong
+// seqIndices.realloc( 0);
+// seqOut.realloc(0);
+// sal_Int32 arLong[]={ 1,2,3};
+// Sequence< sal_Int32 > seqLong( arLong, 3);
+
+ // seqLongAny <<= seqLong; // 1 dimension
+ // seqLongAny<<= seq; // 2 dimensions
+ // seqLongAny<<= seq1;
+ // seqLongAny<<= Sequence<sal_Int32>( arLong, 3);
+
+// seqAny<<= seqLong;
+// inv->invoke( OUString(L"inSequenceLong"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+
+ // inSequenceShort
+// sal_Int16 arShort[]={1,2,3};
+// Sequence<sal_Int16> seqShort(arShort, 3);
+// seqAny<<= seqShort;
+// inv->invoke( OUString(L"inSequenceShort"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+
+ // inSequenceByte
+// sal_Int8 arByte[]={1,2,3};
+// Sequence<sal_Int8> seqByte(arByte, 3);
+// seqAny<<= seqByte;
+// inv->invoke( OUString(L"inSequenceByte"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+
+ // inSequenceString
+// OUString arString[]={L"string one", L"string two", L"string three"};
+// Sequence<OUString> seqString( arString, 3);
+// seqAny<<= seqString;
+// inv->invoke( OUString(L"inSequenceString"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+
+ // inSequenceFloat
+// float arFloat[]={3.14, 31.4, 314.};
+// Sequence<float> seqFloat( arFloat, 3);
+// seqAny<<=seqFloat;
+// inv->invoke( OUString(L"inSequenceFloat"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+
+ // inSequenceDouble
+// double arDouble[]={3.14, 31.4, 314.};
+// Sequence<double> seqDouble( arDouble, 3);
+// seqAny<<=seqDouble;
+// inv->invoke( OUString(L"inSequenceDouble"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+
+
+ // inSequenceObject
+// Any anyVala;
+// OUString sVal;
+// Sequence<Reference<XInvocation> > seqObj(3);
+// seqObj[0]= getComObject(L"AxTestComponents.Basic");
+// sVal= L"this is the property value of prpString (1)";
+// anyVala<<= sVal;
+// seqObj[0]->setValue( OUString( L"prpString"), anyVala);
//
- // in out Array
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- OUString arStr2[]= {L"string0", L"string1", L"string2"};
- Sequence<OUString> seq2( arStr2, 3);
- Any arAny2[1];
- arAny2[0] <<= seq2;
- inv->invoke( OUString(L"inoutArray"), Sequence< Any > ( arAny2, 1), seqIndices, seqOut);
- Sequence<Any> seqOutValue2;
- seqOut[0]>>= seqOutValue2;
-
- // we assume that the Sequence contains Anys of strings
- OUString usMessage2;
- for(int i2=0; i2 < seqOutValue2.getLength(); i2++)
- {
- OUString stemp;
- if( seqOutValue2[i2] >>= stemp)
- {
- usMessage2 += OUString(L"\n");
- usMessage2 += stemp;
- }
- }
- MessageBox( NULL, W2T( usMessage2.getStr()), _T("Test Program"), MB_OK);
-//
-
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- Reference < XInvocation > inv3= getComObject(L"AxTestComponents.Basic");
- Any anyVal2;
- anyVal2 <<= OUString(L"this is the value of prpString");
- inv3->setValue( OUString(L"prpString"), anyVal2);
- aAny <<= inv3;
- inv->invoke( OUString(L"inoutObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- Reference<XInvocation> invOut2;
- if( seqOut[0]>>=invOut2)
- {
- Any val= invOut2->getValue( L"prpString");
-
- if( val.getValueTypeClass() == TypeClass_STRING)
- {
- OUString s;
- val>>=s;
- MessageBox( NULL,W2T( s.getStr()), _T("Test Program"), MB_OK);
- }
- }
+// seqObj[1]= getComObject(L"AxTestComponents.Basic");
+// sVal= L"this is the property valuef of prpString (2)";
+// anyVala<<= sVal;
+// seqObj[1]->setValue( OUString( L"prpString"), anyVala);
//
-// //###################################################################################
-// // mixed parameter
-// //###################################################################################
- // mixed1
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- Sequence< Any > params(12);
- sal_Int8 aByte=111;
- OUString aString(L" a string in a VARIANT");
- Any param[12];
- param[0] <<= aByte;
- param[2] <<= aByte; //in out
- param[3] <<= aString; // in String
- param[5] <<= aString; // in out string
-
- OUString arStr3[]= {L"string0", L"string1", L"string2"};
- Sequence<OUString> seq3( arStr3,3);
- param[6] <<= seq3; // in Array
- param[8] <<= seq3; // in ou Array
-
- Reference < XInvocation > inv4= getComObject(L"AxTestComponents.Basic");
- Any anyVal3;
- anyVal3 <<= OUString(L"this is the value of prpString");
- inv4->setValue( OUString(L"prpString"), anyVal3);
- param[9] <<= inv4; // in dispatch
- param[11] <<= inv4;
- inv->invoke( OUString(L"mixed1"), Sequence< Any > ( param, 12),seqIndices, seqOut);
-
- for( int i3=0; i3<seqOut.getLength();i3++)
- {
- Any any;
- any <<= seqOut[i3];
+// seqObj[2]= getComObject(L"AxTestComponents.Basic");
+// sVal= L"this is the property value of prpString (3)";
+// anyVala<<= sVal;
+// seqObj[2]->setValue( OUString( L"prpString"), anyVala);
+//
+// seqAny<<=seqObj;
+// inv->invoke( OUString(L"inSequenceObject"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
- }
- sal_Int8 outChar= *( char*)seqOut[0].getValue();
- sal_Int8 inoutChar= *( char*)seqOut[1].getValue();
- sprintf( buff, " out Byte: %d \n in out Byte %d", outChar, inoutChar );
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- OUString outString( *(OUString*)seqOut[2].getValue());
- OUString inoutString( *(OUString*)seqOut[3].getValue());
- sprintf( buff, "out string: %S \n in out string: %S", outString.getStr(), inoutString.getStr());
- MessageBox( NULL, A2T( buff), _T("Test Program"), MB_OK);
-
- Sequence< Any > outSeq;
- seqOut[4] >>= outSeq;
- OUString usMessage3;
- for(int i4=0; i4 < outSeq.getLength(); i4++)
- {
- OUString stemp;
- if( outSeq[i4] >>= stemp)
- {
- usMessage3 += OUString(L"\n");
- usMessage3 += stemp;
- }
- }
- MessageBox( NULL, W2T( usMessage3.getStr()), _T("Test Program. out Sequence"), MB_OK);
+ //###################################################################################
+ // out Sequences
+ //###################################################################################
- seqOut[5] >>= outSeq;
- OUString usMessage4;
- for(int i5=0; i5 < outSeq.getLength(); i5++)
- {
- OUString stemp;
- if( outSeq[i5] >>= stemp)
- {
- usMessage4 += OUString(L"\n");
- usMessage4 += stemp;
- }
- }
- MessageBox( NULL, W2T( usMessage3.getStr()), _T("Test Program. in out Sequence"), MB_OK);
+ // outSequenceByte
- Reference<XInvocation> invOut3;
- seqOut[6] >>= invOut3;
- if( seqOut[0]>>=invOut3)
- {
- Any val= invOut3->getValue( L"prpString");
+// inv->invoke( OUString(L"outSequenceByte"),Sequence< Any > (), seqIndices, seqOut);
+// printSequence( *(Sequence<Any>*)seqOut[0].getValue());
+//
+//
+// // outSequenceShort
+// inv->invoke( OUString(L"outSequenceShort"),Sequence< Any > (), seqIndices, seqOut);
+// printSequence(*(Sequence<Any>*)seqOut[0].getValue());
+//
+//
+// // outSequenceLong
+// inv->invoke( OUString(L"outSequenceLong"),Sequence< Any > (), seqIndices, seqOut);
+// printSequence(*(Sequence<Any>*)seqOut[0].getValue());
+//
+// // outSequenceString
+// inv->invoke( OUString(L"outSequenceString"),Sequence< Any > (), seqIndices, seqOut);
+// printSequence(*(Sequence<Any>*)seqOut[0].getValue());
+//
+// // outSequenceFloat
+// inv->invoke( OUString(L"outSequenceFloat"),Sequence< Any > (), seqIndices, seqOut);
+// printSequence( *(Sequence<Any>*)seqOut[0].getValue());
+//
+//
+// //outSequenceDouble
+// inv->invoke( OUString(L"outSequenceDouble"),Sequence< Any > (), seqIndices, seqOut);
+// printSequence(*(Sequence<Any>*)seqOut[0].getValue());
- if( val.getValueTypeClass() == TypeClass_STRING)
- {
- OUString s;
- val>>=s;
- MessageBox( NULL,W2T( s.getStr()), _T("Test Program, out object"), MB_OK);
- }
- }
+ //outSequenceObject
+// inv->invoke( OUString(L"outSequenceObject"),Sequence< Any > (), seqIndices, seqOut);
+// printSequence( *(Sequence<Any>*)seqOut[0].getValue());
- Reference<XInvocation> invOut4;
- seqOut[6] >>= invOut4;
- if( seqOut[0]>>=invOut4)
- {
- Any val= invOut4->getValue( L"prpString");
+ // outSequenceVariant (see outArray)
+ //###################################################################################
+ // in out Sequences
+ //###################################################################################
+ // inoutSequenceByte
+// sal_Int8 arByte1[]={1,2,3};
+// Sequence<sal_Int8> seqByteIO(arByte1, 3);
+// seqAny<<= seqByteIO;
+// inv->invoke( OUString(L"inoutSequenceByte"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+// printSequence( *(Sequence<Any>*)seqOut[0].getValue());
+//
+// // inoutSequenceShort
+// sal_Int16 arShort1[]={1,2,3};
+// Sequence<sal_Int16> seqShortIO(arShort1, 3);
+// seqAny<<= seqShortIO;
+// inv->invoke( OUString(L"inoutSequenceShort"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+// printSequence( *(Sequence<Any>*)seqOut[0].getValue());
+//
+//
+// // inoutSequenceLong
+// sal_Int32 arLong1[]={ 1,2,3};
+// Sequence< sal_Int32 > seqLongIO( arLong1, 3);
+// seqAny<<= seqLongIO;
+// inv->invoke( OUString(L"inoutSequenceLong"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+// printSequence( *(Sequence<Any>*)seqOut[0].getValue());
+//
+// // inoutSequenceString
+// OUString arString1[]={L"string one", L"string two", L"string three"};
+// Sequence<OUString> seqStringIO( arString1, 3);
+// seqAny<<= seqStringIO;
+// inv->invoke( OUString(L"inoutSequenceString"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+// printSequence( *(Sequence<Any>*)seqOut[0].getValue());
+//
+// // inoutSequenceFloat
+// float arFloat1[]={3.14, 31.4, 314.};
+// Sequence<float> seqFloatIO( arFloat1, 3);
+// seqAny<<=seqFloatIO;
+// inv->invoke( OUString(L"inoutSequenceFloat"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+// printSequence( *(Sequence<Any>*)seqOut[0].getValue());
+//
+// // inoutSequenceDouble
+// double arDouble1[]={3.14, 31.4, 314.};
+// Sequence<double> seqDoubleIO( arDouble1, 3);
+// seqAny<<=seqDoubleIO;
+// inv->invoke( OUString(L"inoutSequenceDouble"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+// printSequence( *(Sequence<Any>*)seqOut[0].getValue());
+
+
+ // inoutSequenceObject
+// Any anyValb;
+// OUString sVala;
+// Sequence<Reference<XInvocation> > seqObjIO(3);
+// seqObjIO[0]= getComObject(L"AxTestComponents.Basic");
+// sVala= L"this is the property value of prpString (1)";
+// anyValb<<= sVala;
+// seqObjIO[0]->setValue( OUString( L"prpString"), anyValb);
+//
+// seqObjIO[1]= getComObject(L"AxTestComponents.Basic");
+// sVala= L"this is the property valuef of prpString (2)";
+// anyValb<<= sVala;
+// seqObjIO[1]->setValue( OUString( L"prpString"), anyValb);
+//
+// seqObjIO[2]= getComObject(L"AxTestComponents.Basic");
+// sVala= L"this is the property value of prpString (3)";
+// anyValb<<= sVala;
+// seqObjIO[2]->setValue( OUString( L"prpString"), anyValb);
+//
+// seqAny<<=seqObjIO;
+// inv->invoke( OUString(L"inoutSequenceObject"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+// printSequence( *(Sequence<Any>*)seqOut[0].getValue());
- if( val.getValueTypeClass() == TypeClass_STRING)
- {
- OUString s;
- val>>=s;
- MessageBox( NULL,W2T( s.getStr()), _T("Test Program, in out object"), MB_OK);
- }
- }
+ //###################################################################################
+ // 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};
//
-// //###################################################################################
-// // in Sequences
-// //###################################################################################
-// // inSequenceLong
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- sal_Int32 arLong[]={ 1,2,3};
- Sequence< sal_Int32 > seqLong( arLong, 3);
-//
-// // seqLongAny <<= seqLong; // 1 dimension
-// // seqLongAny<<= seq; // 2 dimensions
-// // seqLongAny<<= seq1;
-// // seqLongAny<<= Sequence<sal_Int32>( arLong, 3);
-//
- seqAny<<= seqLong;
- inv->invoke( OUString(L"inSequenceLong"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-//
-// // inSequenceShort
- sal_Int16 arShort[]={1,2,3};
- Sequence<sal_Int16> seqShort(arShort, 3);
- seqAny<<= seqShort;
- inv->invoke( OUString(L"inSequenceShort"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-//
-// // inSequenceByte
- sal_Int8 arByte[]={1,2,3};
- Sequence<sal_Int8> seqByte(arByte, 3);
- seqAny<<= seqByte;
- inv->invoke( OUString(L"inSequenceByte"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-//
-// // inSequenceString
- OUString arString[]={L"string one", L"string two", L"string three"};
- Sequence<OUString> seqString( arString, 3);
- seqAny<<= seqString;
- inv->invoke( OUString(L"inSequenceString"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-//
-// // inSequenceFloat
- float arFloat[]={3.14, 31.4, 314.};
- Sequence<float> seqFloat( arFloat, 3);
- seqAny<<=seqFloat;
- inv->invoke( OUString(L"inSequenceFloat"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-//
-// // inSequenceDouble
- double arDouble[]={3.14, 31.4, 314.};
- Sequence<double> seqDouble( arDouble, 3);
- seqAny<<=seqDouble;
- inv->invoke( OUString(L"inSequenceDouble"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-//
-//
-// // inSequenceObject
- Any anyVala;
- OUString sVal;
- Sequence<Reference<XInvocation> > seqObj(3);
- seqObj[0]= getComObject(L"AxTestComponents.Basic");
- sVal= L"this is the property value of prpString (1)";
- anyVala<<= sVal;
- seqObj[0]->setValue( OUString( L"prpString"), anyVala);
-
- seqObj[1]= getComObject(L"AxTestComponents.Basic");
- sVal= L"this is the property valuef of prpString (2)";
- anyVala<<= sVal;
- seqObj[1]->setValue( OUString( L"prpString"), anyVala);
-
- seqObj[2]= getComObject(L"AxTestComponents.Basic");
- sVal= L"this is the property value of prpString (3)";
- anyVala<<= sVal;
- seqObj[2]->setValue( OUString( L"prpString"), anyVala);
-
- seqAny<<=seqObj;
- inv->invoke( OUString(L"inSequenceObject"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
+// Sequence<sal_Int32> seqLongi1( arLongi, 3);
+// Sequence<sal_Int32> seqLongi2( arLongi2, 4);
+// Sequence<sal_Int32> seqLongi3( arLongi3, 5);
//
-// //###################################################################################
-// // out Sequences
-// //###################################################################################
+// 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;
//
-// // outSequenceByte
+// 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);
//
- inv->invoke( OUString(L"outSequenceByte"),Sequence< Any > (), seqIndices, seqOut);
- printSequence( *(Sequence<Any>*)seqOut[0].getValue());
+//
+// // prpByte
+// Any prpAny;
+// sal_Int8 aByte1= 111;
+// prpAny<<= aByte1;
+// inv->setValue(OUString(L"prpByte"), prpAny);
+// prpAny= Any();
+// aByte1=0;
+// prpAny= inv->getValue(OUString(L"prpByte"));
+// prpAny>>= aByte1;
+ // prpShort
+ // prpLong
+ //###################################################################################
+ //###################################################################################
+ //###################################################################################
+ // Tests with a MFC ActiveX control, ( pure dispinterface)
+ //###################################################################################
- // outSequenceShort
- inv->invoke( OUString(L"outSequenceShort"),Sequence< Any > (), seqIndices, seqOut);
- printSequence(*(Sequence<Any>*)seqOut[0].getValue());
+ HostWin* pWin= new HostWin( L"MFCCONTROL.MfcControlCtrl.1");
+ CComPtr<IUnknown> spUnk= pWin->GetHostedControl();
+ inv= convertComObject( spUnk.p);
+ //###################################################################################
+ // in parameter
+ //###################################################################################
+ // unsigned char is not supported by MFC
+ // aAny <<= ( sal_Int8) 127;
+ // inv->invoke( OUString(L"inByte"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+ aAny <<= ( sal_Int16) 0xffff;
+ aAny= inv->invoke( OUString(L"inShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- // outSequenceLong
- inv->invoke( OUString(L"outSequenceLong"),Sequence< Any > (), seqIndices, seqOut);
- printSequence(*(Sequence<Any>*)seqOut[0].getValue());
+//
+ aAny <<= ( sal_Int32) 1234567;
+ aAny=inv->invoke( OUString(L"inLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+ sal_Int32 retLong= *(sal_Int32*)aAny.getValue();
- // outSequenceString
- inv->invoke( OUString(L"outSequenceString"),Sequence< Any > (), seqIndices, seqOut);
- printSequence(*(Sequence<Any>*)seqOut[0].getValue());
+ OUString str_1(L" this is clientTest.exe");
+ aAny <<= str_1;
+ aAny=inv->invoke( OUString(L"inString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+ aAny>>= str_1;
- // outSequenceFloat
- inv->invoke( OUString(L"outSequenceFloat"),Sequence< Any > (), seqIndices, seqOut);
- printSequence( *(Sequence<Any>*)seqOut[0].getValue());
+ aAny <<= ( float) 3.14;
+ aAny=inv->invoke( OUString(L"inFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+ aAny <<= ( double) 3.145;
+ aAny=inv->invoke( OUString(L"inDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+
+ aAny <<= OUString( L" A string in an any");
+ aAny=inv->invoke( OUString(L"inVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
+
+ // Tests with Sequences later.
+ // OUString arStr4[]= {L"string0", L"string1", L"string2"};
+ // Sequence<OUString> seqStr4( arStr4, 3);
+ // aAny <<= seqStr4;
+ // inv->invoke( OUString(L"inArray"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- //outSequenceDouble
- inv->invoke( OUString(L"outSequenceDouble"),Sequence< Any > (), seqIndices, seqOut);
- printSequence(*(Sequence<Any>*)seqOut[0].getValue());
-//
-// //outSequenceObject
- inv->invoke( OUString(L"outSequenceObject"),Sequence< Any > (), seqIndices, seqOut);
- printSequence( *(Sequence<Any>*)seqOut[0].getValue());
-//
-// // outSequenceVariant (see outArray)
-// //###################################################################################
-// // in out Sequences
-// //###################################################################################
-// // inoutSequenceByte
- sal_Int8 arByte1[]={1,2,3};
- Sequence<sal_Int8> seqByteIO(arByte1, 3);
- seqAny<<= seqByteIO;
- inv->invoke( OUString(L"inoutSequenceByte"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
- printSequence( *(Sequence<Any>*)seqOut[0].getValue());
-
- // inoutSequenceShort
- sal_Int16 arShort1[]={1,2,3};
- Sequence<sal_Int16> seqShortIO(arShort1, 3);
- seqAny<<= seqShortIO;
- inv->invoke( OUString(L"inoutSequenceShort"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
- printSequence( *(Sequence<Any>*)seqOut[0].getValue());
-
-
- // inoutSequenceLong
- sal_Int32 arLong1[]={ 1,2,3};
- Sequence< sal_Int32 > seqLongIO( arLong1, 3);
- seqAny<<= seqLongIO;
- inv->invoke( OUString(L"inoutSequenceLong"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
- printSequence( *(Sequence<Any>*)seqOut[0].getValue());
-
- // inoutSequenceString
- OUString arString1[]={L"string one", L"string two", L"string three"};
- Sequence<OUString> seqStringIO( arString1, 3);
- seqAny<<= seqStringIO;
- inv->invoke( OUString(L"inoutSequenceString"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
- printSequence( *(Sequence<Any>*)seqOut[0].getValue());
-
- // inoutSequenceFloat
- float arFloat1[]={3.14, 31.4, 314.};
- Sequence<float> seqFloatIO( arFloat1, 3);
- seqAny<<=seqFloatIO;
- inv->invoke( OUString(L"inoutSequenceFloat"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
- printSequence( *(Sequence<Any>*)seqOut[0].getValue());
-
- // inoutSequenceDouble
- double arDouble1[]={3.14, 31.4, 314.};
- Sequence<double> seqDoubleIO( arDouble1, 3);
- seqAny<<=seqDoubleIO;
- inv->invoke( OUString(L"inoutSequenceDouble"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
- printSequence( *(Sequence<Any>*)seqOut[0].getValue());
-//
-//
-// // inoutSequenceObject
- Any anyValb;
- OUString sVala;
- Sequence<Reference<XInvocation> > seqObjIO(3);
- seqObjIO[0]= getComObject(L"AxTestComponents.Basic");
- sVala= L"this is the property value of prpString (1)";
- anyValb<<= sVala;
- seqObjIO[0]->setValue( OUString( L"prpString"), anyValb);
-
- seqObjIO[1]= getComObject(L"AxTestComponents.Basic");
- sVala= L"this is the property valuef of prpString (2)";
- anyValb<<= sVala;
- seqObjIO[1]->setValue( OUString( L"prpString"), anyValb);
-
- seqObjIO[2]= getComObject(L"AxTestComponents.Basic");
- sVala= L"this is the property value of prpString (3)";
- anyValb<<= sVala;
- seqObjIO[2]->setValue( OUString( L"prpString"), anyValb);
-
- seqAny<<=seqObjIO;
- inv->invoke( OUString(L"inoutSequenceObject"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
- printSequence( *(Sequence<Any>*)seqOut[0].getValue());
-//
-// //###################################################################################
-// // 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);
+
+ 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=inv->invoke( OUString(L"inObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
//###################################################################################
- // Properties
+ // in parameter
//###################################################################################
- // prpByte
- Any prpAny;
- sal_Int8 aByte1= 111;
- prpAny<<= aByte1;
- inv->setValue(OUString(L"prpByte"), prpAny);
- prpAny= Any();
- aByte1=0;
- prpAny= inv->getValue(OUString(L"prpByte"));
- prpAny>>= aByte1;
- // prpShort
- // prpLong
+ delete pWin;
return hr;
+
}
diff --git a/extensions/test/ole/OleClient/makefile.mk b/extensions/test/ole/OleClient/makefile.mk
index a6b74362ecdb..7aecca1545e1 100644
--- a/extensions/test/ole/OleClient/makefile.mk
+++ b/extensions/test/ole/OleClient/makefile.mk
@@ -2,9 +2,9 @@
#
# $RCSfile: makefile.mk,v $
#
-# $Revision: 1.1.1.1 $
+# $Revision: 1.2 $
#
-# last change: $Author: hr $ $Date: 2000-09-18 16:16:55 $
+# last change: $Author: jl $ $Date: 2000-10-13 15:29:06 $
#
# The Contents of this file are made available subject to the terms of
# either of the following licenses
@@ -88,7 +88,8 @@ UNOUCROUT= $(OUT)$/inc
INCPRE+= $(OUT)$/inc -I$(SOLARINCDIR)$/external$/atl
-UNOTYPES= com.sun.star.lang.XMultiServiceFactory \
+UNOTYPES= com.sun.star.bridge.XBridgeSupplier2 \
+ com.sun.star.lang.XMultiServiceFactory \
com.sun.star.script.XInvocation \
oletest.XCallback
@@ -99,7 +100,9 @@ UNOTYPES= com.sun.star.lang.XMultiServiceFactory \
.ENDIF # depend
APP1TARGET= $(TARGET)
-APP1OBJS= $(OBJ)$/clientTest.obj
+APP1OBJS= $(OBJ)$/clientTest.obj \
+ $(OBJ)$/axhost.obj
+
LIBCMT=msvcrtd.lib
@@ -112,7 +115,8 @@ APP1STDLIBS= \
ole32.lib \
oleaut32.lib \
uuid.lib \
- comdlg32.lib
+ comdlg32.lib \
+ gdi32.lib
diff --git a/extensions/test/ole/OleClient/readme.txt b/extensions/test/ole/OleClient/readme.txt
index 9afa5ce86606..09830859428c 100644
--- a/extensions/test/ole/OleClient/readme.txt
+++ b/extensions/test/ole/OleClient/readme.txt
@@ -4,4 +4,6 @@ through XInvocation.
Requirements:
applicat.rdb has to be next to the executable.
-COM component: XCallback_Impl.Simple ( extensions/test/ole/unotocomcalls/XCallback_Impl ) \ No newline at end of file
+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) \ No newline at end of file
generated by cgit v1.2.3 (git 2.39.1) at 2024-04-16 17:23:01 +0000