Specifications

COM+ reference
22
Glink: API reference manual Gallagher & Robertson
end;
end;
if E = GlinkEvent_STARTED then
S := 'STARTED'
else if E = GlinkEvent_STOPPED then
begin
S := 'STOPPED';
GlinkApi1.Free;
GlinkApi1:= nil;
end
else if E = GlinkEvent_CONNECTED then
S := 'CONNECTED'
else if E = GlinkEvent_DISCONNECTED then
S := 'DISCONNECTED'
else if E = GlinkEvent_TURN_RECEIVED then
S := 'TURN_RECEIVED'
else if E = GlinkEvent_TURN_LOST then
S := 'TURN_LOST'
else if E = GlinkEvent_SCREEN_AREA_MATCH then
S := 'E = SCREEN_AREA_MATCH: id: '+IntToStr(V);
if S <> '' then
Listbox1.Items.Add('Got GlinkEvent: ' + S)
else
Listbox1.Items.Add('Got untreated GlinkEvent: '+
IntToStr(E));
End;
Connecting with an existing Glink configuration file
Connecting using an existing configuration file is done by simply specifying the
Glink configurations file name in the GlinkApi.sessionName property before
calling the GlinkApi.start method. Normally you should not supply the
".glinkconfig" part of the config file name, if you do, then the GlinkApi will
strip it. This means that any subsequent reads of the sesison name with the
getSessionName method will return the name without the ".glinkconfig" part.
Dim WithEvents glapi As Glink.GlinkApi
Set glapi = New Glink.GlinkApi
' We'll load the "TSS at Phoenix.glinkconfig" config file
glapi.sessionName ("TSS at Pheonix")
glapi.start
glapi.notifyString "LOGICAL ID--", False, 1, True
glapi.setVisible (True)
etc...