Quelle  OleTest.htm   Sprache: HTML

");
  document.writeln("Getting AttrByte: " + arr.toString()); break;

 case 201: oletest.AttrDouble= arrDouble;
  ret= oletest.AttrDouble;
  document.writeln("Setting AttrDouble: " + arrDouble.toString() + "

");
  document.writeln("Getting AttrDouble: " + arrDouble.toString()); break;

 case 202: oletest.AttrBool= arrBool;
  ret= oletest.AttrBool;
  document.writeln("Setting AttrBool: " + arrBool.toString() + "

");
  document.writeln("Getting AttrBool: " + arrBool.toString()); break;

 case 203: oletest.AttrShort= arr;
  ret= oletest.AttrShort;
  document.writeln("Setting AttrShort: " + arr.toString() + "

");
  document.writeln("Getting AttrShort: " + arr.toString()); break;

 case 204: oletest.AttrUShort= arr;
  ret= oletest.AttrUShort;
  document.writeln("Setting AttrUShort: " + arr.toString() + "

");
  document.writeln("Getting AttrUShort: " + arr.toString()); break;

 case 205: oletest.AttrLong= arr;
  ret= oletest.AttrLong;
  document.writeln("Setting AttrLong: " + arr.toString() + "

");
  document.writeln("Getting AttrLong: " + arr.toString()); break;

 case 206: oletest.AttrULong= arr;
  ret= oletest.AttrULong;
  document.writeln("Setting AttrULong: " + arr.toString() + "

");
  document.writeln("Getting AttrULong: " + arr.toString()); break;

 case 207: oletest.AttrChar= arrChar;
  ret= oletest.AttrChar;
  document.writeln("Setting AttrChar: " + arrChar.toString() + "

");
  document.writeln("Getting AttrChar: " + arrChar.toString()); break;

 case 208: oletest.AttrString= arrString;
  ret= oletest.AttrString;
  document.writeln("Setting AttrString: " + arrString.toString() + "

");
  document.writeln("Getting AttrString: " + arrString.toString()); break;

 case 209: oletest.AttrAny= arrAny;
  ret= oletest.AttrAny;
  document.writeln("Setting AttrAny: " + arrAny.toString() + "

");
  document.writeln("Getting AttrAny: " + arrAny.toString()); break;

 case 210: oletest.AttrSequence= arrSeq;
  ret= oletest.AttrSequence;
  document.writeln("Setting AttrSequence: " + arrSeq.toString() + "

");
  document.writeln("Getting AttrSequence: " + arrSeq.toString()); break;

 case 211: oletest.AttrSequence2= arrSeq2;
  ret= oletest.AttrSequence2;
  document.writeln("Setting AttrSequence2: " + arrSeq2.toString() + "

");
  document.writeln("Getting AttrSequence2: " + arrSeq2.toString()); break;

 case 212: oletest.AttrFloat= arrDouble;
  ret= oletest.AttrFloat;
  document.writeln("Setting AttrFloat: " + arrDouble.toString() + "

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

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

");
  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() + "
" );
  }
  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 "
return value: "
   printArray ret
  case 1
   document.writeln "param: "
   printArray arrDouble
   ret= oletest.methodDouble(arrDouble)
   document.writeln "
return value: "
   printArray ret
  case 2
   document.writeln "param: "
   printArray arrBool
   ret= oletest.methodBool(arrBool)
   document.writeln "
return value: "
   printArray ret
  case 3
   document.writeln "param: "
   printArray arrInt2
   ret= oletest.methodShort(arrInt2)
   document.writeln "
return value: "
   printArray ret
  case 4
   document.writeln "param: "
   printArray arrInt
   ret= oletest.methodUShort(arrInt)
   document.writeln "
return value: "
   printArray ret
  case 5
   document.writeln "param: "
   printArray arrLong
   ret= oletest.methodLong(arrLong)
   document.writeln "
return value: "
   printArray ret
  case 6
   document.writeln "param: "
   printArray arrInt
   ret= oletest.methodULong(arrInt)
   document.writeln "
return value: "
   printArray ret
  case 7
   document.writeln "param: "
   printArray arrString
   ret= oletest.methodString(arrString)
   document.writeln "
return value: "
   printArray ret
  case 8
   document.writeln "param: "
   printArray arrChar
   ret= oletest.methodChar(arrChar)
   document.writeln "
return value: "
   printArray ret
  case 9
   document.writeln "param: "
   printArray arrAny
   ret= oletest.methodAny(arrAny)
   document.writeln "
return value: "
   printArray ret
  case 10
   document.writeln "param: "
   printArray2 arrDim2Int
   ret= oletest.methodSequence(arrDim2Int)
   document.writeln "
return value: "
   for each val in ret
    document.write "
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) & "
"
   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>

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