User's Manual

286 Module - eAPI sample
tim.Interval = 100
tim.Enabled = True
End Sub
Private Sub ip_ekernel_Connect()
Dim lcl_version As String
Dim lcl_o As String
’ Update screen
g_ekernel_local_address = ip_ekernel.LocalIP
lab_ekernel_local_address = & g_ekernel_local_address
g_ekernel_local_port = ip_ekernel.LocalPort
lab_ekernel_local_port = & g_ekernel_local_port
’ log S, INF, TCP local port & Format$(g_ekernel_local_port, 00000) & connected
with remote port & Format$(g_ekernel_remote_port, 00000) & (eKERNEL)
End Sub
Private Sub ip_ekernel_DataArrival(ByVal bytesTotal As Long)
’ ip data received
lab_msg = Data arrival - & bytesTotal & bytes received from eKERNEL
Dim lcl_i As String
ip_ekernel.GetData lcl_i, vbString
’ Append to buffer, and isolate a valid <xml>xxxx</xml> sockets data stream
g_ekernel_buffer = g_ekernel_buffer + lcl_i
Dim lcl_str_xml As Integer
Dim lcl_end_xml As Integer
Dim lcl_dta_xml As String
’ Begin Loop
Do
’ Check if <xml> string occurs
lcl_str_xml = InStr(g_ekernel_buffer, <xml>)
’ Incomplete block without <xml> is not yet processed
If lcl_str_xml = 0 Then Exit Do
’ Check if </xml> string occurs
lcl_end_xml = InStr(lcl_str_xml, g_ekernel_buffer, </xml> + Chr$(13) +
Chr$(10)
)
’ Incomplete block without </xml> is not yet processed
If lcl_end_xml = 0 Then Exit Do
Both <xml> and </xml> tags are found, isolate this data stream
lcl_dta_xml = Mid$(g_ekernel_buffer, lcl_str_xml, (lcl_end_xml -
lcl_str_xml) + 8
)
’ Keep remainder of this data stream (if any is available)
g_ekernel_buffer = Mid$(g_ekernel_buffer, lcl_str_xml + Len(lcl_dta_xml))
’ Add to listbox
log I, TCP, lcl_dta_xml
’ Submit request to ekernel jobqueue
lst_ekernel_jobq.AddItem lcl_dta_xml
’ End loop
Loop
End Sub
Private Sub ip_ekernel_Error(ByVal number As Integer, Description As String,
ByVal Scode As L
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.
.