extensions/test/ole/callUnoToJava.htm

   1 <!--
   2  * This file is part of the LibreOffice project.
   3  *
   4  * This Source Code Form is subject to the terms of the Mozilla Public
   5  * License, v. 2.0. If a copy of the MPL was not distributed with this
   6  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7  *
   8  * This file incorporates work covered by the following license notice:
   9  *
  10  *   Licensed to the Apache Software Foundation (ASF) under one or more
  11  *   contributor license agreements. See the NOTICE file distributed
  12  *   with this work for additional information regarding copyright
  13  *   ownership. The ASF licenses this file to you under the Apache
  14  *   License, Version 2.0 (the "License"); you may not use this file
  15  *   except in compliance with the License. You may obtain a copy of
  16  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 -->
  18 <HTML>
  19 <HEAD>
  20 <META NAME="GENERATOR" Content="Microsoft Developer Studio">
  21 <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  22 <TITLE>Document Title</TITLE>
  23 </HEAD>
  24 <BODY id=theBody>
  25
  26 <script language="JScript">
  27 function callOleTest(    id)
  28 {
  29         var factory= new ActiveXObject("com.sun.star.ServiceManager");
  30         var oletest= factory.createInstance("oletest.OleTest");
  31 //      alert(oletest);
  32
  33         switch( id)
  34         {
  35                 case 1: // Test simple call of JScript object function from UNO
  36                 oletest.testInterface( new XCallback_Impl, 1);
  37                 break;
  38
  39                 case 2:
  40                 // return value is the parameter object
  41                 oletest.testInterface( new XCallback_Impl, 2);
  42                 break;
  43
  44                 // OUT parameter
  45
  46                 case 3: // Test out parameter of type interface
  47                 oletest.testInterface( new XCallback_Impl, 3);
  48                 break;
  49                 case 4: // Test out parameter of type struct
  50                 oletest.testInterface( new XCallback_Impl, 4);
  51                 break;
  52                 case 5: // Test out parameter of type enum
  53                 oletest.testInterface( new XCallback_Impl, 5);
  54                 break;
  55                 case 6: // Test out parameter of type sequence<any>
  56                 oletest.testInterface( new XCallback_Impl, 6);
  57                 break;
  58                 case 7: // Test out parameter of type any
  59                 oletest.testInterface( new XCallback_Impl, 7);
  60                 break;
  61                 case 8: // Test out parameter of type bool
  62                 oletest.testInterface( new XCallback_Impl, 8);
  63                 break;
  64                 case 9: // Test out parameter of type char
  65                 oletest.testInterface( new XCallback_Impl, 9);
  66                 break;
  67                 case 10: // Test out parameter of type string
  68                 oletest.testInterface( new XCallback_Impl, 10);
  69                 break;
  70                 case 11: // Test out parameter of type float
  71                 oletest.testInterface( new XCallback_Impl, 11);
  72                 break;
  73                 case 12: // Test out parameter of type double
  74                 oletest.testInterface( new XCallback_Impl, 12);
  75                 break;
  76                 case 13: // Test out parameter of type byte
  77                 oletest.testInterface( new XCallback_Impl, 13);
  78                 break;
  79                 case 14: // Test out parameter of type short
  80                 oletest.testInterface( new XCallback_Impl, 14);
  81                 break;
  82                 case 15: // Test out parameter of type long
  83                 oletest.testInterface( new XCallback_Impl, 15);
  84                 break;
  85                 case 30: //  outValuesMixed
  86                 oletest.testInterface( new XCallback_Impl, 30);
  87                 break;
  88                 case 31: //  outValuesAll
  89                 oletest.testInterface( new XCallback_Impl, 31);
  90                 break;
  91
  92                 // IN/OUT parameter
  93
  94
  95                 case 100: // inoutInterface
  96                 oletest.testInterface( new XCallback_Impl, 100);
  97                 break;
  98                 case 101: // inoutStruct
  99                 oletest.testInterface( new XCallback_Impl, 101);
 100                 break;
 101                 case 102: // inoutEnum
 102                 oletest.testInterface( new XCallback_Impl, 102);
 103                 break;
 104                 case 103: // inoutSeqAny
 105                 oletest.testInterface( new XCallback_Impl, 103);
 106                 break;
 107                 case 104: // inoutAny
 108                 oletest.testInterface( new XCallback_Impl, 104);
 109                 break;
 110                 case 105: // inoutBool
 111                 oletest.testInterface( new XCallback_Impl, 105);
 112                 break;
 113                 case 106: // inoutChar
 114                 oletest.testInterface( new XCallback_Impl, 106);
 115                 break;
 116                 case 107: // inoutString
 117                 oletest.testInterface( new XCallback_Impl, 107);
 118                 break;
 119                 case 108: // inoutFloat
 120                 oletest.testInterface( new XCallback_Impl, 108);
 121                 break;
 122                 case 109: // inoutDouble
 123                 oletest.testInterface( new XCallback_Impl, 109);
 124                 break;
 125                 case 110: // inoutByte
 126                 oletest.testInterface( new XCallback_Impl, 110);
 127                 break;
 128                 case 111: // inoutShort
 129                 oletest.testInterface( new XCallback_Impl, 111);
 130                 break;
 131                 case 112: // inoutLong
 132                 oletest.testInterface( new XCallback_Impl, 112);
 133                 break;
 134                 case 120: // inoutValuesAll
 135                 oletest.testInterface( new XCallback_Impl, 120);
 136                 break;
 137                 case 200: // inValues
 138                 oletest.testInterface( new XCallback_Impl, 200);
 139                 break;
 140
 141                 // Call a COM object that has not been passed as parameter to a UNO component and
 142                 // hence no type information is available in the COM wrapper
 143 //              case 300:
 144
 145                 // Attributes
 146
 147                 case 400:
 148                 oletest.testInterface( new XCallback_Impl, 400);
 149                 break;
 150
 151                 case 1000:
 152                 oletest.testInterface2(new MultiInterface(), 0);
 153                 break;
 154         }
 155
 156 }
 157
 158
 159
 160 // The class --------------------------------------------
 161
 162 function XCallback_Impl()
 163 {
 164         // XCallback
 165         this._environment= "JScript";
 166
 167         this.func1= XCallback_Impl_func1;
 168         this.returnInterface= XCallback_Impl_returnInterface;
 169         // #################################################
 170         // OUT parameter
 171
 172         this.outInterface= XCallback_Impl_outInterface;
 173         this.outStruct= XCallback_Impl_outStruct;
 174         this.outEnum= XCallback_Impl_outEnum;
 175         this.outSeqAny= XCallback_Impl_outSeqAny;
 176         this.outAny= XCallback_Impl_outAny;
 177         this.outBool= XCallback_Impl_outBool;
 178         this.outChar= XCallback_Impl_outChar;
 179         this.outString= XCallback_Impl_outString;
 180         this.outFloat= XCallback_Impl_outFloat;
 181         this.outDouble= XCallback_Impl_outDouble;
 182         this.outByte= XCallback_Impl_outByte;
 183         this.outShort= XCallback_Impl_outShort;
 184         this.outLong= XCallback_Impl_outLong;
 185         this.outValuesMixed= XCallback_Impl_outValuesMixed;
 186         this.outValuesAll= XCallback_Impl_outValuesAll;
 187         // #################################################
 188         // IN/ OUT parameter
 189
 190         this.inoutInterface= XCallback_Impl_inoutInterface;
 191         this.inoutStruct= XCallback_Impl_inoutStruct;
 192         this.inoutEnum= XCallback_Impl_inoutEnum;
 193         this.inoutSeqAny= XCallback_Impl_inoutSeqAny;
 194         this.inoutAny= XCallback_Impl_inoutAny;
 195         this.inoutBool= XCallback_Impl_inoutBool;
 196         this.inoutChar= XCallback_Impl_inoutChar;
 197         this.inoutString= XCallback_Impl_inoutString;
 198         this.inoutFloat= XCallback_Impl_inoutFloat;
 199         this.inoutDouble= XCallback_Impl_inoutDouble;
 200         this.inoutByte= XCallback_Impl_inoutByte;
 201         this.inoutShort= XCallback_Impl_inoutShort;
 202         this.inoutLong= XCallback_Impl_inoutLong;
 203         this.inoutValuesAll= XCallback_Impl_inoutValuesAll;
 204         // #################################################
 205         // IN parameter
 206
 207         this.inValues= XCallback_Impl_inValues;
 208
 209         // #################################################
 210         // Attributes
 211
 212         this.simple= new XSimple_Impl();
 213
 214
 215 }
 216
 217
 218 function XCallback_Impl_func1()
 219 {
 220         alert("XCallback_Impl_func1");
 221 }
 222 function XCallback_Impl_returnInterface()
 223 {
 224         alert("XCallback::returnInterface called");
 225         return new XSimple_Impl();
 226 }
 227
 228 function XCallback_Impl_outInterface( outVal)
 229 {
 230         outVal[0]= new XSimple_Impl();
 231 }
 232
 233 function XCallback_Impl_outLong( outVal)
 234 {
 235         alert("outLong");
 236 }
 237 function XCallback_Impl_outStruct( outVal)
 238 {
 239         var factory= new ActiveXObject("com.sun.star.ServiceManager");
 240     var starCoreReflection = factory.createInstance("com.sun.star.reflection.CoreReflection");
 241     var structClass = starCoreReflection.forName("oletest.SimpleStruct");
 242         var outParam= new Array();
 243         structClass.createObject(outParam);
 244         var aStruct= outParam[0];
 245         aStruct.message= "a Struct created in JScript";
 246         outVal[0]= aStruct;
 247
 248 }
 249 function XCallback_Impl_outEnum( outVal)
 250 {
 251         outVal[0]= 2;
 252 }
 253 function XCallback_Impl_outSeqAny( outVal)
 254 {
 255         var ar= new Array(1,2,3);
 256         outVal[0]= ar;
 257 }
 258 function XCallback_Impl_outAny( outVal)
 259 {
 260         outVal[0]= "this is an Any";
 261 }
 262 function XCallback_Impl_outBool( outVal)
 263 {
 264         outVal[0]= true;
 265 }
 266 function XCallback_Impl_outChar( outVal)
 267 {
 268         outVal[0]= "a";
 269 }
 270 function XCallback_Impl_outString( outVal)
 271 {
 272         outVal[0]= "This string was created in JScript";
 273 }
 274 function XCallback_Impl_outFloat( outVal)
 275 {
 276         outVal[0]= 3.14;
 277 }
 278 function XCallback_Impl_outDouble( outVal)
 279 {
 280         outVal[0]= 3.145;
 281 }
 282 function XCallback_Impl_outByte( outVal)
 283 {
 284         outVal[0]= 100;
 285 }
 286 function XCallback_Impl_outShort( outVal)
 287 {
 288         outVal[0]= 1000;
 289 }
 290 function XCallback_Impl_outLong( outVal)
 291 {
 292         outVal[0]= 1000000;
 293 }
 294 function XCallback_Impl_outValuesMixed( inLong, outLong, inString)
 295 {
 296         alert("inVal long: " + inLong +" inString:" + inString);
 297         outLong[0]= inLong + 1;
 298 }
 299 function XCallback_Impl_outValuesAll( xSimple, aSimpleStruct, aSimpleEnum, seqAny, aAny, aBool,
 300                                 aChar, aString, aFloat, aDouble, aByte, aShort, aLong)
 301 {
 302         this.outInterface( xSimple);
 303         this.outStruct( aSimpleStruct);
 304         this.outEnum( aSimpleEnum);
 305         this.outSeqAny( seqAny);
 306         this.outAny( aAny);
 307         this.outBool( aBool);
 308         this.outChar( aChar);
 309         this.outString( aString);
 310         this.outFloat( aFloat);
 311         this.outDouble( aDouble);
 312         this.outByte( aByte);
 313         this.outShort( aShort);
 314         this.outLong( aLong);
 315 }
 316
 317 function XCallback_Impl_inoutInterface( val)
 318 {
 319         val[0].func("calling on in parameter");
 320         val[0]= new XSimple_Impl();
 321 }
 322 function XCallback_Impl_inoutStruct( val)
 323 {
 324         alert( val[0].message);
 325         val[0].message= "property message changed in JScript";
 326 }
 327 function XCallback_Impl_inoutEnum(val)
 328 {
 329         alert("enum value +" + val);
 330         val[0]= 2;
 331 }
 332 function XCallback_Impl_inoutSeqAny( val)
 333 {
 334         var vbar = new VBArray(val[0]);
 335         var seq= vbar.toArray();
 336         alert( seq[0] +" "+seq[1] +" " +seq[2]);
 337         val[0]= new Array("jscript1", "jscript2","jscript3");
 338 }
 339 function XCallback_Impl_inoutAny(val)
 340 {
 341         alert( "JScript in any: " + val[0]);
 342         val[0]= "a string from JScript";
 343 }
 344 function XCallback_Impl_inoutBool(val)
 345 {
 346         alert( "JScript in bool: " + val[0]);
 347         val[0]= true;
 348 }
 349 function XCallback_Impl_inoutChar(val)
 350 {
 351         alert( "JScript in char: " + val[0]);
 352         val[0]= 'b';
 353 }
 354 function XCallback_Impl_inoutString(val)
 355 {
 356         alert( "JScript in string: " + val[0]);
 357         val[0]= " a JScript string";
 358 }
 359 function XCallback_Impl_inoutFloat(val)
 360 {
 361         alert( "JScript in float: " + val[0]);
 362         val[0]= 4.14;
 363 }
 364 function XCallback_Impl_inoutDouble(val)
 365 {
 366         alert( "JScript in double: " + val[0]);
 367         val[0]= 4.145;
 368 }
 369
 370 function XCallback_Impl_inoutByte(val)
 371 {
 372         alert( "JScript in byte: " + val[0]);
 373         val[0]= 100;
 374 }
 375 function XCallback_Impl_inoutShort(val)
 376 {
 377         alert( "JScript in short: " + val[0]);
 378         val[0]= 1000;
 379 }
 380 function XCallback_Impl_inoutLong(val)
 381 {
 382         alert( "JScript in long: " + val[0]);
 383         val[0]= 100000;
 384 }
 385 function XCallback_Impl_inoutValuesAll(aXSimple, aStruct, aEnum, aSeq,
 386                         aAny, aBool, aChar, aString,  aFloat, aDouble,
 387                         aByte, aShort,  aLong )
 388 {
 389         this.inoutInterface( aXSimple);
 390         this.inoutStruct( aStruct);
 391         this.inoutEnum( aEnum);
 392         this.inoutSeqAny( aSeq);
 393         this.inoutAny( aAny);
 394         this.inoutBool( aBool);
 395         this.inoutChar( aChar);
 396         this.inoutString( aString);
 397         this.inoutFloat( aFloat);
 398         this.inoutDouble( aDouble);
 399         this.inoutByte( aByte);
 400         this.inoutShort( aShort);
 401         this.inoutLong( aLong);
 402 }
 403
 404 function XCallback_Impl_inValues( aChar, aLong, aString)
 405 {
 406         alert( "char : " + aChar + " long: " + aLong + " string: " + aString);
 407 }
 408
 409
 410
 411 // class MultiInterface implements XSimple, XSimple2, XSimple3
 412
 413 function MultiInterface()
 414 {
 415         this._environment= "JScript";
 416         this._implementedInterfaces= new Array( "oletest.XSimple", "oletest.XSimple2", "oletest.XSimple3");
 417         // XSimple ---------------
 418         this.getName= MultiInterface_getName;
 419         this.func= MultiInterface_func;
 420         this.func2= MultiInterface_func2;
 421         this.func3= MultiInterface_func3;
 422         // XSimple2
 423         this.getName2= MultiInterface_getName2;
 424         // XSimple3
 425         this.getName3= MultiInterface_getName3;
 426 }
 427
 428
 429 function MultiInterface_getName()
 430 {
 431         return "JScript XSimple called";
 432 }
 433 function MultiInterface_func( message)
 434 {
 435         alert("JScript object (XSimple)-- " + message);
 436 }
 437
 438 function MultiInterface_getName2()
 439 {
 440         return "JScript XSimple2 called";
 441 }
 442 function MultiInterface_func2( message)
 443 {
 444         alert("JScript object (XSimple2) -- " + message);
 445 }
 446
 447 function MultiInterface_getName3()
 448 {
 449         return "JScript XSimple3 called";
 450 }
 451 function MultiInterface_func3( message)
 452 {
 453         alert("JScript object (XSimple3) -- " + message);
 454 }
 455
 456
 457
 458
 459 //XCallback_Impl_outValuesMixed( val1, outval, val2)
 460 //{
 461 //}
 462 //XCallback_Impl_outValuesAll( xSimple, aSimpleStruct, aSimpleEnum, seqAny, aAny, aBool,
 463 //                              aChar, aString, aFloat, aDouble, aByte, aShort, aLong, aUShort, aULong)
 464 //{
 465 //
 466 //}
 467
 468
 469
 470 //  class XSimple_Impl----------------------------------------------------------------------
 471 function XSimple_Impl()
 472 {
 473         //XSimple
 474         this.func= XSimple_Impl_func;
 475 }
 476 function XSimple_Impl_func( message)
 477 {
 478         alert( "XSimple called." + message);
 479 }
 480
 481
 482 </script>
 483
 484
 485
 486 <h2> Object in JScript</h2>
 487
 488 This test passes a XCallback to a UNO function of the UNO test control.
 489 XCallback is implemented by the JScript class XCallback_Impl. The function
 490 XCallback::func1 is then called from the UNO test control.
 491 <br>
 492 <button onclick='callOleTest( 1)'>go</Button>
 493 <br>
 494 On the UNO object the function testInterface is called which takes
 495 a XCallback as parameter. XCallback is implemented in a JScript object.The function
 496 returns a XSimple Interface. Then the UNO object calls XSimple::notify. This test shall
 497 verify the correct conversion of the return value( IDispatch JScript object) to an XSimple object.<br>
 498 <button onclick='callOleTest( 2)'>go</Button>
 499 <br>
 500 <h1> out parameter </h1>
 501 The a JScript object of class XCallback_Impl is passed to the UNO OleTest Control as parameter.
 502 According to the buttons the OleTest object calls a function on XCallback_Impl that has appropriate type
 503 as out parameter.<br>
 504 <button onclick='callOleTest( 3)'>interface</Button>
 505 <button onclick='callOleTest( 4)'>struct</Button>
 506 <button onclick='callOleTest( 5)'>enum</Button>
 507 <button onclick='callOleTest( 6)'>sequence&lt;any&gt;</Button>
 508 <button onclick='callOleTest( 7)'>any</Button>
 509 <button onclick='callOleTest( 8)'>bool</Button>
 510 <button onclick='callOleTest( 9)'>char</Button>
 511 <button onclick='callOleTest( 10)'>string</Button>
 512 <button onclick='callOleTest( 11)'>float</Button>
 513 <button onclick='callOleTest( 12)'>double</Button>
 514 <button onclick='callOleTest( 13)'>byte</Button>
 515 <button onclick='callOleTest( 14)'>short</Button>
 516 <button onclick='callOleTest( 15)'>long</Button>
 517 <br>
 518 Other test without parameters <br>
 519 <button onclick='callOleTest( 30)'>outValuesMixed</Button>
 520 <button onclick='callOleTest( 31)'>outValuesAll</Button>
 521 <h1> in out parameter </h1>
 522 <button onclick='callOleTest( 100)'>interface</Button>
 523 <button onclick='callOleTest( 101)'>struct</Button>
 524 <button onclick='callOleTest( 102)'>enum</Button>
 525 <button onclick='callOleTest( 103)'>sequence&lt;any&gt;</Button>
 526 <button onclick='callOleTest( 104)'>any</Button>
 527 <button onclick='callOleTest( 105)'>bool</Button>
 528 <button onclick='callOleTest( 106)'>char</Button>
 529 <button onclick='callOleTest( 107)'>string</Button>
 530 <button onclick='callOleTest( 108)'>float</Button>
 531 <button onclick='callOleTest( 109)'>double</Button>
 532 <button onclick='callOleTest( 110)'>byte</Button>
 533 <button onclick='callOleTest( 111)'>short</Button>
 534 <button onclick='callOleTest( 112)'>long</Button>
 535 <br>
 536 <h1> Attributes </h1>
 537 <button onclick='callOleTest( 400)'>getting XSimple</Button>
 538 <br>
 539
 540 Other tests with inout parameters <br>
 541 <button onclick='callOleTest( 120)'>inoutValuesAll</Button>
 542 <h1>in parameters </h1>
 543 <button onclick='callOleTest( 200)'>inValues</Button>
 544
 545 <h1> JScript object implements several interfaces </h1>
 546 <button onclick='callOleTest( 1000)'>go</Button>
 547
 548
 549
 550
 551 </body>
 552 </html>