Bookshelf Home | Contents | Index | PDF |
Siebel Database Upgrade Guide for DB2 UDB for z/OS > Migrating Siebel 6.2.1 Customizations > Migrating Inbound COM InterfacesEnvironments: Development environment only. This topic is part of an upgrade process. See How to Perform a Siebel Database Upgrade. Release 8.0 external applications can interact with the Siebel client through the Siebel Web Client Automation Server. The Siebel Web Client Automation Server is similar in functionality to the COM Automation Server available in Siebel 6.2.1, but it does not expose applet or control objects. The Release 8.0 Siebel Web Client Automation Server enables external applications to interact with the Siebel Web Client. The Web Client Automation Server enables external COM-based applications to invoke Siebel business services and manipulate property sets. The Siebel Web Client Automation Server is implemented as a COM object resident within the browser. To enable the Siebel Web Client Automation Server, in the [SWE] section of your application's configuration file, make sure that the The following example illustrates how a small Microsoft Visual Basic application that uses the Siebel Web Client Automation Server and the EAI Siebel Adapter Business Service queries for a list of Accounts that start with the letter A, and displays the result in a message box. Dim siebelApp As SiebelHTMLApplication Dim inPs As SiebelPropertySet, siebelMsg As SiebelPropertySet Dim listOfAcct As SiebelPropertySet, acctPs As SiebelPropertySet Dim outputPs As SiebelPropertySet Dim i As Long, j As Long, iPos As Long Set siebelApp = GetObject("", "SiebelHTML.SiebelHTMLApplication.1") Set inPs = siebelApp.NewPropertySet Set siebelMsg = siebelApp.NewPropertySet Set listOfAcct = siebelApp.NewPropertySet Set acctPs = siebelApp.NewPropertySet Set outputPs = siebelApp.NewPropertySet Set svc = siebelApp.GetService("EAI Siebel Adapter") ' The following lines will construct a property set to query on the Sample Account siebelMsg.SetType ("SiebelMessage") status = siebelMsg.SetProperty("IntObjectName", "Sample Account") status = siebelMsg.SetProperty("MessageId", "") status = siebelMsg.SetProperty("Message Type", "") listOfAcct.SetType ("ListOfSample Account") status = acctPs.SetProperty("Name", "A*") iPos = listOfAcct.AddChild(acctPs) iPos = siebelMsg.AddChild(listOfAcct) iPos = inPs.AddChild(siebelMsg) ' Now that the Integration Object has been constructed, query for Accounts starting with A status = svc.InvokeMethod("Query", inPs, outputPs) i = outputPs.GetChild(0).GetChild(0).GetChild(0).GetChild(0).GetPropertyCount acctList = acctList & outputPs.GetChild(0).GetChild(0).GetChild(0). _ GetChild(j).GetProperty("Name") & Chr(10) & Chr(13) For additional information on the Siebel Mobile Web Client Automation Server or the Siebel Web Client Automation Server, see Siebel Tools Online Help. You might need to modify browser security settings to allow use of the Siebel Web Client Automation Server. For security settings and information about deploying ActiveX controls in the browser, see Siebel System Administration Guide. For more information about migrating client-side interfaces, see About Migrating 6.2.1 Client-Side Interfaces. Related Topic |
Siebel Database Upgrade Guide for DB2 UDB for z/OS | Copyright © 2012, Oracle and/or its affiliates. All rights reserved. Legal Notices. | |