Specifications

COM+ reference
24
Glink: API reference manual Gallagher & Robertson
Dim WithEvents glapi As Glink.GlinkApi
Dim glconf As Glink.GlinkConfiguration
Set glapi = New Glink.GlinkApi
Set glconf = glapi.GlinkConfiguration
("My new TP8 config",
GlinkConfiguration_EMULATION_VIP7804,
GlinkConfiguration_PROTOCOL_GGATE_DSA_CXI,
"ggate.gar.no")
glconf.setParameter("print.type=GlinkApi")
glapi.addConfiguration glconf
glapi.sessionName (glconf.getName)
glapi.start
glapi.notifyString "LOGICAL ID--", False, 1, True
glapi.setVisible (True)
etc...
Private Sub glapi_onGlinkEvent(ByVal glevent As
Glink.IGlinkEvent)
Dim Val As Integer
Dim Ev As Integer
Dim S As String
Ev = glevent.getEventCode
Val = glevent.getValue
If Ev = GlinkEvent_STARTED Then
List1.AddItem ("glevent: STARTED")
GlStarted = True
ElseIf Ev = GlinkEvent_STOPPED Then
List1.AddItem ("glevent: STOPPED")
GlStarted = False
ElseIf Ev = GlinkEvent_CONNECTED Then
List1.AddItem ("glevent: CONNECTED")
GlConnected = True
ElseIf Ev = DISCONNECTED Then
List1.AddItem ("glevent: DISCONNECTED")
GlConnected = False
ElseIf Ev = GlinkEvent_PRINT_DATA Then
S = "glevent: PRINT_DATA: "
If Ev.getValue = 1 Then
S = S + "Last block: "
S = S + "Data:" + Ev.getValueText
EndIf
List1.AddItem (S)
EndIf