diff options
Diffstat (limited to 'extensions/test/ole/OleTest.htm')
| -rw-r--r-- | extensions/test/ole/OleTest.htm | 1063 |
1 files changed, 0 insertions, 1063 deletions
diff --git a/extensions/test/ole/OleTest.htm b/extensions/test/ole/OleTest.htm deleted file mode 100644 index 93d0fdc4e..000000000 --- a/extensions/test/ole/OleTest.htm +++ /dev/null @@ -1,1063 +0,0 @@ -<HTML> -<HEAD> -<META NAME="GENERATOR" Content="Microsoft Developer Studio"> -<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1"> -<TITLE>Document Title</TITLE> -</HEAD> -<BODY id=theBody> - -<script language="JScript"> -// XEventListener implementation in JScript -------------------------------------------------- -function XEventListener_Impl() -{ - this._environment= "JScript"; - this._implementedInterfaces= new Array( "com.sun.star.lang.XEventListener"); - - //XEventListener - this.disposing= XEventListener_disposing; - - this.bdisposingCalled= false; - this.bQuiet= true; - this.resetDisposing= XEventListener_resetDisposing; - this.disposingCalled= XEventListener_disposingCalled; -} - -function XEventListener_disposing( source) -{ - if( !this.bQuiet) - alert("JScript Event Listener \n disposing is being called"); - this.bdisposingCalled= true; -} - -function XEventListener_resetDisposing() -{ - this.bdisposingCalled= false; -} - -function XEventListener_disposingCalled() -{ - return this.bdisposingCalled; -} - -//-------------------------------------------------------------------------------------------- -function callOleTest( id) -{ - var factory= new ActiveXObject("com.sun.star.ServiceManager"); - var oletest= factory.createInstance("oletest.OleTest"); -// alert(oletest); - - var arr= new Array( 1, 2, 3, 4, 0); - var arrDouble= new Array( 1.2345, 12.345, 123,45, 1234.5, 12345); - var arrBool= new Array( 1, 0, 2, 0, 3); - var arrChar= new Array( '1', 'A', "1", "A", ' ', 55, 56); - var arrString= new Array("hamburger","cheeseburger", "chicken nuggets", "chicken wings" , "pizza"); - var arrAny= new Array( 100, 100.1235,"hallo"); - var arrSeq= new Array( arr, arr, arr); - var arrSeq2= new Array( arrSeq, arrSeq, arrSeq) - - - var arrout1= new Array(); - var arrout2= new Array(); - var arrout3= new Array(); - - var ret, i; - var sfarray, sfarray1, sfarray2, sfarray3; - var arEventListener= new Array( new XEventListener_Impl(), new XEventListener_Impl(), - new XEventListener_Impl()); - var arEventListener2= new Array( new XEventListener_Impl(), new XEventListener_Impl(), - new XEventListener_Impl()); - var arArEventListener= new Array( arEventListener, arEventListener2); - switch( id) - { - // Array in-params - case 1: ret= oletest.methodByte( arr); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arr.toString() + "<br>"); - document.writeln( "Returns a Sequence< BYTE > <br>" + sfarray.toArray()) ; break; - - case 2: ret= oletest.methodDouble( arrDouble); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arrDouble.toString() +"<br>"); - document.writeln( "Returns a Sequence< double > <br>" + sfarray.toArray()) ; break; - - case 3: ret= oletest.methodBool( arrBool); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arrBool.toString() +"<br>"); - document.writeln( "Returns a Sequence< BOOL > <br>" + sfarray.toArray()) ; break; - - case 4: ret= oletest.methodShort( arr); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arr.toString() +"<br>"); - document.writeln( "Returns a Sequence< SHORT > <br>" + sfarray.toArray()) ; break; - - case 5: ret= oletest.methodUShort( arr); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arr.toString() +"<br>"); - document.writeln( "Returns a Sequence< unsigned SHORT > <br>" + sfarray.toArray()) ; break; - - case 6: ret= oletest.methodLong( arr); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arr.toString() +"<br>"); - document.writeln( "Returns a Sequence< LONG > <br>" + sfarray.toArray()) ; break; - - case 7: ret= oletest.methodULong( arr); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arr.toString() +"<br>"); - document.writeln( "Returns a Sequence< unsigned LONG > <br>" + sfarray.toArray()) ; break; - - case 8: ret= oletest.methodChar( arrChar); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arrChar.toString() +"<br>"); - document.writeln( "Returns a Sequence< wchar_t > <br>" + sfarray.toArray()) ; break; - - case 9: ret= oletest.methodString( arrString); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arrString.toString() +"<br>"); - document.writeln( "Returns a Sequence< UString > <br>" + sfarray.toArray()) ; break; - - case 10: ret= oletest.methodAny( arrAny); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arrAny.toString() +"<br>"); - document.writeln( "Returns a Sequence< UsrAny > <br>" + sfarray.toArray() ) ; break; - - case 11: ret= oletest.methodSequence( arrSeq); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arrSeq.toString() +"<br>"); - document.writeln("Returns a Sequence< Sequence < long >> <br>") ; - var arr1= new Array(); - arr1= sfarray.toArray(); - for( i=0; i < arr1.length; i++) - { - sfarray2= new VBArray( arr1[i]); - var arr2= new Array(); - arr2= sfarray2.toArray(); - document.writeln( arr2.toString() + "<br>" ); - } - break; - - case 12: ret= oletest.methodSequence2( arrSeq2); - document.writeln( "Param: " + arrSeq2.toString() +"<br>"); - sfarray1= new VBArray( ret); - arr1= sfarray1.toArray(); - for( i=0; i < arr1.length; i++) - { - sfarray2= new VBArray( arr1[i]); - arr2= sfarray2.toArray(); - - for ( j=0; j < arr2.length; j++) - { - sfarray3= new VBArray( arr2[j]); - arr3= sfarray3.toArray(); - document.write( i+ " "); - document.writeln(j + ": "+ arr3.toString() + "<br>" ); - } - - } - break; - - case 13: - var ar= new Array(); - for( i=0; i< 3; i++) - { - var ob= new Object(); - ob.value= "A JScript object!"; - ar[i]= ob; - } - - ret = oletest.methodXInterface( ar); - sfarray= new VBArray( ret); - var arRet= sfarray.toArray(); - - document.writeln( "Params : Array containing objects ") - for( index in ar) - { - document.writeln( "object " + index + ": " + ar[index].value +" "); - } - document.writeln( "<br>" ) ; - document.writeln("Return: <br>"); - for( index in arRet) - { - document.writeln( "object " + index + ": " + arRet[index].value + " "); - } - break; - - case 14: ret= oletest.methodFloat( arrDouble); - sfarray= new VBArray( ret); - document.writeln( "Param: " + arrDouble.toString() +"<br>"); - document.writeln( "Returns a Sequence< float> <br>" + sfarray.toArray()) ; break; - - case 15: - ret= oletest.methodXEventListeners( arEventListener); - sfarray= new VBArray(ret); - _ret= sfarray.toArray(); - for ( key in _ret) - { - if( ! _ret[key].disposingCalled()) - alert("Error! oletest.methodXEventListeners") - } - break; - case 16: - ret= oletest.methodXEventListenersMul( arArEventListener); - sfarray= new VBArray(ret); - _ret= sfarray.toArray(); - for( key in _ret) - { - sfarray2= new VBArray(_ret[key]); - _ret2= sfarray2.toArray(); - for( key2 in _ret2) - { - if( ! _ret2[key2].disposingCalled()) - alert("Error! oletest.methodXEventListeners") - } - } - break; - - - - // Properties: setting and getting values - case 200: oletest.AttrByte = arr; - ret= oletest.AttrByte; - document.writeln("Setting AttrByte: " + arr.toString() + "<p>"); - document.writeln("Getting AttrByte: " + arr.toString()); break; - - case 201: oletest.AttrDouble= arrDouble; - ret= oletest.AttrDouble; - document.writeln("Setting AttrDouble: " + arrDouble.toString() + "<p>"); - document.writeln("Getting AttrDouble: " + arrDouble.toString()); break; - - case 202: oletest.AttrBool= arrBool; - ret= oletest.AttrBool; - document.writeln("Setting AttrBool: " + arrBool.toString() + "<p>"); - document.writeln("Getting AttrBool: " + arrBool.toString()); break; - - case 203: oletest.AttrShort= arr; - ret= oletest.AttrShort; - document.writeln("Setting AttrShort: " + arr.toString() + "<p>"); - document.writeln("Getting AttrShort: " + arr.toString()); break; - - case 204: oletest.AttrUShort= arr; - ret= oletest.AttrUShort; - document.writeln("Setting AttrUShort: " + arr.toString() + "<p>"); - document.writeln("Getting AttrUShort: " + arr.toString()); break; - - case 205: oletest.AttrLong= arr; - ret= oletest.AttrLong; - document.writeln("Setting AttrLong: " + arr.toString() + "<p>"); - document.writeln("Getting AttrLong: " + arr.toString()); break; - - case 206: oletest.AttrULong= arr; - ret= oletest.AttrULong; - document.writeln("Setting AttrULong: " + arr.toString() + "<p>"); - document.writeln("Getting AttrULong: " + arr.toString()); break; - - case 207: oletest.AttrChar= arrChar; - ret= oletest.AttrChar; - document.writeln("Setting AttrChar: " + arrChar.toString() + "<p>"); - document.writeln("Getting AttrChar: " + arrChar.toString()); break; - - case 208: oletest.AttrString= arrString; - ret= oletest.AttrString; - document.writeln("Setting AttrString: " + arrString.toString() + "<p>"); - document.writeln("Getting AttrString: " + arrString.toString()); break; - - case 209: oletest.AttrAny= arrAny; - ret= oletest.AttrAny; - document.writeln("Setting AttrAny: " + arrAny.toString() + "<p>"); - document.writeln("Getting AttrAny: " + arrAny.toString()); break; - - case 210: oletest.AttrSequence= arrSeq; - ret= oletest.AttrSequence; - document.writeln("Setting AttrSequence: " + arrSeq.toString() + "<p>"); - document.writeln("Getting AttrSequence: " + arrSeq.toString()); break; - - case 211: oletest.AttrSequence2= arrSeq2; - ret= oletest.AttrSequence2; - document.writeln("Setting AttrSequence2: " + arrSeq2.toString() + "<p>"); - document.writeln("Getting AttrSequence2: " + arrSeq2.toString()); break; - - case 212: oletest.AttrFloat= arrDouble; - ret= oletest.AttrFloat; - document.writeln("Setting AttrFloat: " + arrDouble.toString() + "<p>"); - document.writeln("Getting AttrFloat: " + arrDouble.toString()); break; - - - - // Out-parameter ------------------------------------------------------------ - case (2000): - oletest.testout_methodByte( arrout1 ); - alert("byte: " + arrout1[0] ); break; - case (2001): - oletest.testout_methodDouble( arrout1 ); - alert( "double: " + arrout1[0] ); break; - case (2002): - oletest.testout_methodBool( arrout1 ); - alert( "boolean: " + arrout1[0] ); break; - case (2003): - oletest.testout_methodShort( arrout1 ); - alert( "short: " + arrout1[0] ); break; - case (2004): - oletest.testout_methodUShort( arrout1 ); - alert( "unsigned short: " + arrout1[0] ); break; - case (2005): - oletest.testout_methodLong( arrout1 ); - alert( "long: " + arrout1[0] ); break; - case (2006): - oletest.testout_methodULong( arrout1 ); - alert( "unsigned long: " + arrout1[0] ); break; - case (2007): - oletest.testout_methodChar( arrout1 ); - alert( "char: " + arrout1[0] ); break; - case (2008): - oletest.testout_methodString( arrout1 ); - alert( "string: " + arrout1[0] ); break; - case (2009): - oletest.testout_methodAny( arrout1 ); - alert( "any: " + arrout1[0] ); break; - case (2010): - oletest.testout_methodSequence( arrout1 ); - var sfarray= new VBArray( arrout1[0]); - arr= sfarray.toArray(); - document.writeln("use the browser's back arrow to go to the previous page <p>"); - document.writeln( arr.toString()); - break; - case (2011): - oletest.testout_methodSequence2( arrout1 ); - var sfarray= new VBArray( arrout1[0]); - arr= sfarray.toArray(); - var i; - for( i=0; i < arr.length; i++) - { - var sfarray= new VBArray( arr[i]); - var arr2= new Array(); - arr2= sfarray.toArray(); - document.writeln( arr2.toString() + "<br>" ); - } - break; - case (2012): - oletest.testout_methodMulParams1( arrout1, arrout2 ); - document.writeln( "int : " + arrout1[0] + " int :" + arrout2[0] ); break; - case (2013): - oletest.testout_methodMulParams2( arrout1, arrout2, arrout3 ); - document.writeln( "int: " + arrout1[0] + " int: " + arrout2[0] + " string: " + arrout3[0] ); break; - case (2014): - oletest.testout_methodMulParams3( "hallo", arrout1 ); - document.writeln( "string: " + arrout1[0] ); break; - case (2015): - oletest.testout_methodXInterface( arrout1 ); - var outVal= arrout1[0]; - alert( outVal.AttrAny2); - document.writeln( "string: " + arrout1[0].AttrAny2); break; - case (2016): - oletest.testout_methodFloat( arrout1 ); - alert( "float: " + arrout1[0] ); break; - case (2017): - var in1= 3.14; - var in2= 1111; - var in3= -2222; - oletest.testout_methodMulParams4( in1, arrout1, in2, arrout2, in3 ); - document.write("param1 [in] float: " + in1 + " param2 [out] float: " + arrout1[0] + - " param3 [in] long: " + in2 + " param4 [out] long: " + arrout2[0] + - " param5 [in] long: " + in3); - break; - - - // INOUT - Parameter ------------------------------------------------------------------------------- - // The in value has to be placed on index 0 of the passed in array - case (500): - arrout1[0]= 100; - oletest.testinout_methodByte( arrout1 ); - alert("byte: " + arrout1[0] ); break; - case (501): - arrout1[0]= 3.14; - oletest.testinout_methodDouble( arrout1 ); - alert( "double: " + arrout1[0] ); break; - case (502): - arrout1[0]= false; - oletest.testinout_methodBool( arrout1 ); - alert( "boolean: " + arrout1[0] ); break; - case (503): - arrout1[0]= 200; - oletest.testinout_methodShort( arrout1 ); - alert( "short: " + arrout1[0] ); break; - case (504): - arrout1[0]= 300; - oletest.testinout_methodUShort( arrout1 ); - alert( "unsigned short: " + arrout1[0] ); break; - case (505): - arrout1[0]= 400; - oletest.testinout_methodLong( arrout1 ); - alert( "long: " + arrout1[0] ); break; - case (506): - arrout1[0]= 500; - oletest.testinout_methodULong( arrout1 ); - alert( "unsigned long: " + arrout1[0] ); break; - case (507): - arrout1[0]= "A"; - oletest.testinout_methodChar( arrout1 ); - alert( "char: " + arrout1[0] ); break; - case (508): - arrout1[0]= "I am a string"; - oletest.testinout_methodString( arrout1 ); - alert( "string: " + arrout1[0] ); break; - case (509): - arrout1[0]= arr; - oletest.testinout_methodAny( arrout1 ); // the method simply returns the argument - sfarray= new VBArray( arrout1[0]); - arr= sfarray.toArray(); - alert( "any: " + arr.toString() ); break; - case (510): - arrout1[0]= arr; - oletest.testinout_methodSequence( arrout1 ); - var sfarray= new VBArray( arrout1[0]); - arr= sfarray.toArray(); - document.writeln("use the browser's back arrow to go to the previous page <p>"); - document.writeln( arr.toString()); - break; - case (511): - arrout1[0]= arrSeq; - oletest.testinout_methodSequence2( arrout1 ); - var sfarray= new VBArray( arrout1[0]); - arr= sfarray.toArray(); - var i; - for( i=0; i < arr.length; i++) - { - var sfarray= new VBArray( arr[i]); - var arr2= new Array(); - arr2= sfarray.toArray(); - document.writeln( arr2.toString() + "<br>" ); - } - break; - case 512: - var ob= new Object(); - ob.value= "this is a string"; - - arrout1[0]= ob; - alert (arrout1[0].value); - oletest.testinout_methodXInterface( arrout1); - alert (arrout1[0].value); - var outValue= arrout1[0]; - for ( key in outValue) - { - document.write( outValue[key] ); - } - document.write("Out value: " + outValue ); - document.write("Out 1 value: " + arrout1[1]); - break; - -// var ob= new Object(); -// ob.value= "this is a string"; -// inoutValue.Set( "object", ob); -// oletest.testinout_methodXInterface( inoutValue); -// document.write("Out value: " + inoutValue.Get().value ); -// break; - - case (513): - arrout1[0]= 3.14; - oletest.testinout_methodFloat( arrout1 ); - alert( "float: " + arrout1[0] ); break; - - - - // Test ANY - // Methods - case 1000: - i= 100; - ret= oletest.methodAnyTest1( i); - document.writeln( "in: " + i + " ret: " + ret); - break; - case 1001: - i= 3.14; - ret= oletest.methodAnyTest1( i); - document.writeln( "in: " + i + " ret: " + ret); - break; - case 1002: - i= "Hallo" - ret= oletest.methodAnyTest1( i); - document.writeln( "in: " + i + " ret: " + ret); - break; - case 1003: - i= arr; - ret= oletest.methodAnyTest1( i); - sfarray= new VBArray( ret); - document.writeln( "in: " + i + " ret: " + sfarray.toArray()); - break; - case 1004: - var obj= new Object(); - obj[1]= "This is index 0"; - ret= oletest.methodAnyTest1( obj); - document.writeln( "in: " + obj + " ret: " + ret); - break; - - - // Test ANY property - case 1010: - i= 100; - oletest.AttrAny2= i; - ret= oletest.AttrAny2; - document.writeln( "set: " + i + " get: " + ret); - break; - case 1011: - i= 3.14; - oletest.AttrAny2= i; - ret= oletest.AttrAny2; - document.writeln( "set: " + i + " get: " + ret); - break; - case 1012: - i= "Hallo" - oletest.AttrAny2= i; - ret= oletest.AttrAny2; - document.writeln( "set: " + i + " get: " + ret); - break; - case 1013: - i= arr; - oletest.AttrAny2= i; - ret= oletest.AttrAny2; - sfarray= new VBArray( ret); - document.writeln( "set: " + i + " get: " + sfarray.toArray()); - break; - case 1014: - var obj= new Object(); - obj[1]= "This is index 0"; - oletest.AttrAny2= obj; - ret= oletest.AttrAny2; - document.writeln( "set: " + obj + " get: " + ret); - break; - - // Structs ---------------------------------------------- - case 1020: - var struct= oletest._GetStruct("com.sun.star.beans.Property"); - struct.Attributes= 1; - struct.Handle= 2; - struct.Name= "some Property" - oletest.methodStruct( struct); - break; - case 1021: - var struct= oletest.retMethodStruct(); - alert( "Property::Attributes : " + struct.Attributes + " \nProperty::Handle : " - + struct.Handle + "\n Property::Name : " + struct.Name); - break; - case 1022: - var struct= oletest._GetStruct("com.sun.star.beans.Property"); - struct.Attributes= 1; - struct.Handle= 2; - struct.Name= "some Property" - oletest.AttrStruct= struct; - - var struct2= oletest.AttrStruct; - alert( "property get: \n Property::Attributes : " + struct2.Attributes + " \nProperty::Handle : " - + struct2.Handle + "\n Property::Name : " + struct2.Name); - break; - - case 2100: - alert("2100"); - var ret= oletest.retMethodByte(); - var sfarray= VBArray( ret); - document.writeln( sfarray.toArray() ); - break; - - - - } - -} - -function funcOut( out) -{ - out["du"]= 0xffff; -} - -</script> - -<script language="VBScript"> - -sub callBasic(id) - - Dim factory - Set factory= GetObject("", "com.sun.star.ServiceManager") - - Set oletest= factory.createInstance("oletest.OleTest") - - - arrInt= Array(1,2,3,4,5) - arrInt2= Array( -1, -2, 127, 128, 0) - arrDouble= Array(1.1, 2.2, 3.3, 4.4, 5.5) - arrBool= Array(0,1,0,2,0) - arrLong= Array( &Hff, &Hffff, &Hffffff, &Hffffffff) - arrString= Array("Chicken Wings", "Cheeseburger", "Hamburger") - arrChar= Array("a",65, "M") - arrAny= Array("Mickey", 3.14, 100, "A") - - Dim arrDim2Int(1,1) - For i= 0 To 1 - For j= 0 To 1 - arrDim2Int(i,j) = i*2 + j - Next - Next - - Dim arrDim3Int(1,1,1) - For i= 0 To 1 - For j= 0 To 1 - For k=0 To 1 - arrDim3Int(i,j,k) = i*2 + j*2 + k - Next - Next - Next - - - select case id - case 0 - document.writeln "param: " - printArray arrInt - ret= oletest.methodByte(arrInt) - document.writeln "<br> return value: " - printArray ret - case 1 - document.writeln "param: " - printArray arrDouble - ret= oletest.methodDouble(arrDouble) - document.writeln "<br> return value: " - printArray ret - case 2 - document.writeln "param: " - printArray arrBool - ret= oletest.methodBool(arrBool) - document.writeln "<br> return value: " - printArray ret - case 3 - document.writeln "param: " - printArray arrInt2 - ret= oletest.methodShort(arrInt2) - document.writeln "<br> return value: " - printArray ret - case 4 - document.writeln "param: " - printArray arrInt - ret= oletest.methodUShort(arrInt) - document.writeln "<br> return value: " - printArray ret - case 5 - document.writeln "param: " - printArray arrLong - ret= oletest.methodLong(arrLong) - document.writeln "<br> return value: " - printArray ret - case 6 - document.writeln "param: " - printArray arrInt - ret= oletest.methodULong(arrInt) - document.writeln "<br> return value: " - printArray ret - case 7 - document.writeln "param: " - printArray arrString - ret= oletest.methodString(arrString) - document.writeln "<br> return value: " - printArray ret - case 8 - document.writeln "param: " - printArray arrChar - ret= oletest.methodChar(arrChar) - document.writeln "<br> return value: " - printArray ret - case 9 - document.writeln "param: " - printArray arrAny - ret= oletest.methodAny(arrAny) - document.writeln "<br> return value: " - printArray ret - case 10 - document.writeln "param: " - printArray2 arrDim2Int - ret= oletest.methodSequence(arrDim2Int) - document.writeln "<br> return value: " - for each val in ret - document.write "<br> array: " - for each val2 in val - document.write val2 - next - next - - // Out Parameter - case 150 - dim rOut - oletest.testout_methodByte rOut - MsgBox rOut -// void testout_methodFloat( [out] float rOut); -// void testout_methodDouble( [out] double rOut); -// void testout_methodBool( [out] boolean rOut); -// void testout_methodShort( [out] short rOut); -// void testout_methodUShort( [out] unsigned short rOut); -// void testout_methodLong( [out] long rOut); -// void testout_methodULong( [out] unsigned long rOut); - - - // In Out Parameter -------------------------------------------------- - case 100 - a= 100 - document.write "param: " & CStr( a) & "<br>" - oletest.testinout_methodByte a - document.write a - case 101 - a= 1.11 - document.write "param: " & CStr( a) & "<br>" - oletest.testinout_methodDouble a - document.write a - case 102 - a= 5 - document.write "param: "& CStr( a) & "<br>" - oletest.testinout_methodBool a - document.write a - case 103 - a= -10 - document.write "param: "& CStr( a) & "<br>" - oletest.testinout_methodShort a - document.write a - case 104 - a= 128 - document.write "param: "& CStr( a) & "<br>" - oletest.testinout_methodUShort a - document.write a - case 105 - a= 65556 - document.write "param: "& CStr( a) & "<br>" - oletest.testinout_methodLong a - document.write a - case 106 - a= 65556 - document.write "param: "& CStr( a) & "<br>" - oletest.testinout_methodULong a - document.write a - case 107 - a= "ein test string" - document.write "param: "& CStr( a) & "<br>" - oletest.testinout_methodString a - document.write a - case 108 - a= "W" - document.write "param: "& CStr( a) & "<br>" - oletest.testinout_methodChar a - document.write a - case 109 - a= "Ein String im Any" - document.write "param: "& CStr( a) & "<br>" - oletest.other_methodAnyIn a - document.write a - - case 150 - dim a - document.write "param: "& CStr( a) & "<br>" - oletest.testout_methodByte( a) - document.write a -// Attributes ----------------------------------------------------------------- - case 200 - document.write "set: " - printArray arrInt - oletest.AttrByte= arrInt - b= oletest.AttrByte - call printArrayEx( "<br> get: ", "<br>", b) - case 201 - document.write "set: " - printArray arrDouble - oletest.AttrDouble= arrDouble - b= oletest.AttrDouble - call printArrayEx( "<br> get: ", "<br>", b) - case 202 - document.write "set: " - printArray arrBool : - oletest.AttrBool= arrBool - b= oletest.AttrBool - call printArrayEx( "<br> get: ", "<br>", b) - case 203 - document.write "set: " - printArray arrInt2 : - oletest.AttrShort= arrInt2 - b= oletest.AttrShort - call printArrayEx( "<br> get: ", "<br>", b) - case 204 - document.write "set: " - printArray arrInt - oletest.AttrUShort= arrInt - b= oletest.AttrUShort - call printArrayEx( "<br> get: ", "<br>", b) - case 205 - document.write "set: " - printArray arrInt2 - oletest.AttrLong= arrInt2 - b= oletest.AttrLong - call printArrayEx( "<br> get: ", "<br>", b) - case 206 - document.write "set: " - printArray arrInt - oletest.AttrULong= arrInt - b= oletest.AttrULong - call printArrayEx( "<br> get: ", "<br>", b) - case 207 - document.write "set: " - printArray arrString - oletest.AttrString= arrString - b= oletest.AttrString - call printArrayEx( "<br> get: ", "<br>", b) - case 208 - document.write "set: " - printArray arrChar - oletest.AttrChar= arrChar - b= oletest.AttrChar - call printArrayEx( "<br> get: ", "<br>", b) - case 209 - document.write "set: " - printArray arrAny - oletest.AttrAny= arrAny - b= oletest.AttrAny - call printArrayEx( "<br> get: ", "<br>", b) - - case 210 - document.write "set: <br>" - printArray2 arrDim2Int : - oletest.AttrSequence= arrDim2Int - ret= oletest.AttrSequence - document.write "get: " - for each val in ret - document.write "<br> array: " - for each val2 in val - document.write val2 - next - next - - case 300 - dim aByte - aByte= 100 - call oletest.testinout_methodByte( aByte) - MsgBox aByte - - - case 400 - - set struct= oletest.Bridge_GetStruct("com.sun.star.beans.Property") - struct.Attributes= 1 - struct.Handle= 2 - struct.Name= "some Property" - oletest.methodStruct struct - - case 401 - set struct= oletest.retMethodStruct() - alert( "Property::Attributes : " & struct.Attributes & vblf & " Property::Handle : " _ - & struct.Handle & vblf & " Property::Name : " & struct.Name) - - case 402 - set struct= oletest.Bridge_GetStruct("com.sun.star.beans.Property") - struct.Attributes= 1 - struct.Handle= 2 - struct.Name= "some Property" - oletest.AttrStruct= struct - - set struct2= oletest.AttrStruct - alert( "property get: " & vblf & "Property::Attributes : " & struct2.Attributes & _ - vblf & " Property::Handle : " & struct2.Handle & vblf & " Property::Name : " _ - & struct2.Name) - end select -end sub - -sub printArray( arr) - document.write "array: " - For Each val In arr - document.write CStr(val) & " " - Next -end sub - -// print a 2 dimensional Array - -sub printArray2( arr) - elements1= UBound( arr, 1) - LBound( arr, 1) +1 - elements2= UBound( arr, 2) - LBound( arr, 2) +1 - - For i=0 To elements1 -1 - document.write( "array " & CStr( i) & ": " ) - For j=0 To elements2 -1 - document.write CStr( arr(i,j)) - Next - document.write( "<br>") - Next -end sub - -sub printArrayEx( pre, post, array) - document.write pre - printArray array - document.write post -end sub -</script> - -<div id=out> </div> - -<!-- Insert HTML here --> - -<h2> JScript </h2> -Tests Array/Sequence conversion.<br> -All methods receive a Sequence as Parameter. The element type of the Sequence is written on the buttons. -<br> -<button onclick='callOleTest( 1)'>byte</Button> -<button onclick='callOleTest( 14)'>float</Button> -<button onclick='callOleTest( 2)'>double</Button> -<button onclick='callOleTest( 3)'>boolean</Button> -<button onclick='callOleTest( 4)'>short</Button> -<button onclick='callOleTest( 5)'>unsigned short</Button> -<button onclick='callOleTest( 6)'>long</Button> -<button onclick='callOleTest( 7)'>unsigned long</Button> -<button onclick='callOleTest( 8)'>char</Button> -<button onclick='callOleTest( 9)'>string</Button> -<button onclick='callOleTest( 10)'>any</Button> -<button onclick='callOleTest( 11)'>sequence<long> </Button> -<button onclick='callOleTest( 12)'>sequence<sequence<long> > </Button> -<button onclick='callOleTest( 13)' id=button2 name=button2>XInterface</Button> -<button onclick='callOleTest( 15)'>XEventListener</Button> -<button onclick='callOleTest( 16)'>sequence<XEventListener></Button> -<p> - -<p> -Out Parameter <br> -<button onclick='callOleTest( 2000)'>byte </Button> -<button onclick='callOleTest( 2016)'>float</Button> -<button onclick='callOleTest( 2001)'>double</Button> -<button onclick='callOleTest( 2002)'>boolean</Button> -<button onclick='callOleTest( 2003)'>short</Button> -<button onclick='callOleTest( 2004)'>unsigned short</Button> -<button onclick='callOleTest( 2005)'>long</Button> -<button onclick='callOleTest( 2006)'>unsigned long</Button> -<button onclick='callOleTest( 2007)'>char</Button> -<button onclick='callOleTest( 2008)'>string</Button> -<button onclick='callOleTest( 2009)'>any</Button> -<button onclick='callOleTest( 2010)'>sequence<long> </Button> -<button onclick='callOleTest( 2011)'>sequence<sequence<long> > </Button> -<button onclick='callOleTest( 2012)'>2 out </Button> -<button onclick='callOleTest( 2013)'>3 out </Button> -<button onclick='callOleTest( 2014)'>1 in & 1 out </Button> -<button onclick='callOleTest( 2015)'>XInterface </Button> -<button onclick='callOleTest( 2017)'>mixed out and in </Button> - - -<p> -In Out Parameter <br> -<button onclick='callOleTest( 500)'>byte </Button> -<button onclick='callOleTest( 513)'>float</Button> -<button onclick='callOleTest( 501)'>double</Button> -<button onclick='callOleTest( 502)'>boolean</Button> -<button onclick='callOleTest( 503)'>short</Button> -<button onclick='callOleTest( 504)'>unsigned short</Button> -<button onclick='callOleTest( 505)'>long</Button> -<button onclick='callOleTest( 506)'>unsigned long</Button> -<button onclick='callOleTest( 507)'>char</Button> -<button onclick='callOleTest( 508)'>string</Button> -<button onclick='callOleTest( 509)'>any</Button> -<button onclick='callOleTest( 510)'>sequence<long> </Button> -<button onclick='callOleTest( 511)'>sequence<sequence<long> > </Button> -<button onclick='callOleTest( 512)'>XInterface </Button> -<p> - -Tests Array/Sequence conversion with Attributes. All params are of type Sequence and - the element type of the Sequence is written on the buttons. <br> -<button onclick='callOleTest( 200)'>byte </Button> -<button onclick='callOleTest( 212)'>float</Button> -<button onclick='callOleTest( 201)'>double</Button> -<button onclick='callOleTest( 202)'>boolean</Button> -<button onclick='callOleTest( 203)'>short</Button> -<button onclick='callOleTest( 204)'>unsigned short</Button> -<button onclick='callOleTest( 205)'>long</Button> -<button onclick='callOleTest( 206)'>unsigned long</Button> -<button onclick='callOleTest( 207)'>char</Button> -<button onclick='callOleTest( 208)'>string</Button> -<button onclick='callOleTest( 209)'>any</Button> -<button onclick='callOleTest( 210)'>sequence<long> </Button> -<button onclick='callOleTest( 211)'>sequence<sequence<long> > </Button> -<p> - -Test of Any parameter in a method. Any contains:<br> -<button onclick='callOleTest( 1000)'>integer </Button> -<button onclick='callOleTest( 1001)'>double </Button> -<button onclick='callOleTest( 1002)'>string</Button> -<button onclick='callOleTest( 1003)'>array</Button> -<button onclick='callOleTest( 1004)'>object</Button> -<p> -Test of Any parameter in a property. Any contains:<br> -<button onclick='callOleTest( 1010)'>integer </Button> -<button onclick='callOleTest( 1011)'>double </Button> -<button onclick='callOleTest( 1012)'>string</Button> -<button onclick='callOleTest( 1013)'>array</Button> -<button onclick='callOleTest( 1014)'>object</Button> -<P> -Test of Struct conversions<br> -<button onclick='callOleTest( 1020)'>methodStruct </Button> -<button onclick='callOleTest( 1021)'>return struct</Button> -<button onclick='callOleTest( 1022)'>struct attribute</Button> - - - - -<p> - - -<h2> Visual Basic Tests </h2> -Test array /Sequence conversion and return value<br> -Template: <b> Sequence < type > method( Sequence< type > ) </b> <br> -<!--<font color= red>Multi dimensional arrays are not processed by VBSript</font> <br> --> -<button onclick='callBasic(0)'>byte</button> -<button onclick='callBasic(1)'>double</button> -<button onclick='callBasic(2)'>boolean</button> -<button onclick='callBasic(3)'>short</button> -<button onclick='callBasic(4)'>u short</button> -<button onclick='callBasic(5)'>long</button> -<button onclick='callBasic(6)'>u long</button> -<button onclick='callBasic(7)'>string</button> -<button onclick='callBasic(8)'>char</button> -<button onclick='callBasic(9)'>any</button> <br> -<button onclick='callBasic(10)'>Seq < int ></button> <br> - - -IN/Out parameter <br> -Template: <b> void method(type ) </b> <br> -<button onclick='callBasic(100)'>byte</button> -<button onclick='callBasic(101)'>double</button> -<button onclick='callBasic(102)'>boolean</button> -<button onclick='callBasic(103)'>short</button> -<button onclick='callBasic(104)'>u short</button> -<button onclick='callBasic(105)'>long</button> -<button onclick='callBasic(106)'>u long</button> -<button onclick='callBasic(107)'>string</button> -<button onclick='callBasic(108)'>char</button> -<button onclick='callBasic(109)'>any</button> <br> - -Simple out parameter<br> -<button onclick='callBasic(150)'>byte</button> -<!--<button onclick='callBasic(151)'>double</button> -<button onclick='callBasic(152)'>boolean</button> -<button onclick='callBasic(153)'>short</button> -<button onclick='callBasic(155)'>long</button> -<button onclick='callBasic(157)'>string</button> -<button onclick='callBasic(158)'>char</button> -<button onclick='callBasic(159)'>any</button> <br> -//--> -<br> - - -Tests Array/Sequence conversion with <b>Attributes</b>. All params are of type Sequence and - the element type of the Sequence is written on the buttons. <br> -<button onclick='callBasic( 200)'>byte </Button> -<button onclick='callBasic( 201)'>double</Button> -<button onclick='callBasic( 202)'>boolean</Button> -<button onclick='callBasic( 203)'>short</Button> -<button onclick='callBasic( 204)'>unsigned short</Button> -<button onclick='callBasic( 205)'>long</Button> -<button onclick='callBasic( 206)'>unsigned long</Button> -<button onclick='callBasic( 207)'>string</Button> -<button onclick='callBasic( 208)'>char</Button> -<button onclick='callBasic( 209)'>any</Button> -<button onclick='callBasic( 210)'>sequence<long> </Button> <br> - -In Out parameter <br> -<button onclick='callBasic( 300)'>byte</Button> -<p> -Structs <br> -<button onclick='callBasic(400)'>methodStruct</button> -<button onclick='callBasic(401)'>return Struct</button> -<button onclick='callBasic(402)'>struct attribute</button> - - - |