diff options
Diffstat (limited to 'extensions/test/ole/ScriptTest.html')
| -rw-r--r-- | extensions/test/ole/ScriptTest.html | 1555 |
1 files changed, 0 insertions, 1555 deletions
diff --git a/extensions/test/ole/ScriptTest.html b/extensions/test/ole/ScriptTest.html deleted file mode 100644 index 71e111457..000000000 --- a/extensions/test/ole/ScriptTest.html +++ /dev/null @@ -1,1555 +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"> - -function runJScriptTest( Log) -{ -document.writeln("================================================================================<br>"); -document.writeln("JScript<br>"); -document.writeln("================================================================================<p>"); - -//var name : String = "Fred"; -//print(name); -var arr= new Array( 1, 2, 3, 4, 0); -var arrInt= new Array( 1,2,3,4,5); -var arrDouble= new Array( 1.2345, 12.345, 123.45, 1234.5, 12345); -var arrBool= new Array( true, false, true, false, true); -var arrChar= new Array( '1', 'A'," ", 55); - -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( ); - -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); - -var arObj= new Array(); -for( i=0; i< 3; i++) -{ - arObj[i]= new Object(); -} -var outVal= new Array(); -var outVal2= new Array(); -var outVal3= new Array(); - -for( i=0; i < 3; i++) -{ - arrSeq2[i]= new Array(); - for( j= 0; j < 3; j++) - { - arrSeq2[i][j]= new Array(); - for( k= 0; k < 5; k++) - { - arrSeq2[i][j][k]= (i * 3 * 5) + (j * 5) + k; -// document.write(arrSeq2[i][j][k] + " "); - } -// document.write("<br>"); - } -} - - -ret= oletest.methodByte( arr); -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arr, _ret), "methodByte"); - -ret= oletest.methodFloat( arrDouble); -_ret= new VBArray( ret).toArray(); -bOk= false; -if( (arrDouble.length == _ret.length) - && (_ret[0] > 1.2344 && _ret[0] < 1.2346) - && (_ret[1] > 12.344 && _ret[1] < 12.346) - && (_ret[2] > 123.44 && _ret[2] < 123.46) - && (_ret[3] > 1234.4 && _ret[3] < 1234.6) - && (_ret[4] > 12344 && _ret[4] < 12346)) - bOk= true; -Log.print( bOk, "methodFloat"); - -ret= oletest.methodDouble( arrDouble); -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arrDouble, _ret), "methodDouble"); - -ret= oletest.methodBool( arrBool); -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arrBool, _ret), "methodBool"); - -ret= oletest.methodShort( arr); -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arr, _ret), "methodShort"); - -ret= oletest.methodUShort( arr); -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arr, _ret), "methodUShort"); - -ret= oletest.methodLong( arr); -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arr, _ret), "methodLong"); - -ret= oletest.methodULong( arr); -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arr, _ret), "methodULong"); - -ret= oletest.methodChar( arrChar); -_ret= new VBArray( ret).toArray(); -bOk= false; -if( _ret.length == arrChar.length && _ret[0] == 49 && _ret[1] == 65 && _ret[2] == 32 && _ret[3] == 55) - bOk= true; -Log.print( bOk, "methodChar"); - -ret= oletest.methodString( arrString); -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arrString, _ret), "methodString"); - -ret= oletest.methodAny( arrAny); -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arrAny, _ret), "methodAny"); - -ret= oletest.methodSequence( arrSeq); -_ret= new VBArray( ret).toArray(); -for( i=0; i < _ret.length; i++) -{ - sfarray2= new VBArray( _ret[i]); - var arr2= sfarray2.toArray(); - if( ! isEqualAr(arrSeq[i], arr2)) - { - bOk= false; - break; - } -} -Log.print( bOk, "methodSequence"); - -ret= oletest.methodSequence2( arrSeq2); -arr1= new VBArray( ret).toArray(); -for( i=0; i < arr1.length; i++) -{ - var ar2Dim= arrSeq2[i]; - sfarray2= new VBArray( arr1[i]); - arr2= sfarray2.toArray(); - for ( j=0; j < arr2.length; j++) - { - var ar1Dim= ar2Dim[j]; - sfarray3= new VBArray( arr2[j]); - arr3= sfarray3.toArray(); -// document.write(arr3[j].toString()); - if( ! isEqualAr( arrSeq2[i][j], arr3)) - { - bOk= false; - break; - } - } -} -Log.print( bOk, "methodSequence2"); - -ret= oletest.methodXInterface( arObj); -_ret= new VBArray( ret).toArray(); -bOk= true; -for(i in _ret) -{ - if( _ret[i] !== arObj[i]) - { - bOk= false; - break; - } -} -Log.print( bOk, "methodXInterface"); - - -ret= oletest.methodXEventListeners( arEventListener); -_ret= new VBArray(ret).toArray(); -bOk= true; -for ( key in _ret) -{ - if( ! _ret[key].disposingCalled()) - { - bOk= false; - break; - } -} -Log.print( bOk, "methodXEventListeners"); - -ret= oletest.methodXEventListenersMul( arArEventListener); -_ret= new VBArray(ret).toArray(); -bOk= true; -for( key in _ret) -{ - _ret2= new VBArray(_ret[key]).toArray(); - for( key2 in _ret2) - { - if( ! _ret2[key2].disposingCalled()) - { - bOk= false; - break; - } - } -} -Log.print( bOk, "methodXEventListenersMul"); - -document.writeln("<br>"); -oletest.AttrByte = arr; -ret= oletest.AttrByte; -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arr, _ret), "AttrByte"); - -oletest.AttrFloat= arrDouble; -ret= oletest.AttrFloat; -_ret= new VBArray( ret).toArray(); -bOk= false; -if( (arrDouble.length == _ret.length) - && (_ret[0] > 1.2344 && _ret[0] < 1.2346) - && (_ret[1] > 12.344 && _ret[1] < 12.346) - && (_ret[2] > 123.44 && _ret[2] < 123.46) - && (_ret[3] > 1234.4 && _ret[3] < 1234.6) - && (_ret[4] > 12344 && _ret[4] < 12346)) - bOk= true; -Log.print( bOk, "AttrFloat"); - -oletest.AttrDouble= arrDouble; -ret= oletest.AttrDouble; -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arrDouble, _ret), "AttrDouble"); - -oletest.AttrBool= arrBool; -ret= oletest.AttrBool; -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arrBool, _ret), "AttrBool"); - -oletest.AttrShort= arr; -ret= oletest.AttrShort; -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arr, _ret), "AttrShort"); - -oletest.AttrUShort= arr; -ret= oletest.AttrUShort; -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arr, _ret), "AttrUShort"); - -oletest.AttrLong= arr; -ret= oletest.AttrLong; -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arr, _ret), "AttrLong"); - -oletest.AttrULong= arr; -ret= oletest.AttrULong; -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arr, _ret), "AttrULong"); - -oletest.AttrChar= arrChar; -ret= oletest.AttrChar; -_ret= new VBArray(ret).toArray(); -bOk= false; -if( _ret.length == arrChar.length && _ret[0] == 49 && _ret[1] == 65 && _ret[2] == 32 && _ret[3] == 55) - bOk= true; -Log.print( bOk, "AttrChar"); - -oletest.AttrString= arrString; -ret= oletest.AttrString; -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arrString, _ret), "AttrString"); - -oletest.AttrAny= arrAny; -ret= oletest.AttrAny; -_ret= new VBArray( ret).toArray(); -Log.print( isEqualAr( arrAny, _ret), "AttrAny"); - -oletest.AttrSequence= arrSeq; -ret= oletest.AttrSequence; -_ret= new VBArray( ret).toArray(); -for( i=0; i < _ret.length; i++) -{ - sfarray2= new VBArray( _ret[i]); - var arr2= sfarray2.toArray(); - if( ! isEqualAr(arrSeq[i], arr2)) - { - bOk= false; - break; - } -} -Log.print( bOk, "AttrSequence"); - -oletest.AttrSequence2= arrSeq2; -ret= oletest.AttrSequence2; -arr1= new VBArray( ret).toArray(); -for( i=0; i < arr1.length; i++) -{ - var ar2Dim= arrSeq2[i]; - sfarray2= new VBArray( arr1[i]); - arr2= sfarray2.toArray(); - for ( j=0; j < arr2.length; j++) - { - var ar1Dim= ar2Dim[j]; - sfarray3= new VBArray( arr2[j]); - arr3= sfarray3.toArray(); - if( ! isEqualAr( arrSeq2[i][j], arr3)) - { - bOk= false; - break; - } - } -} -Log.print( bOk, "AttrSequence2"); - -oletest.AttrXInterface= arObj; -ret= oletest.AttrXInterface; -_ret= new VBArray( ret).toArray(); -bOk= true; -for(i in _ret) -{ - if( _ret[i] !== arObj[i]) - { - bOk= false; - break; - } -} -Log.print( bOk, "AttrXInterface"); - -ret= oletest.methodXInterface( arObj); -_ret= new VBArray( ret); -_ret= _ret.toArray(); -bOk= true; -for(i in _ret) -{ - if( _ret[i] !== arObj[i]) - { - bOk= false; - break; - } -} -Log.print( bOk, "methodXInterface"); -//====================================================================================== -document.writeln("<br>"); -var inVal, outVal, retVal; -outVal = new Array(); - -inVal = 77; -retVal = oletest.in_methodByte(inVal) -oletest.testout_methodByte( outVal ); -Log.print( retVal == inVal, "in_methodByte"); -Log.print( outVal[0] == inVal, "testout_methodByte"); - -inVal = 3.14 -retVal = oletest.in_methodFloat(inVal); -oletest.testout_methodFloat( outVal ); -Log.print( retVal > 3.14 && retVal < 3.15, "in_methodFloat"); -Log.print( outVal[0] > 3.13 && outVal[0] < 3.15, "testout_methodFloat"); -//Log.print( outVal[0] == inVal, "testout_methodFloat"); - -retVal = oletest.in_methodDouble(inVal) -oletest.testout_methodDouble( outVal ); -Log.print( retVal == inVal, "in_methodDouble"); -Log.print( outVal[0] == 3.14, "testout_methodDouble" ); - -inVal = true; -retVal = oletest.in_methodBool(inVal); -oletest.testout_methodBool( outVal ); -Log.print(retVal == inVal, "in_methodBool"); -Log.print( outVal[0] == true, "testout_methodBool"); - -inVal = 111 -retVal = oletest.in_methodShort(inVal); -oletest.testout_methodShort( outVal ); -Log.print(retVal == inVal, "in_methodShort"); -Log.print( outVal[0] == inVal, "testout_methodShort"); - -retVal = oletest.in_methodUShort(inVal); -oletest.testout_methodUShort( outVal ); -Log.print(retVal == inVal, "in_methodUShort"); -Log.print( outVal[0] == inVal, "testout_methodUShort"); - -retVal = oletest.in_methodLong(inVal); -oletest.testout_methodLong( outVal ); -Log.print(retVal == inVal, "in_methodLong"); -Log.print( outVal[0] == inVal, "testout_methodLong"); - -retVal = oletest.in_methodULong(inVal); -oletest.testout_methodULong( outVal ); -Log.print(retVal == inVal, "in_methodULong"); -Log.print( outVal[0] == inVal, "testout_methodULong"); - -retVal = oletest.in_methodChar(inVal); -oletest.testout_methodChar( outVal ); -Log.print(retVal == inVal, "in_methodChar"); -Log.print( outVal[0] == inVal, "testout_methodChar"); - -inVal = "Hello World"; -retVal = oletest.in_methodString(inVal); -oletest.testout_methodString( outVal ); -Log.print(retVal == inVal, "in_methodString"); -Log.print( outVal[0] == inVal, "testout_methodString"); - -retVal = oletest.in_methodAny(inVal); -oletest.testout_methodAny( outVal ); -Log.print(retVal == inVal, "in_methodAny"); -Log.print( outVal[0] == inVal, "testout_methodAny"); - -inVal = new Object(); -retVal = oletest.in_methodXInterface(inVal); -oletest.testout_methodXInterface(outVal); -Log.print(retVal === inVal, "in_methodXInterface"); -Log.print(outVal[0] === inVal, "testout_methodXInterface"); - -inVal = oletest; -retVal = oletest.in_methodXInterface(inVal); -oletest.testout_methodXInterface(outVal); -Log.print(retVal === inVal, "in_methodXInterface"); -Log.print(outVal[0] === inVal, "testout_methodXInterface"); - - -oletest.testout_methodSequence( outVal ); -var arr= new VBArray( outVal[0]).toArray(); -Log.print( isEqualAr(arr, new Array( 0,1,2,3,4,5,6,7,8,9)), "testout_methodSequence"); - -oletest.testout_methodSequence2( outVal ); -var arr= new VBArray( outVal[0]).toArray(); -bOk= true; -if( arr.length= 10) -{ - for( i=0; i < arr.length; i++) - { - var arr2= new VBArray( arr[i]).toArray(); - if( ! isEqualAr( arr2, new Array( 0,1,2,3,4,5,6,7,8,9))) - { - bOk= false; - break; - } - } -} -Log.print( bOk, "testout_methodSequence2"); - -oletest.testout_methodMulParams1( outVal, outVal2 ); -Log.print( outVal[0] == 999 && outVal2[0] == 1111, "testout_methodMulParams1"); - -oletest.testout_methodMulParams2( outVal, outVal2, outVal3 ); -Log.print( outVal[0] == 1111 && outVal2[0] == 1222 && outVal3[0] == " another string", - "testout_methodMulParams2"); - -oletest.testout_methodMulParams3( "hallo", outVal ); -Log.print( outVal[0] == "Out Hallo!", "testout_methodMulParams3"); - -var in1= 3.14; -var in2= 1111; -var in3= -2222; -oletest.testout_methodMulParams4( in1, outVal, in2, outVal2, in3 ); -Log.print( (outVal[0] > 4.13 && outVal[0] < 4.15) && (outVal2[0] == 1112), "testout_methodMulParams4"); - -document.writeln("<p>"); - -inVal = 100; -outVal[0]= inVal; -oletest.testinout_methodByte( outVal ); -oletest.testinout_methodByte( outVal ); -Log.print( outVal[0] == inVal, "testinout_methodByte"); - -inVal = 3.14; -outVal[0]= inVal; -oletest.testinout_methodFloat( outVal ); -oletest.testinout_methodFloat( outVal ); -Log.print( outVal[0] > 3.13 && outVal[0] < 3.15, "testinout_methodFloat"); - -inVal = 3.14 -outVal[0]= inVal; -oletest.testinout_methodDouble( outVal ); -oletest.testinout_methodDouble( outVal ); -Log.print( outVal[0] == inVal, "testinout_methodDouble"); - -inVal = true; -outVal[0]= inVal; -oletest.testinout_methodBool( outVal ); -oletest.testinout_methodBool( outVal ); -Log.print( outVal[0] == inVal, "testinout_methodBool"); - -inVal = 200; -outVal[0]= inVal; -oletest.testinout_methodShort( outVal ); -oletest.testinout_methodShort( outVal ); -Log.print( outVal[0] == inVal, "testinout_methodShort"); - -inVal = 300; -outVal[0]= inVal; -oletest.testinout_methodUShort( outVal ); -oletest.testinout_methodUShort( outVal ); -Log.print( outVal[0] == inVal, "testinout_methodUShort"); - -inVal = 400 -outVal[0]= inVal; -oletest.testinout_methodLong( outVal ); -oletest.testinout_methodLong( outVal ); -Log.print( outVal[0] == inVal, "testinout_methodLong"); - -inVal = 500; -outVal[0]= inVal; -oletest.testinout_methodULong( outVal ); -oletest.testinout_methodULong( outVal ); -Log.print( outVal[0] == inVal, "testinout_methodULong"); - -inVal = "B"; -outVal[0]= inVal; -oletest.testinout_methodChar( outVal ); -oletest.testinout_methodChar( outVal ); - -Log.print( outVal[0] == 66, "testinout_methodChar"); - -inVal = "Hello World 2!"; -outVal[0]= inVal; -oletest.testinout_methodString( outVal ); -oletest.testinout_methodString( outVal ); -Log.print( outVal[0] == inVal, "testinout_methodString"); - -inVal = new Object(); -outVal[0]= inVal; -oletest.testinout_methodAny( outVal ); -oletest.testinout_methodAny( outVal ); -Log.print( outVal[0] === inVal, "testinout_methodAny"); - -inVal = arrInt; -outVal[0] = inVal; -oletest.testinout_methodSequence( outVal ); -oletest.testinout_methodSequence( outVal ); -retVal = new VBArray(outVal[0]).toArray(); - -Log.print( isEqualAr(retVal, new Array(3,4,5,6,7)), "testinout_methodSequence"); - - -outVal[0]= arrSeq; -oletest.testinout_methodSequence2( outVal ); -var arr= new VBArray( outVal[0]).toArray(); -var i; -bOk= true; -if( arr.length == 3) -{ - var tmpArr= new Array(2,4,6,8,0); - for( i=0; i < arr.length; i++) - { - var arr2= new VBArray( arr[i]).toArray(); - if( ! isEqualAr( arr2, tmpArr)) - { - bOk= false; - break; - } - } -} -Log.print( bOk, "testinout_methodSequence2"); - - -var ob= new Object(); -var sInVal= "this is a string" -ob.value= sInVal; -outVal[0]= ob; -oletest.testinout_methodXInterface( outVal); -Log.print( outVal[0].value == "out", "testinout_methodXInterface"); -document.writeln("<p>"); - -i= 100; -ret= oletest.methodAnyTest1( i); -Log.print( i == ret, "methodAnyTest1"); - -i= 3.14; -ret= oletest.methodAnyTest1( i); -Log.print( i == ret, "methodAnyTest1"); - -i= "Hallo" -ret= oletest.methodAnyTest1( i); -Log.print( i == ret, "methodAnyTest1"); - -i= arrInt; -ret= oletest.methodAnyTest1( i); -var arr= new VBArray( ret).toArray(); -Log.print( isEqualAr(arr, arrInt), "methodAnyTest1"); - -var obj= new Object(); -ret= oletest.methodAnyTest1( obj); -Log.print( obj == ret, "methodAnyTest1"); - - -document.writeln("<p>"); - -i= 100; -oletest.AttrAny2= i; -ret= oletest.AttrAny2; -Log.print( i == ret, "AttrAny2"); - -i= 3.14; -oletest.AttrAny2= i; -ret= oletest.AttrAny2; -Log.print( i == ret, "AttrAny2"); - -i= "Hallo" -oletest.AttrAny2= i; -ret= oletest.AttrAny2; -Log.print( i == ret, "AttrAny2"); - -i= arrInt; -oletest.AttrAny2= i; -ret= oletest.AttrAny2; -var arr= new VBArray( ret).toArray(); -Log.print( isEqualAr(arr, arrInt), "AttrAny2"); - -var obj= new Object(); -oletest.AttrAny2= obj; -ret= oletest.AttrAny2; -Log.print( obj == ret, "AttrAny2"); - - -document.writeln("<p>"); -// Structs ---------------------------------------------- - -/* var struct= oletest._GetStruct("com.sun.star.beans.Property"); */ -/* struct.Attributes= 1; */ -/* struct.Handle= 2; */ -/* struct.Name= "some Property" */ -/* oletest.methodStruct( struct); */ - -var ret= oletest.retMethodStruct(); -Log.print( ret.Attributes == 127 && ret.Handle == 255 && ret.Name == "OleTest_Property", "retMethodStruct"); - -var astruct= oletest._GetStruct("com.sun.star.beans.Property"); -astruct.Attributes= 1; -astruct.Handle= 2; -astruct.Name= "some Property" -oletest.AttrStruct= astruct; - -var ret= oletest.AttrStruct; -Log.print( ret.Attributes == 127 && ret.Handle == 255 && ret.Name == "OleTest_Property", "AttrStruct"); - -// The function returns the struct. Since structs are passed by value the returned struct -// will be wrapped in another IDispatch object -astruct.Attributes= 1; -astruct.Handle= 2; -astruct.Name= "Property"; -ret= oletest.methodStruct2( astruct); -Log.print( ret.Attributes == 1 && ret.Handle == 2 && ret.Name == "Property", "methodStruct2"); - - -document.writeln("<p>"); -// Test Identity from COM objects in UNO -var listener1= new XEventListener_Impl(); -oletest.setObject(listener1); -ret= oletest.isSame(listener1); -Log.print2( ret, "Ok Testing identity of COM objects<br>","Failed Testing identity of COM objects<br>"); - -var oletest2= oletest.getThis(); -ret= oletest === oletest2; -Log.print2(ret, "Ok Testing identity of UNO objects<br>","Failed Testing identity of UNO objects<br>"); -} - - - - -function isEqualAr( ar1, ar2) -{ - var bOk= false; - if( ar1.length == ar2.length) - { - bOk= true; - for( x in ar1) - { -// document.writeln( ar1[x] + " "); -// document.writeln( ar2[x] + " "); - if( ar1[x] != ar2[x]) - { - bOk= false; - break; - } - } - } - return bOk; -} - -/* function isEqualAr2( ar1, ar2) */ -/* { */ - -/* var bOk= false; */ -/* if( ar1.length == ar2.length) */ -/* { */ -/* bOk= true; */ -/* for( x in ar1) */ -/* { */ -/* document.write( ar1[x]); */ -/* document.write( ar2[x]); */ -/* if( ! isEqualAr( ar1[x], ar2[x])) */ -/* { */ -/* bOk= false; */ -/* break; */ -/* } */ -/* } */ -/* } */ -/* return bOk; */ - -/* } */ - -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; -} -</script> - -<script language="VBScript"> -Function runVBTest( Log) -document.writeln("================================================================================<br>") -document.writeln("VB Script<br>") -document.writeln("================================================================================<p>") - -Dim arrInt -arrInt= Array(1,2,3,-4,-5, 0) -arrUInt= Array(1,2,3,4,5) -arrDouble= Array( 1.2345, 12.345, 123.45, 1234.5, 12345) -arrBool= Array( true, false, true, false, true) -arrChar= Array("A","B",67) -arrString= Array("hamburger","cheeseburger", "chicken nuggets", "chicken wings" , "pizza") -arrAny= Array( 100, 100.1235,"hallo") - - -Dim arrDim2Int(2,1) -Dim i,j,k -For i= 0 To 1 - For j= 0 To 2 - arrDim2Int(j,i) = i*3 + j - Next -Next - - -Dim arrDim3Int(3,2,1) -For i= 0 To 1 - For j= 0 To 2 - For k= 0 To 3 - arrDim3Int(k,j,i)= i* 3 + j* 4 + k - Next - Next -Next - -Dim arrXEvent(2) -For i= 0 To 2 - Set arrXEvent(i)= new VBEventListener -Next - -Dim arrXEvent2(2,1) -For i= 0 To 1 - For j= 0 To 2 - Set arrXEvent2(j,i)= new VBEventListener - Next -Next - - - -ret= oletest.methodByte( arrUInt) -Log.print isEqualVBAr( ret, arrUInt), "methodByte" - -ret= oletest.methodFloat( arrDouble) -Log.print isEqualVBAr( ret, arrDouble), "methodFloat" - -ret= oletest.methodDouble( arrDouble) -Log.print isEqualVBAr( ret, arrDouble), "methodDouble" - -ret= oletest.methodBool( arrBool) -Log.print isEqualVBAr( ret, arrBool), "methodBool" - -ret= oletest.methodShort( arrInt) -Log.print isEqualVBAr( ret, arrInt), "methodShort" - -ret= oletest.methodUShort( arrUInt) -Log.print isEqualVBAr( ret, arrUInt), "methodUShort" - -ret= oletest.methodLong( arrInt) -Log.print isEqualVBAr( ret, arrInt), "methodLong" - -ret= oletest.methodULong( arrUInt) -Log.print isEqualVBAr( ret, arrUInt), "methodULong" - -ret= oletest.methodChar( arrChar) -bOk= false -if ret(0) = 65 AND ret(1) = 66 AND ret(2) = 67 then - bOk= true -end if -Log.print bOk, "methodChar" - -ret= oletest.methodString( arrString) -Log.print isEqualVBAr( ret, arrString), "methodString" - -ret= oletest.methodAny( arrAny) -Log.print isEqualVBAr( ret, arrAny), "methodAny" - - -ret= oletest.methodSequence( arrDim2Int) -bOk= true - -For i= 0 To 1 - Dim arr1 - arr1= ret(i) - For j= 0 To 2 - if arr1(j) <> arrDim2Int(j,i) then - bOk= false - exit for - end if - Next -Next -Log.print bOk, "methodSequence" - -ret= oletest.methodSequence2( arrDim3Int) -'arrDim3Int(3,2,1) -bOk= true -For i= 0 To 1 - arr1= ret(i) - For j= 0 To 2 - arr2= arr1(j) - For k= 0 To 3 - If arr2(k) <> arrDim3Int(k,j,i) then - bOk= false - exit for - End If - Next - Next -Next -Log.print bOk, "methodSequence2" - -ret= oletest.methodXInterface(arrXEvent) -bOk= true -numArg= UBound( arrXEvent) - LBound( arrXEvent) + 1 -numRet= UBound( ret) - LBound( ret) + 1 -If numArg = numRet then - For i= 0 To numArg - 1 - If NOT (arrXEvent(i) Is ret(i)) then - bOk= false - Exit For - End if - Next -End If -Log.print bOk, "methodXInterface" - -ret= oletest.methodXEventListeners( arrXEvent) -bOk= true -For i= 0 To 2 - If arrXEvent(i).disposingCalled = false then - bOk= false - Exit For - End If -Next -Log.print bOk, "methodXEventListeners" - -ret= oletest.methodXEventListenersMul(arrXEvent2) -bOk= true -For i= 0 To 1 - For j= 0 To 2 - If arrXEvent2(j,i).disposingCalled = false then - bOk= false - Exit For - End If - Next -Next -Log.print bOk, "methodXEventListenersMul" - -' Attributes ------------------------------------------------------ -document.writeln( "<br>" ) -oletest.AttrByte= arrUInt -ret= oletest.AttrByte -Log.print isEqualVBAr( arrUInt, ret), "AttrByte" - -oletest.AttrFloat= arrDouble -ret= oletest.AttrFloat -Log.print isEqualVBAr( arrDouble, ret), "AttrFloat" - -oletest.AttrDouble= arrDouble -ret= oletest.AttrDouble -Log.print isEqualVBAr( arrDouble, ret), "AttrDouble" - -oletest.AttrBool= arrBool -ret= oletest.AttrBool -Log.print isEqualVBAr( arrBool, ret), "AttrBool" - -oletest.AttrShort= arrInt -ret= oletest.AttrShort -Log.print isEqualVBAr( arrInt, ret), "AttrShort" - -oletest.AttrUShort= arrUInt -ret= oletest.AttrUShort -Log.print isEqualVBAr( arrUInt, ret), "AttrUShort" - -oletest.AttrLong= arrInt -ret= oletest.AttrLong -Log.print isEqualVBAr( arrInt, ret), "AttrLong" - -oletest.AttrULong= arrUInt -ret= oletest.AttrULong -Log.print isEqualVBAr( arrUInt, ret), "AttrULong" - -oletest.AttrChar= arrChar -ret= oletest.AttrChar -bOk= false -if ret(0) = 65 AND ret(1) = 66 AND ret(2) = 67 then - bOk= true -end if -Log.print bOk, "AttrChar" - -oletest.AttrString= arrString -ret= oletest.AttrString -Log.print isEqualVBAr( arrString, ret), "AttrString" - -oletest.AttrSequence= arrDim2Int -ret= oletest.AttrSequence -bOk= true -For i= 0 To 1 - arr1= ret(i) - For j= 0 To 2 - if arr1(j) <> arrDim2Int(j,i) then - bOk= false - exit for - end if - Next -Next -Log.print bOk, "AttrSequence" - -oletest.AttrSequence2= arrDim3Int -ret= oletest.AttrSequence2 -'arrDim3Int(3,2,1) -bOk= true -For i= 0 To 1 - arr1= ret(i) - For j= 0 To 2 - arr2= arr1(j) - For k= 0 To 3 - If arr2(k) <> arrDim3Int(k,j,i) then - bOk= false - exit for - End If - Next - Next -Next -Log.print bOk, "AttrSequence2" - -oletest.AttrXInterface= arrXEvent -ret= oletest.AttrXInterface -bOk= true -numArg= UBound( arrXEvent) - LBound( arrXEvent) + 1 -numRet= UBound( ret) - LBound( ret) + 1 -If numArg = numRet then - For i= 0 To numArg - 1 - If NOT (arrXEvent(i) Is ret(i)) then - bOk= false - Exit For - End if - Next -End If -Log.print bOk, "AttrXInterface" - -'out params ================================================================================ -document.writeln("<p>") -Dim inVal, outVal, retVal - -inVal = 111 -retVal = oletest.in_methodByte(inVal) -oletest.testout_methodByte outVal -Log.print inVal = retVal, "in_methodByte" -Log.print outVal = inVal, "testout_methodByte" - -inVal = 3.14 -retVal = oletest.in_methodFloat(inVal) -oletest.testout_methodFloat outVal -Log.print inVal = retVal, "in_methodFloat" -Log.print outVal > 3.13 AND outVal < 3.15, "testout_methodFloat" - -inVal = 3.14 -retVal = oletest.in_methodDouble(inVal) -oletest.testout_methodDouble outVal -Log.print inVal = retVal, "in_methodDouble" -Log.print outVal = 3.14, "testout_methodDouble" - -inVal = true -retVal = oletest.in_methodBool(inVal) -oletest.testout_methodBool outVal -Log.print inVal = retVal, "in_methodBool" -Log.print outVal = inVal, "testout_methodBool" - -inVal = 222 -retVal = oletest.in_methodShort(inVal) -oletest.testout_methodShort outVal -Log.print inVal = retVal, "in_methodShort" -Log.print outVal = inVAl, "testout_methodShort" - -inVal = 333 -retVal = oletest.in_methodUShort(inVal) -oletest.testout_methodUShort outVal -Log.print inVal = retVal, "in_methodUShort" -Log.print outVal = inVal, "testout_methodUShort" - -inVal = 4444 -retVal = oletest.in_methodLong(inVal) -oletest.testout_methodLong outVal -Log.print inVal = retVal, "in_methodLong" -Log.print outVal = inVal, "testout_methodLong" - -inVal = 5555 -retVal = oletest.in_methodULong(inVal) -oletest.testout_methodULong outVal -Log.print inVal = retVal, "in_methodULong" -Log.print outVal = inVal, "testout_methodULong" - -inVal = 65 -retVal = oletest.in_methodChar(inVal) -oletest.testout_methodChar outVal -Log.print inVal = retVal, "in_methodChar" -Log.print outVal = 65, "testout_methodChar" - -inVal = "Hello World 3!" -retVal = oletest.in_methodString(inVal) -oletest.testout_methodString outVal -Log.print inVal = retVal, "in_methodString" -Log.print outVal = inVal, "testout_methodString" - -inVal = "Hello World 4!" -retVal = oletest.in_methodAny(inVal) -oletest.testout_methodAny outVal -Log.print outVal = inVal, "testout_methodAny" - -oletest.testout_methodSequence outVal -Log.print isEqualVBAr(outVal, Array( 0,1,2,3,4,5,6,7,8,9)), "testout_methodSequence" - -oletest.testout_methodSequence2 outVal -count= UBound( outVal) - LBound( outVal) + 1 -ret= False -If count = 10 Then - For Each ar In outVal - ret= isEqualVBAr(ar, Array( 0,1,2,3,4,5,6,7,8,9)) - If ret = false Then - Exit For - End If - Next -End If -Log.print ret, "testout_methodSequence2" - -outVal= Empty -outVal2= Empty -oletest.testout_methodMulParams1 outVal, outVal2 -ret= false -If outVal = 999 AND outVal2 = 1111 Then - ret= true -End If -Log.print ret, "testout_methodMulParams1" - -outVal= Empty -outVal2= Empty -outVal3= Empty -oletest.testout_methodMulParams2 outVal, outVal2, outVal3 -ret = false -If outVal = 1111 AND outVal2 = 1222 AND outVal3 = " another string" Then - ret= true -End If -Log.print ret, "testout_methodMulParams2" - -document.writeln("missing: testout_methodMulParams3 <br>") -document.writeln("missing: testout_methodMulParams4 <br>") - -outVal= Empty -oletest.testout_methodXInterface outVal -ret= false -If outVal Is oletest Then - ret= true -End If -Log.print ret, "testout_methodXInterface" - -Set outVal= Nothing -document.writeln("missing: testout_methodXInterface <br>") - -inVal = 1 -outVal= inVal -oletest.testinout_methodByte outVal -oletest.testinout_methodByte outVal -Log.print inVal = outVal, "testinout_methodByte" - - -document.writeln("missing: testinout_methodFloat <br>") -document.writeln("missing: testinout_methodDouble <br>") -document.writeln("missing: testinout_methodBool <br>") -document.writeln("missing: testinout_methodShort <br>") -document.writeln("missing: testinout_methodUShort <br>") -document.writeln("missing: testinout_methodLong <br>") -document.writeln("missing: testinout_methodULong <br>") -document.writeln("missing: testinout_methodChar <br>") -document.writeln("missing: testinout_methodString <br>") -document.writeln("missing: testinout_methodAny <br>") -document.writeln("missing: testinout_methodSequence <br>") -document.writeln("missing: testinout_methodSequence2 <br>") -document.writeln("missing: testinout_methodXInterface <br>") -document.writeln("missing: methodAnyTest1 <br>") -document.writeln("missing: methodAnyTest1 <br>") -document.writeln("missing: methodAnyTest1 <br>") -document.writeln("missing: methodAnyTest1 <br>") -document.writeln("missing: methodAnyTest1 <br>") -document.writeln("missing: AttrAny2 <br>") -document.writeln("missing: methodAnyTest1 <br>") -document.writeln("missing: methodAnyTest1 <br>") -document.writeln("missing: methodAnyTest1 <br>") -document.writeln("missing: methodAnyTest1 <br>") -document.writeln("missing: methodAnyTest1 <br>") -document.writeln("missing: retMethodStruct <br>") -document.writeln("missing: AttrStruct <br>") -document.writeln("missing: methodStruct2 <br>") - -' Test Identity from COM objects in UNO -Dim listener1 -Set listener1= new VBEventListener -call oletest.setObject( listener1) -ret= oletest.isSame(listener1) -Log.print2 ret, "Ok Testing identity of COM objects <br>","Failed Testing identity of COM objects<br>" -' Test identity of UNO objects - -set oletest2= oletest.getThis() -ret= oletest Is oletest2 -Log.print2 ret, "Ok Testing identity of UNO objects<br>","Failed Testing identity of UNO objects<br>" - -End Function - - -Function isEqualVBAr( arr1, arr2) - ret = false - s1= UBound( arr1) - LBound( arr1) + 1 - s2= UBound( arr2) - LBound( arr2) + 1 - - if s1 = s2 then - ret= true - Dim i - for i= 0 To s1 - 1 - if arr1(i) <> arr2(i) then - ret= false - exit for - end if - next - end if - isEqualVBar= ret -End Function - - -'The listener object - -Class VBEventListener - Dim Bridge_ImplementedInterfaces(0) - Dim bDisposingCalled - -'XEventListener::disposing - Function disposing( source) - bDisposingCalled= true - End Function - - Sub Class_Initialize() - bDisposingCalled= false - Bridge_ImplementedInterfaces(0)= "com.sun.star.lang.XEventListener" - End Sub - - Function resetDisposing() - bDisposingCalled= false - End Function - - Function disposingCalled() - disposingCalled= bDisposingCalled - End Function -End Class - - -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,2) - 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 - - // Out Parameter - - - - // 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> - -<script language="JScript"> -var arFunctions= new Array(); -arFunctions["methodByte"]= "sequence<byte> methodByte( [in] sequence<byte> aSeq )"; -arFunctions["methodFloat"]= "sequence<float> methodFloat( [in] sequence<float> aSeq)"; -arFunctions["methodDouble"]= "sequence<double> methodDouble( [in] sequence<double> aSeq)"; -arFunctions["methodBool"]= "sequence<boolean> methodBool( [in] sequence<boolean> aSeq)"; -arFunctions["methodShort"]= "sequence<short> methodShort( [in] sequence<short> aSeq)"; -arFunctions["methodUShort"]= "sequence<unsigned short> methodUShort( [in] sequence<unsigned short> aSeq)"; -arFunctions["methodLong"]= "sequence<long> methodLong( [in] sequence<long> aSeq)"; -arFunctions["methodULong"]= "sequence<unsigned long> methodULong( [in] sequence<unsigned long> aSeq)"; -arFunctions["methodString"]= "sequence<string> methodString( [in] sequence<string> aSeq)"; -arFunctions["methodChar"]= "sequence<char> methodChar( [in] sequence<char> aSeq)"; -arFunctions["methodAny"]= "sequence<any> methodAny ( [in] sequence<any> aSeq)"; -arFunctions["methodXInterface"]= "sequence<XInterface> methodXInterface ( [in] sequence<XInterface> aSeq)"; -arFunctions["methodSequence"]= "sequence< sequence <long> > methodSequence( [in] sequence< sequence< long > > aSeq)"; -arFunctions["methodSequence2"]= "sequence< sequence <sequence <long> > > methodSequence2( [in] sequence< sequence< sequence<long> > > aSeq)"; -arFunctions["methodXEventListeners"]= "sequence< com::sun::star::lang::XEventListener > methodXEventListeners( [in] sequence<com::sun::star::lang::XEventListener> aSeq)"; -arFunctions["methodXEventListenersMul"]= "sequence< sequence< com::sun::star::lang::XEventListener > > methodXEventListenersMul( [in] sequence< sequence< com::sun::star::lang::XEventListener> > aSeq)"; -arFunctions["AttrByte"]="[attribute] sequence<byte> AttrByte"; -arFunctions["AttrFloat"]="[attribute] sequence<float> AttrFloat"; -arFunctions["AttrDouble"]="[attribute] sequence<double> AttrDouble"; -arFunctions["AttrBool"]="[attribute] sequence<boolean> AttrBool"; -arFunctions["AttrShort"]="[attribute] sequence<short> AttrShort"; -arFunctions["AttrUShort"]="[attribute] sequence<unsigned short> AttrUShort"; -arFunctions["AttrLong"]="[attribute] sequence<long> AttrLong"; -arFunctions["AttrULong"]="[attribute] sequence<unsigned long> AttrULong"; -arFunctions["AttrString"]="[attribute] sequence<string> AttrString"; -arFunctions["AttrChar"]="[attribute] sequence<char> AttrChar"; -arFunctions["AttrAny"]="[attribute] sequence<any> AttrAny"; -arFunctions["AttrSequence"]="[attribute] sequence< sequence<long> > AttrSequence"; -arFunctions["AttrSequence2"]="[attribute] sequence< sequence< sequence <long> > > AttrSequence2"; -arFunctions["AttrXInterface"]="[attribute] sequence< com::sun::star::uno::XInterface > AttrXInterface"; - -arFunctions["testout_methodByte"]= " void testout_methodByte( [out] byte rOut )"; -arFunctions["testout_methodFloat"]= "void testout_methodFloat( [out] float rOut)"; -arFunctions["testout_methodDouble"]= "void testout_methodDouble( [out] double rOut)"; -arFunctions["testout_methodBool"]= "void testout_methodBool( [out] boolean rOut)"; -arFunctions["testout_methodShort"]= "void testout_methodShort( [out] short rOut)"; -arFunctions["testout_methodUShort"]= "void testout_methodUShort( [out] unsigned short rOut)"; -arFunctions["testout_methodLong"]= "void testout_methodLong( [out] long rOut)"; -arFunctions["testout_methodULong"]= "void testout_methodULong( [out] unsigned long rOut)"; -arFunctions["testout_methodString"]= "void testout_methodString( [out] string rOut)"; -arFunctions["testout_methodChar"]= "void testout_methodChar( [out] char rOut)"; -arFunctions["testout_methodAny"]= "void testout_methodAny( [out] any rOut)"; -arFunctions["testout_methodSequence"]= "void testout_methodSequence( [out] sequence< long > rOut)"; -arFunctions["testout_methodSequence2"]= "void testout_methodSequence2( [out] sequence < sequence< long > > rOut)"; -arFunctions["testout_methodXInterface"]= "void testout_methodXInterface( [out] com::sun::star::uno::XInterface rOut)"; -arFunctions["testout_methodMulParams1"]= "void testout_methodMulParams1( [out] long rout1, [out] long rout2)"; -arFunctions["testout_methodMulParams2"]= "void testout_methodMulParams2( [out] long rout1, [out] long rout2, [out] string rout3)"; -arFunctions["testout_methodMulParams3"]= "void testout_methodMulParams3( [in] string sin, [out] string sout)"; -arFunctions["testout_methodMulParams4"]= "void testout_methodMulParams4( [in] float in1, [out] float out1, [in] long in2, [out] long out2, [in] long in3)"; -arFunctions["testinout_methodByte"]="void testinout_methodByte( [inout] byte rOut )"; -arFunctions["testinout_methodFloat"]="void testinout_methodFloat( [inout] float rOut)"; -arFunctions["testinout_methodDouble"]="void testinout_methodDouble( [inout] double rOut)"; -arFunctions["testinout_methodBool"]="void testinout_methodBool( [inout] boolean rOut)"; -arFunctions["testinout_methodShort"]="void testinout_methodShort( [inout] short rOut)"; -arFunctions["testinout_methodUShort"]="void testinout_methodUShort( [inout] unsigned short rOut)"; -arFunctions["testinout_methodLong"]="void testinout_methodLong( [inout] long rOut)"; -arFunctions["testinout_methodULong"]="void testinout_methodULong( [inout] unsigned long rOut)"; -arFunctions["testinout_methodString"]="void testinout_methodString( [inout] string rOut)"; -arFunctions["testinout_methodChar"]="void testinout_methodChar( [inout] char rOut)"; -arFunctions["testinout_methodAny"]="void testinout_methodAny( [inout] any rOut)"; -arFunctions["testinout_methodSequence"]="void testinout_methodSequence( [inout] sequence< long > rOut)"; -arFunctions["testinout_methodSequence2"]="void testinout_methodSequence2( [inout] sequence < sequence< long > > rOut)"; -arFunctions["testinout_methodXInterface"]="void testinout_methodXInterface( [inout] com::sun::star::script::XInvocation rOut)"; -arFunctions["testinout_methodXInterface2"]="void testinout_methodXInterface2( [inout] com::sun::star::uno::XInterface rOut)"; - -arFunctions["in_methodByte"]= "byte in_methodByte( [in] byte rIn )"; -arFunctions["in_methodFloat"]= "float in_methodFloat( [in] float rIn);" -arFunctions["in_methodDouble"]= "double in_methodDouble( [in] double rIn)"; -arFunctions["in_methodBool"]= "boolean in_methodBool( [in] boolean rIn)"; -arFunctions["in_methodShort"]= "short in_methodShort( [in] short rIn)"; -arFunctions["in_methodUShort"]= "unsigned short in_methodUShort( [in] unsigned short rIn)"; -arFunctions["in_methodLong"]= "long in_methodLong( [in] long rIn)"; -arFunctions["in_methodULong"]= "unsigned long in_methodULong( [in] unsigned long rIn)"; -arFunctions["in_methodHyper"]= "hyper in_methodHyper( [in] hyper rIn)"; -arFunctions["in_methodUHyper"]= "unsigned hyper in_methodHyper( [in] unsigned hyper rIn)"; -arFunctions["in_methodString"]= "string in_methodString( [in] string rIn)"; -arFunctions["in_methodChar"]= "char in_methodChar( [in] char rIn)"; -arFunctions["in_methodAny"]= "any in_methodAny ( [in] any rIn)"; -arFunctions["in_methodXInterface"]= "XInterface in_methodXInterface([in] XInterface rIn)"; - - -arFunctions["methodAnyTest1"]="any methodAnyTest1( [in] any rIn)"; -arFunctions["AttrAny2"]= "[attribute] any AttrAny2"; -arFunctions["retMethodStruct"]= "com::sun::star::beans::Property retMethodStruct()"; -arFunctions["AttrStruct"]= "[attribute] com::sun::star::beans::Property AttrStruct"; -arFunctions["methodStruct2"]= "com::sun::star::beans::Property methodStruct2( [in] com::sun::star::beans::Property aProp)"; - - -var factory= new ActiveXObject("com.sun.star.ServiceManager"); -var oletest= factory.createInstance("oletest.OleTest"); - -Log= new Logger(); - - -runJScriptTest(Log); -runVBTest(Log); -Log.summarize(); - - -function Logger() -{ - this.print= logger_print; - this.print2= logger_print2; - this.summarize= logger_summarize; - this.bAllOk= true; -} -function logger_print( bool, method) -{ - this.print2(bool, "Ok " + arFunctions[method] + "<br>", - "Failed " + arFunctions[method] + "<br>"); -} - -function logger_print2( bool, okString, failedString) -{ - if( bool) - document.writeln( okString); - else - { - document.writeln( failedString); - this.bAllOk= this.bAllOk && false; - } -} - -function logger_summarize() -{ - document.writeln("<p> ==============================================================================<br>"); - if(this.bAllOk) - document.writeln("No errors <br>"); - else - document.writeln("Error ! The test failed! <br>"); -} - - -</script> - -</body> -</html> - - |