Questions about TGSM
Submitted by grant@sitedoc.com.au on Fri, 2006-11-03 17:48.
I am using your TGSM component to send sms text message notification of critical error conditions from a data logger that is monitoring the condition of some railway track.
Could you tell me if the following code snippet (at the bottom of the email) is the correct way in which to send plain text messages with your TGSM and TComm components.
Also couple of questions:
From the TGSM and or TComm componets how can I,
-
extract error code information ?
obtain a unique id number for the sms message so that I can match the message stored in the GSM device with a copy of the message that is stored in a data base. I need to be able to update the data base record of the sms message as sent with its associated delivery details and or error code details.
-
the time stamp of when the user read the sms text message
details of if the sms message was actually delivered without any error
delivery error details if indeed the delivery failed
-
PID,
MR,
VP,
VPTZ,
VPF,
SRR,
RD,
RP,
UDHI,
WideUD,
PDUType,
MTI,
DCS,
PDU
SMS := TSMSSubmit.Create; try for T := 0 to TxtMsg_List.Count - 1 do begin TempMsg := TstSmsMsgPtr(TxtMsg_List.Items[T]); if TempMsg^.Status = smsStoreForSend then begin TempMsg^.MsgStoreID := Get_AutoInc; TempMsg^.Time_Sent := Now(); SMS.GSM := GSMPhone; SMS.DA := TempMsg^.PhoneNum; SMS.UD := TempMsg^.MessageText; try TempMsg^.Status := smsSending; GSMPhone.SendSMS(SMS); TempMsg^.Status := smsSent; except TempMsg^.Status := smsErr; end; end; end; finally SMS.Free; end;