beautypg.com

Power builder example – MagTek 99875125 User Manual

Page 67

background image

Section 5. Example Applications


POWER BUILDER EXAMPLE

The following example illustrates how to set up PowerBuilder (from Sybase) to read magnetic data from
the IntelliPIN device. Since PowerBuilder does not interface to a serial port very easily, a third-party OCX
is required. The first part of this application note shows how to load an ActiveX component. The main
program script shows how to interface with the OCX, the MTD Windows Driver, and the MagTek device
(in this case the IntelliPIN).

The following communication ActiveX components are available for use with PowerBuilder:

Product Company

Web

Site

Phone

IO ActiveX Control Software Island

members.aol.com/easyio

N/A

Comm Library

EllTech

elltech.com

800-227-8047

COMM-DRV/LIB WCSC

www.wcscnet.com

800-966-4832


In our example, we have chosen “IO ActiveX Control” from Software Island. Here is a method that can be
used to install this component:

1. In a PowerBuilder application, open a new window.

2. From the “Controls” dropdown menu, select “OLE”.

3. From the “Create New” tab, select the intended OCX, for example, “IO Control”. (It is assumed that

the OCX has already been registered by installing it according to the manufacturer’s directions.) Then
click “OK”.

4. Left click anywhere on the open window and drop the component onto it.

5. Right click on the newly installed component and select “Properties”. Enter “mtd” into the “Name”

text field. Enter “MTD OCX” into the “Display Name” and “Tag” text fields. Click “OK”.

6. Right click anywhere on the window outside the new component then select “Properties”. Enter

“ole_io” into the “Title:” text field. Deselect the “Visible” check-off box so the window will not be
shown then click “OK”.

7. Right click anywhere on the window outside the new component then select the “Script” option. Insert

the following script into the “ole_io” window.

//////////////////////////////////////////////////////////
// Window Script to load OCX for Mag-Tek Driver. //
// This is the script for the invisible window that //
// contains the OLE object. //
//////////////////////////////////////////////////////////
integer result

result = mtd.object.Open("COM5:", "")
// COM5 is the virtual port name which was automatically
// assigned to IntelliPIN RS-232 Driver upon installation.
/

/ It may be different for your installation.

if result < 1 then
MessageBox("Open

Read",result)

return

0

END if

59