Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/C/LibreOffice/extensions/test/ole/ (Office von Apache Version 25.8.3.2^©) Datei vom 5.10.2025 mit Größe 44 kB

Quelle ScriptTest.html

Sprache: HTML

products/Sources/formale Sprachen/C/LibreOffice/extensions/test/ole/ScriptTest.html

<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("================================================================================ ");
document.writeln("JScript ");
document.writeln("================================================================================");

//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(" ");
 }
}


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(" ");
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(" ");
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("");

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("");

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("");

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("");
// 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("");
// 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 ","Failed Testing identity of COM objects ");

var oletest2= oletest.getThis();
ret= oletest === oletest2;
Log.print2(ret, "Ok Testing identity of UNO objects ","Failed Testing identity of UNO objects ");
}


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("================================================================================ ")
document.writeln("VB Script ")
document.writeln("================================================================================")

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( " " )
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("")
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 ")
document.writeln("missing: testout_methodMulParams4 ")

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 ")

inVal = 1
outVal= inVal
oletest.testinout_methodByte outVal
oletest.testinout_methodByte outVal
Log.print inVal = outVal, "testinout_methodByte"

document.writeln("missing: testinout_methodFloat ")
document.writeln("missing: testinout_methodDouble ")
document.writeln("missing: testinout_methodBool ")
document.writeln("missing: testinout_methodShort ")
document.writeln("missing: testinout_methodUShort ")
document.writeln("missing: testinout_methodLong ")
document.writeln("missing: testinout_methodULong ")
document.writeln("missing: testinout_methodChar ")
document.writeln("missing: testinout_methodString ")
document.writeln("missing: testinout_methodAny ")
document.writeln("missing: testinout_methodSequence ")
document.writeln("missing: testinout_methodSequence2 ")
document.writeln("missing: testinout_methodXInterface ")
document.writeln("missing: methodAnyTest1 ")
document.writeln("missing: methodAnyTest1 ")
document.writeln("missing: methodAnyTest1 ")
document.writeln("missing: methodAnyTest1 ")
document.writeln("missing: methodAnyTest1 ")
document.writeln("missing: AttrAny2 ")
document.writeln("missing: methodAnyTest1 ")
document.writeln("missing: methodAnyTest1 ")
document.writeln("missing: methodAnyTest1 ")
document.writeln("missing: methodAnyTest1 ")
document.writeln("missing: methodAnyTest1 ")
document.writeln("missing: retMethodStruct ")
document.writeln("missing: AttrStruct ")
document.writeln("missing: methodStruct2 ")

' 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 ","Failed Testing identity of COM objects "
' Test identity of UNO objects

set oletest2= oletest.getThis()
ret= oletest Is oletest2
Log.print2 ret, "Ok Testing identity of UNO objects ","Failed Testing identity of UNO objects "

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) & " "
 oletest.testinout_methodByte a
 document.write a
 case 101
 a= 1.11
 document.write "param: " & CStr( a) & " "
 oletest.testinout_methodDouble a
 document.write a
 case 102
 a= 5
 document.write "param: "& CStr( a) & " "
 oletest.testinout_methodBool a
 document.write a
 case 103
 a= -10
 document.write "param: "& CStr( a) & " "
 oletest.testinout_methodShort a
 document.write a
 case 104
 a= 128
 document.write "param: "& CStr( a) & " "
 oletest.testinout_methodUShort a
 document.write a
 case 105
 a= 65556
 document.write "param: "& CStr( a) & " "
 oletest.testinout_methodLong a
 document.write a
 case 106
 a= 65556
 document.write "param: "& CStr( a) & " "
 oletest.testinout_methodULong a
 document.write a
 case 107
 a= "ein test string"
 document.write "param: "& CStr( a) & " "
 oletest.testinout_methodString a
 document.write a
 case 108
 a= "W"
 document.write "param: "& CStr( a) & " "
 oletest.testinout_methodChar a
 document.write a
 case 109
 a= "Ein String im Any"
 document.write "param: "& CStr( a) & " "
 oletest.other_methodAnyIn a
 document.write a

 case 150
 dim a
 document.write "param: "& CStr( a) & " "
 oletest.testout_methodByte( a)
 document.write a
// Attributes -----------------------------------------------------------------
 case 200
 document.write "set: "
 printArray arrInt
 oletest.AttrByte= arrInt
 b= oletest.AttrByte
 call printArrayEx( " get: ", " ", b)
 case 201
 document.write "set: "
 printArray arrDouble
 oletest.AttrDouble= arrDouble
 b= oletest.AttrDouble
 call printArrayEx( " get: ", " ", b)
 case 202
 document.write "set: "
 printArray arrBool :
 oletest.AttrBool= arrBool
 b= oletest.AttrBool
 call printArrayEx( " get: ", " ", b)
 case 203
 document.write "set: "
 printArray arrInt2 :
 oletest.AttrShort= arrInt2
 b= oletest.AttrShort
 call printArrayEx( " get: ", " ", b)
 case 204
 document.write "set: "
 printArray arrInt
 oletest.AttrUShort= arrInt
 b= oletest.AttrUShort
 call printArrayEx( " get: ", " ", b)
 case 205
 document.write "set: "
 printArray arrInt2
 oletest.AttrLong= arrInt2
 b= oletest.AttrLong
 call printArrayEx( " get: ", " ", b)
 case 206
 document.write "set: "
 printArray arrInt
 oletest.AttrULong= arrInt
 b= oletest.AttrULong
 call printArrayEx( " get: ", " ", b)
 case 207
 document.write "set: "
 printArray arrString
 oletest.AttrString= arrString
 b= oletest.AttrString
 call printArrayEx( " get: ", " ", b)
 case 208
 document.write "set: "
 printArray arrChar
 oletest.AttrChar= arrChar
 b= oletest.AttrChar
 call printArrayEx( " get: ", " ", b)
 case 209
 document.write "set: "
 printArray arrAny
 oletest.AttrAny= arrAny
 b= oletest.AttrAny
 call printArrayEx( " get: ", " ", b)

 case 210
 document.write "set: "
 printArray2 arrDim2Int :
 oletest.AttrSequence= arrDim2Int
 ret= oletest.AttrSequence
 document.write "get: "
 for each val in ret
 document.write " 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( " ")
 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] + " ",
 "Failed " + arFunctions[method] + " ");
}

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(" ============================================================================== ");
 if(this.bAllOk)
 document.writeln("No errors ");
 else
 document.writeln("Error ! The test failed! ");
}

</script>

</body>
</html>

Messung V0.5 in Prozent

¤ Dauer der Verarbeitung: 0.43 Sekunden (vorverarbeitet am 2026-05-08) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.