Client Management ActiveX Control Example

DEVELOPER

Trail: PROIV Documentation > Developer > PROIV Developer > ActiveX > Client Management ActiveX Control > Client Management ActiveX Control Example

The following code example demonstrates how to open a new client session.

#I += 1

$FORM_TITLE = "New Session No.#" + Conv(#I)

#XPOS = #XPOS + 10

#YPOS = #YPOS + 10

#WIDTH = 30

#HEIGHT = 30

If #WIDTH =  0

Then

#WIDTH = ClientManager.Width

EndIf

If #HEIGHT =  0

Then

#HEIGHT = ClientManager.Height

EndIf

ClientManager.Width = #WIDTH

ClientManager.Height = #HEIGHT

$XFERIN_PARM1 = "SYS PTI SESSION" + Conv(#I)

$XFERIN_PARM2 = "X" + Conv(#XPOS) + 'Y' + Conv(#YPOS)

ClientManager.InitialiseFromParent = 1

#HANDLE = ClientManager.NewSession(Session)

$RTNVALUE = Conv(#HANDLE)

Comment on this topic

Topic ID: 500451