1*b1cdbd2cSJim Jagielski<?xml version="1.0" encoding="UTF-8"?> 2*b1cdbd2cSJim Jagielski<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3*b1cdbd2cSJim Jagielski<script:module xmlns:script="http://openoffice.org/2000/script" script:name="remotebridge_various" script:language="StarBasic"> 4*b1cdbd2cSJim Jagielski 5*b1cdbd2cSJim Jagielski 6*b1cdbd2cSJim Jagielski'************************************************************************* 7*b1cdbd2cSJim Jagielski' 8*b1cdbd2cSJim Jagielski' Licensed to the Apache Software Foundation (ASF) under one 9*b1cdbd2cSJim Jagielski' or more contributor license agreements. See the NOTICE file 10*b1cdbd2cSJim Jagielski' distributed with this work for additional information 11*b1cdbd2cSJim Jagielski' regarding copyright ownership. The ASF licenses this file 12*b1cdbd2cSJim Jagielski' to you under the Apache License, Version 2.0 (the 13*b1cdbd2cSJim Jagielski' "License"); you may not use this file except in compliance 14*b1cdbd2cSJim Jagielski' with the License. You may obtain a copy of the License at 15*b1cdbd2cSJim Jagielski' 16*b1cdbd2cSJim Jagielski' http://www.apache.org/licenses/LICENSE-2.0 17*b1cdbd2cSJim Jagielski' 18*b1cdbd2cSJim Jagielski' Unless required by applicable law or agreed to in writing, 19*b1cdbd2cSJim Jagielski' software distributed under the License is distributed on an 20*b1cdbd2cSJim Jagielski' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21*b1cdbd2cSJim Jagielski' KIND, either express or implied. See the License for the 22*b1cdbd2cSJim Jagielski' specific language governing permissions and limitations 23*b1cdbd2cSJim Jagielski' under the License. 24*b1cdbd2cSJim Jagielski' 25*b1cdbd2cSJim Jagielski'************************************************************************* 26*b1cdbd2cSJim Jagielski 27*b1cdbd2cSJim Jagielski 28*b1cdbd2cSJim Jagielski 29*b1cdbd2cSJim Jagielski 30*b1cdbd2cSJim Jagielski 31*b1cdbd2cSJim Jagielski' Be sure that all variables are dimensioned: 32*b1cdbd2cSJim Jagielskioption explicit 33*b1cdbd2cSJim Jagielski 34*b1cdbd2cSJim Jagielski 35*b1cdbd2cSJim Jagielski' REQUIRED VARIABLES for interface/service tests: 36*b1cdbd2cSJim Jagielski 37*b1cdbd2cSJim Jagielski' Required for com.sun.star.lang.XComponent: 38*b1cdbd2cSJim Jagielski Global oComponentInstance As Object ' it will be disposed 39*b1cdbd2cSJim Jagielski 40*b1cdbd2cSJim Jagielski' Required for com.sun.star.lang.XInitialization: 41*b1cdbd2cSJim Jagielski Global aInitArgs(3) As Variant 42*b1cdbd2cSJim Jagielski Global aNoInit() 43*b1cdbd2cSJim Jagielski 44*b1cdbd2cSJim Jagielski' Required for com.sun.star.bridge.XBridge: 45*b1cdbd2cSJim Jagielski Global sBridgeName As String 46*b1cdbd2cSJim Jagielski Global sConnectionString As String 47*b1cdbd2cSJim Jagielski 48*b1cdbd2cSJim JagielskiDim xConnection As Object 49*b1cdbd2cSJim Jagielski 50*b1cdbd2cSJim Jagielski 51*b1cdbd2cSJim JagielskiSub CreateObj() 52*b1cdbd2cSJim Jagielski 53*b1cdbd2cSJim Jagielski'************************************************************************* 54*b1cdbd2cSJim Jagielski' COMPONENT: 55*b1cdbd2cSJim Jagielski' remotebridge.various 56*b1cdbd2cSJim Jagielski'************************************************************************* 57*b1cdbd2cSJim JagielskiOn Error Goto ErrHndl 58*b1cdbd2cSJim Jagielski Dim protocol As String 59*b1cdbd2cSJim Jagielski Dim iPos1 As Integer 60*b1cdbd2cSJim Jagielski Dim iPos2 As Integer 61*b1cdbd2cSJim Jagielski 62*b1cdbd2cSJim Jagielski oObj = createUNOService("com.sun.star.bridge.Bridge") 63*b1cdbd2cSJim Jagielski oComponentInstance = createUNOService("com.sun.star.bridge.Bridge") 64*b1cdbd2cSJim Jagielski 65*b1cdbd2cSJim Jagielski sBridgeName = "remotebridge" 66*b1cdbd2cSJim Jagielski protocol = "urp" 67*b1cdbd2cSJim Jagielski xConnection = createUNOService("com.sun.star.connection.Connector") 68*b1cdbd2cSJim Jagielski 69*b1cdbd2cSJim Jagielski iPos1 = inStr(CNCSTR, "socket") 70*b1cdbd2cSJim Jagielski iPos2 = inStr(iPos1, CNCSTR, ";") 71*b1cdbd2cSJim Jagielski sConnectionString = mid(CNCSTR, iPos1, iPos2 - iPos1) 72*b1cdbd2cSJim Jagielski Out.Log("Creating connection with parameters: " + sConnectionString) 73*b1cdbd2cSJim Jagielski xConnection = xConnection.Connect(sConnectionString) 74*b1cdbd2cSJim Jagielski 75*b1cdbd2cSJim Jagielski aInitArgs(0) = sBridgeName 76*b1cdbd2cSJim Jagielski aInitArgs(1) = protocol 77*b1cdbd2cSJim Jagielski aInitArgs(2) = xConnection 78*b1cdbd2cSJim Jagielski aInitArgs(3) = "" 79*b1cdbd2cSJim Jagielski 80*b1cdbd2cSJim Jagielski oObj.initialize(aInitArgs()) 81*b1cdbd2cSJim JagielskiExit Sub 82*b1cdbd2cSJim JagielskiErrHndl: 83*b1cdbd2cSJim Jagielski Test.Exception() 84*b1cdbd2cSJim JagielskiEnd Sub 85*b1cdbd2cSJim Jagielski 86*b1cdbd2cSJim JagielskiSub DisposeObj() 87*b1cdbd2cSJim Jagielski Out.Log("Disposing object...") 88*b1cdbd2cSJim Jagielski if (NOT isNULL(xConnection)) then 89*b1cdbd2cSJim Jagielski xConnection.close() 90*b1cdbd2cSJim Jagielski end if 91*b1cdbd2cSJim Jagielski oObj.dispose() 92*b1cdbd2cSJim JagielskiEnd Sub 93*b1cdbd2cSJim Jagielski</script:module> 94