Code Example

** Tibbo Basic **


'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

** Tibbo Basic **


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


** Tibbo Basic **


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