Code Example

A warning note icon. This section is currently being reworked. We apologize for the inconvenience. If you need immediate assistance, please contact Tibbo Support.

global.tbh:

							 'DEFINES-------------------------------------------------------------
							#define SUPPORTS_GPRS 1
							#define GPRS_DEBUG_PRINT 1
							#define GPRS_PAYLOAD_SIZE 1
							 
							'INCLUDES------------------------------------------------------------
							include "sock\trunk\sock.tbh"
							include "gprs\trunk\gprs.tbh"
							 
							'DECLARATIONS--------------------------------------------------------
							declare tcp_sock_o as byte
						

main.tbs:

							include "global.tbh"
							'--------------------------------------------------------------------
							 
							const AT_DT_COMMAND="*99#"
							const REMOTE_IP="124.155.161.141"                        '<----- CHANGE THIS AS NEEDED
							const REMOTE_PORT=1001                                        '<----- CHANGE THIS AS NEEDED
							'--------------------------------------------------------------------
							dim tcp_sock_o as byte
							 
							'====================================================================
							sub on_sys_init()
							 dim res as en_gprs_status_codes
							 
							 '----- this is for the outgoing test connection
							 tcp_sock_o=sock_get("TCPA")
							 sock.num=tcp_sock_o
							 sock.txbuffrq(1)
							 sock.rxbuffrq(1)
							 sys.buffalloc
							 sock.protocol=PL_SOCK_PROTOCOL_TCP
							 sock.targetip=REMOTE_IP
							 sock.targetport=REMOTE_PORT
							 sock.targetinterface=PL_SOCK_INTERFACE_PPP
							 '----- end
							 
							 res=gprs_start(AT_DT_COMMAND)
							end sub
							 
							'--------------------------------------------------------------------
							sub on_ser_data_arrival()
							 gprs_proc_ser_data()
							end sub
							 
							'--------------------------------------------------------------------
							sub on_sock_data_arrival()
							 dim s as string(32)
							 
							 gprs_proc_sock_data()
							 
							 '----- this is for the outgoing test connection
							 if sock.num=tcp_sock_o then
							         s=sock.getdata(255)
							         pat.play("-***",PL_PAT_CANINT)
							 end if
							 '----- end
							end sub
							 
							'--------------------------------------------------------------------
							sub on_sys_timer()
							 gprs_proc_timer()
							 
							 '----- this is for the outgoing test connection
							 sock.num=tcp_sock_o
							 if sock.statesimple=PL_SSTS_EST then
							         sock.setdata("ABC")
							         sock.send
							 end if
							 '----- end
							end sub
							 
							'--------------------------------------------------------------------
							sub on_sock_event(newstate as pl_sock_state, newstatesimple as pl_sock_state_simple)
							 '----- this is for the outgoing test connection
							 if sock.num=tcp_sock_o then
							         pat.play("-***",PL_PAT_CANINT)
							 end if
							 '----- end
							end sub
							 
							'--------------------------------------------------------------------
							sub on_pat()
							 '----- this is for the outgoing test connection
							 sock.num=tcp_sock_o
							 if sock.statesimple=PL_SSTS_EST then
							         pat.play("G~",PL_PAT_CANINT)
							 end if
							 '----- end
							end sub
						

device.tbs:

							include "global.tbh"
							 
							'====================================================================
							sub callback_gprs_ok()
							 sock.num=tcp_sock_o
							 sock.connect
							end sub
							 
							'--------------------------------------------------------------------
							sub callback_gprs_failure()
							 sock.num=tcp_sock_o
							 sock.discard
							end sub
							 
							'--------------------------------------------------------------------
							sub callback_gprs_pre_buffrq(required_buff_pages as byte)
							end sub
						