User's Manual

288 Module - eAPI sample
Case 9
lab_ekernel_msg = Error
lab_ekernel_state.BackColor = RGB(128, 0, 0)
Case Else
End Select
End If
’ Only process if ekernel_outq is populated
If lst_ekernel_outq.ListCount = 0 Then Exit Sub
’ Not yet connected
If ip_ekernel.State <> 7 Then
On Error Resume Next
Err = 0
If ip_ekernel.State <> sckClosed Then ip_ekernel.Close
g_ekernel_local_address = N/A
g_ekernel_local_port = N/A
lab_ekernel_local_address = & g_ekernel_local_address
lab_ekernel_local_port = & g_ekernel_local_port
ip_ekernel.RemoteHost = g_ekernel_remote_address
ip_ekernel.RemotePort = g_ekernel_remote_port
ip_ekernel.Connect
DoEvents
Exit Sub
On Error GoTo 0
End If
’ Connected
g_ekernel_local_address = ip_ekernel.LocalIP
g_ekernel_local_port = ip_ekernel.LocalPort
lab_ekernel_local_address = & g_ekernel_local_address
lab_ekernel_local_port = & g_ekernel_local_port
’
-------------------------------------------------------------------------
-
’ Handle requests in ekernel jobqueue
’
-------------------------------------------------------------------------
-
While lst_ekernel_jobq.ListCount > 0
process_ekernel_jobq lst_ekernel_jobq.List(0)
lst_ekernel_jobq.RemoveItem 0
eAPI_form - 6
Wend
’
-------------------------------------------------------------------------
-
’ Handle requests in ekernel outq
’
-------------------------------------------------------------------------
-
On Error Resume Next: Err = 0
Do While lst_ekernel_outq.ListCount > 0
lcl_o = lst_ekernel_outq.List(0)
Nortel Communication Server 1000
DECT Messenger Installation and Commissioning — Book 1
NN43120-301 02.01 4 June 2010
Copyright © 2003-2010 Nortel Networks. All Rights Reserved.
.