Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
GSM_ACM.bi
| Uploader: |  ThePuppetMaster |
| Datum/Zeit: | 18.08.2009 15:01:17 |
'####################################################################################################################################
'####################################################################################################################################
' GSM_ACM.bi --- GSM Command Modul
'####################################################################################################################################
'####################################################################################################################################
' 2009 By.: /_\ DeltaLab's Germany - Experimental Computing
' Autor: Martin Wiemann
' Version: 1.00.0 - 14.08.2009 - 12:17:35
'####################################################################################################################################
' Licence: "Do What The Fuck U Want"
'####################################################################################################################################
'####################################################################################################################################
'####################################################################################################################################
#Include once "vbcompat.bi"
'####################################################################################################################################
Enum GSMACM_GuruCode
GSMACM_NoError = 1
GSMACM_Unknown = 0
GSMACM_CantOpenDevice = -1
GSMACM_ComIDInUse = -2
GSMACM_UnknownDeviceID = -3
GSMACM_CommandError = -4
GSMACM_CommandTimeout = -5
GSMACM_CantReadReturnData = -6
GSMACM_SMSIDNotFound = -7
End Enum
'------------------------------------------------------------------------------------------------------------------------------------
Enum GSMACM_NetworkState_Enum
GSMACM_NS_NoLogin_NoNetsearch = 0
GSMACM_NS_Login_Homenet = 1
GSMACM_NS_NoLogin_Netsearch = 2
GSMACM_NS_NoLogin_LoginDenied = 3
GSMACM_NS_Unknown = 4
GSMACM_NS_Login_AnotherNet = 5
End Enum
'------------------------------------------------------------------------------------------------------------------------------------
Enum GSMACM_SMSState_Enum
GSMACM_SMSS_Unknown = 0
GSMACM_SMSS_RecUnread = 1
GSMACM_SMSS_RecRead = 2
GSMACM_SMSS_StoUnsent = 3
GSMACM_SMSS_StoSent = 4
GSMACM_SMSS_All = 5
End Enum
'####################################################################################################################################
Type GSMACM_INT_Type
V_Next as GSMACM_INT_Type Ptr
V_Prev as GSMACM_INT_Type Ptr
V_ComID as UByte
V_DeviceID as Integer
V_ThreadID as Any Ptr
V_ThreadExit as UByte
V_Event_SMS as Sub (V_DeviceID as Integer, V_SMSID as UInteger, V_CallerID as String, V_ReceiveTime as Double, V_Message as String)
V_Event_Call as Sub (V_DeviceID as Integer, V_CallerID as String)
V_Event_NetState as Sub (V_DeviceID as Integer, V_NewNetworkState as GSMACM_NetworkState_Enum)
V_DelSMSonEvent as UByte
End Type
Dim Shared GSMACM_INT_F as GSMACM_INT_Type Ptr
Dim Shared GSMACM_INT_L as GSMACM_INT_Type Ptr
Dim Shared GSMACM_INT_Mutex as Any Ptr
'####################################################################################################################################
Function GSMACM_INT_GetPtr(V_DeviceID as Integer) as GSMACM_INT_Type Ptr
Dim TPtr as GSMACM_INT_Type Ptr = GSMACM_INT_F
Do Until TPtr = 0
If TPtr->V_DeviceID = V_DeviceID Then Return TPtr
TPtr = TPtr->V_Next
Loop
Return 0
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_INT_CheckComIDFree(V_ComID as UByte) as UByte
Dim TPtr as GSMACM_INT_Type Ptr = GSMACM_INT_F
Do Until TPtr = 0
If TPtr->V_ComID = V_ComID Then Return 0
TPtr = TPtr->V_Next
Loop
Return 1
End Function
'####################################################################################################################################
Function GSMACM_GetGURUCode(V_GuruCode as GSMACM_GuruCode) as String
Select Case V_GuruCode
Case GSMACM_NoError: Return "No error!"
Case GSMACM_Unknown: Return "Unknown error!"
Case GSMACM_CantOpenDevice: Return "Can't open device!"
Case GSMACM_CommandError: Return "Command error! Maybe the device doesn't support this command or a parameter error!"
Case GSMACM_CommandTimeout: Return "Timeout while sending command and wait for results!"
Case GSMACM_CantReadReturnData: Return "Can't read or can't understand the result data from the device!"
Case Else: Return "Unknown GURU-Code!"
End Select
End Function
'####################################################################################################################################
Function GSMACM_INT_7Bit_Decode(V_Text as String) as String
Dim T as String
Dim XL as UInteger = Len(V_Text)
For X as UInteger = 1 to XL
Select Case V_Text[X - 1]
Case &H00: T += Chr(&H40)
Case &H01: T += Chr(&HA3)
Case &H02: T += Chr(&H24)
Case &H03: T += Chr(&HA5)
Case &H04: T += Chr(&HE8)
Case &H05: T += Chr(&HE9)
Case &H06: T += Chr(&HF9)
Case &H07: T += Chr(&HEC)
Case &H08: T += Chr(&HF2)
Case &H09: T += Chr(&HC7)
Case &H0B: T += Chr(&HD8)
Case &H0C: T += Chr(&HF8)
Case &H0E: T += Chr(&HC5)
Case &H0F: T += Chr(&HE5)
Case &H10: T += Chr(&HCE, &H94)
Case &H11: T += Chr(&H5F)
Case &H12: T += Chr(&HCE, &HA6)
Case &H13: T += Chr(&HCE, &H93)
Case &H14: T += Chr(&HCE, &H9B)
Case &H15: T += Chr(&HCE, &HA9)
Case &H16: T += Chr(&HCE, &HA0)
Case &H17: T += Chr(&HCE, &HA8)
Case &H18: T += Chr(&HCE, &HA3)
Case &H19: T += Chr(&HCE, &H98)
Case &H1A: T += Chr(&HCE, &H9E)
Case &H1B
If X < XL Then
Select Case V_Text[X]
Case &H0A: T += Chr(&H0C)
Case &H14: T += Chr(&H5E)
Case &H28: T += Chr(&H7B)
Case &H29: T += Chr(&H7D)
Case &H2F: T += Chr(&H5C)
Case &H3C: T += Chr(&H5B)
Case &H3D: T += Chr(&H7E)
Case &H3E: T += Chr(&H5D)
Case &H40: T += Chr(&H7C)
Case &H65: T += Chr(&HE2, &H82, &HAC)
End Select
End If
Case &H1C: T += Chr(&HC6)
Case &H1D: T += Chr(&HE6)
Case &H1E: T += Chr(&HDF)
Case &H1F: T += Chr(&HC9)
Case &H24: T += Chr(&HA4)
Case &H40: T += Chr(&HA1)
Case &H5B: T += Chr(&HC4)
Case &H5C: T += Chr(&HD6)
Case &H5D: T += Chr(&HD1)
Case &H5E: T += Chr(&HDC)
Case &H5F: T += Chr(&HA7)
Case &H60: T += Chr(&HBF)
Case &H7B: T += Chr(&HE4)
Case &H7C: T += Chr(&HF6)
Case &H7D: T += Chr(&HF1)
Case &H7E: T += Chr(&HFC)
Case &H7F: T += Chr(&HE0)
Case Else: T += Chr(V_Text[X - 1])
End Select
Next
Return T
End Function
'####################################################################################################################################
Function GSMACM_INT_SendCMDX(V_DeviceID as Integer, V_CMD as String, R_DD() as String, ByRef R_DC as UInteger, V_Blank as UByte = 0) as GSMACM_GuruCode
R_DC = 0
If V_DeviceID = 0 Then Return GSMACM_UnknownDeviceID
MutexLock(GSMACM_INT_Mutex)
If GSMACM_INT_GetPtr(V_DeviceID) = 0 Then MutexUnLock(GSMACM_INT_Mutex): Return GSMACM_UnknownDeviceID
MutexUnLock(GSMACM_INT_Mutex)
Dim TPtr as GSMACM_INT_Type Ptr
Dim XECall as Sub (V_DeviceID as Integer, V_CallerID as String)
Dim T as String
Dim T1 as String
Dim D as String = Chr(0)
Dim XPos as UInteger
MutexLock(GSMACM_INT_Mutex)
Print #V_DeviceID, "AT+" & V_CMD & Chr(13, 10);
Dim XTot as Double = Timer + 1
Dim XTOut as Double = Timer + 10
Dim XDD() as String
Dim XDC as UInteger
Dim TCalID as String
Dim XV as GSMACM_GuruCode
Do
Get #V_DeviceID, 0, D
If D <> Chr(0) Then T1 += D
Do
XPos = InStr(1, T1, Chr(13, 10))
If XPos = 0 Then Exit Do
T = Left(T1, XPos - 1)
T1 = Mid(T1, XPos + 2)
If T <> "" Then
' Print ">>>"; Left(T, Len(T)); "<<<"
Do
XPos = 0
If Right(T, 1) = Chr(13) Then XPos = 1: T = Left(T, Len(T) - 1)
If Right(T, 1) = Chr(10) Then XPos = 1: T = Left(T, Len(T) - 1)
If XPos = 0 Then Exit Do
Loop
If Left(T, 3) <> "AT+" Then
Select Case UCase(T)
Case "OK": MutexUnLock(GSMACM_INT_Mutex): Return GSMACM_NoError
Case "ERROR": R_DC = 0: MutexUnLock(GSMACM_INT_Mutex): Return GSMACM_CommandError
Case "+CRING: VOICE"
TCalID = ""
' XV = GSMACM_INT_SendCMDX(V_DeviceID, "CLCC", XDD(), XDC)
' If XV = GSMACM_NoError Then
' If XDC > 0 Then
' TCalID = XDD(1)
' End If
' End If
MutexLock(GSMACM_INT_Mutex)
TPtr = GSMACM_INT_GetPtr(V_DeviceID)
If TPtr <> 0 Then
XECall = TPtr->V_Event_Call
MutexUnLock(GSMACM_INT_Mutex)
If XECall <> 0 Then XECall(V_DeviceID, TCalID)
Else: MutexUnLock(GSMACM_INT_Mutex)
End If
Case Else
R_DC += 1
Redim Preserve R_DD(R_DC) as String
If V_Blank = 0 Then
XPos = InStr(1, T, ":")
If XPos > 0 Then
R_DD(R_DC) = Trim(Mid(T, XPos + 1))
Else: R_DD(R_DC) = T
End If
Else: R_DD(R_DC) = T
End If
End Select
End If
T = ""
End If
Loop
If XTot < Timer Then Sleep 1, 1: XTot = Timer
If XTOut < Timer Then Exit Do
Loop
MutexUnLock(GSMACM_INT_Mutex)
Return GSMACM_CommandTimeout
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_INT_GetSingleCMD(V_DeviceID as Integer, V_CMD as String, ByRef R_Data as String = "") as GSMACM_GuruCode
R_Data = ""
Dim DD() as String
Dim DC as UInteger
Dim RV as Integer = GSMACM_INT_SendCMDX(V_DeviceID, V_CMD, DD(), DC)
If RV <> GSMACM_NoError Then Return RV
If DC = 0 Then Return GSMACM_CantReadReturnData
For X as UInteger = 1 to DC
If DD(X) <> "" Then R_Data = DD(X): Exit For
Next
Return GSMACM_NoError
End Function
'####################################################################################################################################
Function GSMACM_Get_BatteryState(V_DeviceID as Integer, ByRef R_IsLoading as UByte, ByRef R_LoadlevelPercent as UByte) as GSMACM_GuruCode
Dim T as String
Dim RV as GSMACM_GuruCode = GSMACM_INT_GetSingleCMD(V_DeviceID, "CBC=?", T)
Dim XLLM as UInteger
Dim XPos as UInteger
If RV = GSMACM_NoError Then
XPos = InStr(1, T, "(")
If XPos > 0 Then
T = Mid(T, XPos + 1)
XPos = InStr(1, T, "(")
If XPos > 0 Then
T = Mid(T, XPos + 1)
XPos = InStr(1, T, "-")
If XPos > 0 Then XLLM = ValUInt(Left(T, XPos - 1))
End If
End If
End If
RV = GSMACM_INT_GetSingleCMD(V_DeviceID, "CBC", T)
If RV <> GSMACM_NoError Then Return RV
XPos = InStr(1, T, ",")
If XPos <= 0 Then Return GSMACM_CantReadReturnData
R_IsLoading = CUByte(ValUInt(Trim(Left(T, XPos - 1))))
If XLLM > 0 Then
R_LoadlevelPercent = CUByte(100 / XLLM * ValUInt(Trim(Mid(T, XPos + 1))))
Else: R_LoadlevelPercent = CUByte(ValUInt(Trim(Mid(T, XPos + 1))))
End If
Return GSMACM_NoError
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_Get_Time(V_DeviceID as Integer, ByRef R_Time as Double) as GSMACM_GuruCode
Dim T as String
Dim RV as GSMACM_GuruCode = GSMACM_INT_GetSingleCMD(V_DeviceID, "CCLK?", T)
If RV <> GSMACM_NoError Then Return RV
If Len(T) < 20 Then Return GSMACM_CantReadReturnData
R_Time = DateSerial(ValInt("20" & Mid(T, 2, 2)), ValInt(Mid(T, 5, 2)), ValInt(Mid(T, 8, 2)))
R_Time += TimeSerial(ValInt(Mid(T, 11, 2)), ValInt(Mid(T, 14, 2)), ValInt(Mid(T, 17, 2)))
R_Time = DateAdd("h", ValInt(Mid(T, 29)), R_Time)
Return GSMACM_NoError
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_Get_Manufacturer(V_DeviceID as Integer, ByRef R_Manufacturer as String) as GSMACM_GuruCode
Return GSMACM_INT_GetSingleCMD(V_DeviceID, "CGMI", R_Manufacturer)
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_Get_Model(V_DeviceID as Integer, ByRef R_Model as String) as GSMACM_GuruCode
Return GSMACM_INT_GetSingleCMD(V_DeviceID, "CGMM", R_Model)
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_Get_Revision(V_DeviceID as Integer, ByRef R_Revision as String) as GSMACM_GuruCode
Return GSMACM_INT_GetSingleCMD(V_DeviceID, "CGMR", R_Revision)
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_Get_IMEI(V_DeviceID as Integer, ByRef R_IMEI as String) as GSMACM_GuruCode
Return GSMACM_INT_GetSingleCMD(V_DeviceID, "CGSN", R_IMEI)
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_Get_IMSI(V_DeviceID as Integer, ByRef R_IMSI as String) as GSMACM_GuruCode
Return GSMACM_INT_GetSingleCMD(V_DeviceID, "CIMI", R_IMSI)
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_Get_RSSI(V_DeviceID as Integer, ByRef R_SignalID as UByte, ByRef R_dBm as String) as GSMACM_GuruCode
Dim T as String
Dim RV as GSMACM_GuruCode = GSMACM_INT_GetSingleCMD(V_DeviceID, "CSQ", T)
If RV <> GSMACM_NoError Then Return RV
Dim XPos as UInteger = InStr(1, T, ",")
If XPos = 0 Then Return GSMACM_CantReadReturnData
R_SignalID = CUByte(ValUInt(Trim(Left(T, XPos - 1))))
Select Case R_SignalID
Case 0: R_dBm = "-113"
Case 1 to 30: R_dBm = "-" & Str(111 - (R_SignalID * 2))
Case 31: R_dBm = "-51"
Case 99: R_dBm = "?"
Case Else: R_dBm = "?"
End Select
Return GSMACM_NoError
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_Get_NetworkState(V_DeviceID as Integer, ByRef R_NetworkState as GSMACM_NetworkState_Enum) as GSMACM_GuruCode
Dim T as String
Dim RV as GSMACM_GuruCode = GSMACM_INT_GetSingleCMD(V_DeviceID, "CREG?", T)
If RV <> GSMACM_NoError Then Return RV
Dim XPos as UInteger = InStr(1, T, ",")
If XPos = 0 Then Return GSMACM_CantReadReturnData
R_NetworkState = CUByte(ValUInt(Trim(Mid(T, XPos + 1))))
Return GSMACM_NoError
End Function
'####################################################################################################################################
Function GSMACM_SMS_GetCount(V_DeviceID as Integer, ByRef R_SMSCount as UInteger) as GSMACM_GuruCode
Dim RV as GSMACM_GuruCode
Dim XSC as UInteger
Dim DD() as String
Dim DC as UInteger
Dim XPos as UInteger
RV = GSMACM_INT_SendCMDX(V_DeviceID, "CMGL", DD(), DC, 1)
If RV <> GSMACM_NoError Then Return RV
For X as UInteger = 1 To DC
If Left(DD(X), 7) = "+CMGL: " Then
DD(X) = Mid(DD(X), 8)
XPos = InStr(1, DD(X), ",")
If XPos > 0 Then XSC += 1
End If
Next
R_SMSCount = XSC
Return GSMACM_NoError
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_SMS_GetIDList(V_DeviceID as Integer, R_SMSListD() as UInteger, ByRef R_SMSListC as UInteger) as GSMACM_GuruCode
Dim RV as GSMACM_GuruCode
Dim DD() as String
Dim DC as UInteger
Dim XPos as UInteger
RV = GSMACM_INT_SendCMDX(V_DeviceID, "CMGL", DD(), DC, 1)
If RV <> GSMACM_NoError Then Return RV
For X as UInteger = 1 To DC
If Left(DD(X), 7) = "+CMGL: " Then
DD(X) = Mid(DD(X), 8)
XPos = InStr(1, DD(X), ",")
If XPos > 0 Then
R_SMSListC += 1
Redim Preserve R_SMSListD(R_SMSListC) as UInteger
R_SMSListD(R_SMSListC) = ValUInt(Left(DD(X), XPos - 1))
End If
End If
Next
Return GSMACM_NoError
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_SMS_GetData(V_DeviceID as Integer, V_SMSID as UInteger, ByRef R_SMS_State as GSMACM_SMSState_Enum, ByRef R_SMS_CallerID as String, ByRef R_SMS_Time as Double, ByRef R_SMS_Message as String) as GSMACM_GuruCode
R_SMS_State = GSMACM_SMSS_Unknown
R_SMS_CallerID = ""
R_SMS_Time = 0
R_SMS_Message = ""
Dim RV as GSMACM_GuruCode
Dim DD() as String
Dim DC as UInteger
RV = GSMACM_INT_SendCMDX(V_DeviceID, "CMGR=" & Str(V_SMSID), DD(), DC, 1)
If RV <> GSMACM_NoError Then Return RV
If DC < 2 Then Return GSMACM_CantReadReturnData
If UCase(Left(DD(1), 7)) <> "+CMGR: " Then Return GSMACM_CantReadReturnData
DD(1) = Mid(DD(1), 8)
Dim XPos as UInteger = InStr(1, DD(1), ",")
If XPos <= 0 Then Return GSMACM_CantReadReturnData
Select Case UCase(Trim(Left(DD(1), XPos - 1)))
Case """REC UNREAD""": R_SMS_State = GSMACM_SMSS_RecUnread
Case """REC READ""": R_SMS_State = GSMACM_SMSS_RecRead
Case """STO UNSENT""": R_SMS_State = GSMACM_SMSS_StoUnsent
Case """STO SENT""": R_SMS_State = GSMACM_SMSS_StoSent
Case """ALL""": R_SMS_State = GSMACM_SMSS_All
End Select
DD(1) = Mid(DD(1), XPos + 1)
Select Case R_SMS_State
Case GSMACM_SMSS_RecUnread, GSMACM_SMSS_RecRead
XPos = InStr(1, DD(1), ",")
If XPos <= 0 Then R_SMS_State = GSMACM_SMSS_Unknown: Return GSMACM_CantReadReturnData
R_SMS_CallerID = Left(DD(1), XPos - 1)
R_SMS_CallerID = Mid(R_SMS_CallerID, 2, Len(R_SMS_CallerID) - 2)
DD(1) = Mid(DD(1), XPos + 1)
DD(1) = Mid(DD(1), 2, Len(DD(1)) - 2)
XPos = InStr(1, DD(1), ",")
If XPos <= 0 Then R_SMS_State = GSMACM_SMSS_Unknown: R_SMS_CallerID = "": Return GSMACM_CantReadReturnData
Dim T as String = Left(DD(1), XPos - 1)
DD(1) = Mid(DD(1), XPos + 1)
Dim TD(6) as String
XPos = InStr(1, T, "/")
If XPos <= 0 Then R_SMS_State = GSMACM_SMSS_Unknown: R_SMS_CallerID = "": Return GSMACM_CantReadReturnData
TD(1) = Left(T, XPos - 1)
T = Mid(T, XPos + 1)
XPos = InStr(1, T, "/")
If XPos <= 0 Then R_SMS_State = GSMACM_SMSS_Unknown: R_SMS_CallerID = "": Return GSMACM_CantReadReturnData
TD(2) = Left(T, XPos - 1)
TD(3) = Mid(T, XPos + 1)
XPos = InStr(1, DD(1), ":")
If XPos <= 0 Then R_SMS_State = GSMACM_SMSS_Unknown: R_SMS_CallerID = "": Return GSMACM_CantReadReturnData
TD(4) = Left(DD(1), XPos - 1)
DD(1) = Mid(DD(1), XPos + 1)
XPos = InStr(1, DD(1), ":")
If XPos <= 0 Then R_SMS_State = GSMACM_SMSS_Unknown: R_SMS_CallerID = "": Return GSMACM_CantReadReturnData
TD(5) = Left(DD(1), XPos - 1)
TD(6) = Mid(DD(1), XPos + 1)
R_SMS_Time = DateSerial(ValInt(TD(1)), ValInt(TD(2)), ValInt(TD(3)))
R_SMS_Time += TimeSerial(ValInt(TD(4)), ValInt(TD(5)), ValInt(TD(6)))
End Select
R_SMS_Message = GSMACM_INT_7Bit_Decode(DD(2))
Return GSMACM_NoError
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_SMS_Delete(V_DeviceID as Integer, V_SMSID as UInteger) as GSMACM_GuruCode
Dim RV as GSMACM_GuruCode
Dim DD() as String
Dim DC as UInteger
RV = GSMACM_INT_SendCMDX(V_DeviceID, "CMGD=" & Str(V_SMSID), DD(), DC, 1)
If RV <> GSMACM_NoError Then Return RV
'For X as UInteger = 1 to DC
' Print ">"; DD(X); "<"
'Next
Return GSMACM_NoError
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_Call_Denied(V_DeviceID as Integer) as GSMACM_GuruCode
Return GSMACM_INT_GetSingleCMD(V_DeviceID, "CHUP")
End Function
'####################################################################################################################################
Sub GSMACM_INT_Thread(V_DeviceID as Integer)
Dim TPtr as GSMACM_INT_Type Ptr
Dim RV as GSMACM_GuruCode
Dim DD() as String
Dim DC as UInteger
Dim XPos as UInteger
Dim X as UInteger
Dim XIDD() as UInteger
Dim XIDC as UInteger
Dim XID as UInteger
Dim D as String
Dim T as String
Dim XDD() as String
Dim XDC as UInteger
Dim TCalID as String
Dim XV as GSMACM_GuruCode
Dim XECall as Sub (V_DeviceID as Integer, V_CallerID as String)
Dim XESMS as Sub (V_DeviceID as Integer, V_SMSID as UInteger, V_CallerID as String, V_ReceiveTime as Double, V_Message as String)
Dim TState as GSMACM_SMSState_Enum
Dim TCallerID as String
Dim TTime as Double
Dim TMSG as String
Do
MutexLock(GSMACM_INT_Mutex)
TPtr = GSMACM_INT_GetPtr(V_DeviceID)
If TPtr = 0 Then MutexUnLock(GSMACM_INT_Mutex): Exit Sub
If TPtr->V_ThreadExit <> 0 Then MutexUnLock(GSMACM_INT_Mutex): Exit Sub
D = ""
Line Input #V_DeviceID, D
MutexUnLock(GSMACM_INT_Mutex)
If D <> "" Then
Select Case UCase(D)
Case "+CRING: VOICE"
TCalID = ""
' XV = GSMACM_INT_SendCMDX(V_DeviceID, "CLCC", XDD(), XDC)
' If XV = GSMACM_NoError Then
' If XDC > 0 Then
' TCalID = XDD(1)
' End If
' End If
MutexLock(GSMACM_INT_Mutex)
TPtr = GSMACM_INT_GetPtr(V_DeviceID)
If TPtr <> 0 Then
XECall = TPtr->V_Event_Call
MutexUnLock(GSMACM_INT_Mutex)
If XECall <> 0 Then XECall(V_DeviceID, TCalID)
Else: MutexUnLock(GSMACM_INT_Mutex)
End If
' Case Else: Print ">"; D; "<"
End Select
End If
RV = GSMACM_INT_SendCMDX(V_DeviceID, "CMGL", DD(), DC, 1)
If RV = GSMACM_NoError Then
XIDC = 0
For X = 1 To DC
If Left(DD(X), 7) = "+CMGL: " Then
DD(X) = Mid(DD(X), 8)
XPos = InStr(1, DD(X), ",")
If XPos > 0 Then
XID = ValUInt(Left(DD(X), XPos - 1))
DD(X) = Mid(DD(X), XPos + 1)
XPos = InStr(1, DD(X), ",")
If XPos > 0 Then
If UCase(Left(DD(X), XPos - 1)) = """REC UNREAD""" Then
XIDC += 1
Redim Preserve XIDD(XIDC) as UInteger
XIDD(XIDC) = XID
' Print ">"; XID; "<"
End If
End If
End If
End If
Next
If XIDC > 0 Then
MutexLock(GSMACM_INT_Mutex)
TPtr = GSMACM_INT_GetPtr(V_DeviceID)
If TPtr <> 0 Then
XESMS = TPtr->V_Event_SMS
MutexUnLock(GSMACM_INT_Mutex)
Else: MutexUnLock(GSMACM_INT_Mutex)
End If
If XESMS <> 0 Then
For X = 1 To XIDC
XV = GSMACM_SMS_GetData(V_DeviceID, XIDD(X), TState, TCallerID, TTime, TMSG)
If XV = GSMACM_NoError Then XESMS(V_DeviceID, XIDD(X), TCallerID, TTime, TMSG)
Next
End If
End If
End If
Sleep 10, 1
Loop
End Sub
'####################################################################################################################################
Function GSMACM_Open(V_ComID as UByte, V_Baudrate as UInteger = 115200, ByRef R_DeviceID as Integer, V_Device as String = "") as GSMACM_GuruCode
MutexLock(GSMACM_INT_Mutex)
If GSMACM_INT_CheckComIDFree(V_ComID) <> 1 Then MutexUnLock(GSMACM_INT_Mutex): Return GSMACM_ComIDInUse
R_DeviceID = FreeFile
Dim T as String
Dim RV as Integer
#IF defined(__fb_linux__)
If V_Device = "" Then V_Device = "/dev/ttyACM"
RV = Open Com(V_Device & Str(V_ComID) & ":" & Str(V_Baudrate) as #R_DeviceID)
#ELSEIF defined(__fb_win__)
If V_Device = "" Then V_Device = "com"
RV = Open Com(V_Device & Str(V_ComID) & ":" & Str(V_Baudrate) & ",n81" as #R_DeviceID)
#ENDIF
If RV <> 0 Then R_DeviceID = 0: MutexUnLock(GSMACM_INT_Mutex): Return GSMACM_CantOpenDevice
If GSMACM_INT_L <> 0 Then
GSMACM_INT_L->V_Next = CAllocate(SizeOf(GSMACM_INT_Type))
GSMACM_INT_L->V_Next->V_Prev = GSMACM_INT_L
GSMACM_INT_L = GSMACM_INT_L->V_Next
Else
GSMACM_INT_L = CAllocate(SizeOf(GSMACM_INT_Type))
GSMACM_INT_F = GSMACM_INT_L
End IF
With *GSMACM_INT_L
.V_ComID = V_ComID
.V_DeviceID = R_DeviceID
.V_ThreadID = ThreadCreate(Cast(Any Ptr, @GSMACM_INT_Thread), Cast(Any Ptr, R_DeviceID))
.V_ThreadExit = 0
End With
MutexUnLock(GSMACM_INT_Mutex)
Dim XV as GSMACM_GuruCode
Dim DD() as String
Dim DC as UInteger
For X as UInteger = 0 to 19
Select Case X
Case 0: XV = GSMACM_INT_SendCMDX(R_DeviceID, "GCAP", DD(), DC)
Case 1: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CRC?", DD(), DC)
Case 2: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CREG=2", DD(), DC)
Case 3: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CREG?", DD(), DC)
Case 4: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CSQ", DD(), DC)
Case 5: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CMGF?", DD(), DC)
Case 6: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CMGF=?", DD(), DC)
Case 7: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CMGF=1", DD(), DC)
Case 8: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CNMI?", DD(), DC)
Case 9: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CMGL=?", DD(), DC)
Case 10: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CMGL?", DD(), DC)
Case 11: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CMGL", DD(), DC)
Case 12: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CLIP?", DD(), DC)
Case 13: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CLIP=?", DD(), DC)
Case 14: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CLIP=1", DD(), DC)
Case 15: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CRC?", DD(), DC)
Case 16: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CRC=1", DD(), DC)
Case 17: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CRC?", DD(), DC)
' Case 18: XV = GSMACM_INT_SendCMDX(R_DeviceID, "CR=1", DD(), DC)
' Case 19: XV = GSMACM_INT_SendCMDX(R_DeviceID, "VCID?", DD(), DC)
End Select
Next
Return GSMACM_NoError
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_Close(ByRef RV_DeviceID as Integer) as GSMACM_GuruCode
MutexLock(GSMACM_INT_Mutex)
Dim TPtr as GSMACM_INT_Type Ptr = GSMACM_INT_GetPtr(RV_DeviceID)
If TPtr = 0 Then MutexUnLock(GSMACM_INT_Mutex): Return GSMACM_UnknownDeviceID
TPtr->V_ThreadExit = 1
Dim XThreadID as Any Ptr = TPtr->V_ThreadID
MutexUnLock(GSMACM_INT_Mutex)
'Dim XV as GSMACM_GuruCode
'Dim DD() as String
'Dim DC as UInteger
'XV = GSMACM_INT_SendCMDX(RV_DeviceID, "CALM=0", DD(), DC)
ThreadWait(XThreadID)
MutexLock(GSMACM_INT_Mutex)
TPtr = GSMACM_INT_GetPtr(RV_DeviceID)
If TPtr = 0 Then MutexUnLock(GSMACM_INT_Mutex): Return GSMACM_UnknownDeviceID
If TPtr->V_Prev <> 0 Then TPtr->V_Prev->V_Next = TPtr->V_Next
If TPtr->V_Next <> 0 Then TPtr->V_Next->V_Prev = TPtr->V_Prev
If GSMACM_INT_F = TPtr Then GSMACM_INT_F = TPtr->V_Next
If GSMACM_INT_L = TPtr Then GSMACM_INT_L = TPtr->V_Prev
DeAllocate(TPtr)
MutexUnLock(GSMACM_INT_Mutex)
Close #RV_DeviceID
RV_DeviceID = 0
Return GSMACM_NoError
End Function
'------------------------------------------------------------------------------------------------------------------------------------
Function GSMACM_RegistCallback(V_DeviceID as Integer, V_Event_SMS as Any Ptr = 0, V_Event_Call as Any Ptr = 0, V_Event_NetState as Any Ptr = 0, V_DelSMSonSMSEvent as Ubyte = 0) as GSMACM_GuruCode
MutexLock(GSMACM_INT_Mutex)
Dim TPtr as GSMACM_INT_Type Ptr = GSMACM_INT_GetPtr(V_DeviceID)
If TPtr = 0 Then MutexUnLock(GSMACM_INT_Mutex): Return GSMACM_UnknownDeviceID
With *TPtr
.V_Event_SMS = V_Event_SMS
.V_Event_Call = V_Event_Call
.V_Event_NetState = V_Event_NetState
.V_DelSMSonEvent = V_DelSMSonSMSEvent
End With
MutexUnLock(GSMACM_INT_Mutex)
Return GSMACM_NoError
End Function