'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
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
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