The Delphi Android programming blog has posted two threads, with code snippets, regarding SMS messaging with Delphi and Android. The first is How to send SMS with Delphi on Android The second is How to fetch SMS messages from the Android inbox using Delphi.
Send an SMS
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
<em>uses</em> <em> FMX.Helpers.Android,</em> <em> Androidapi.JNI.GraphicsContentViewText,</em> <em> Androidapi.JNI.Net,</em> <em> Androidapi.JNI.JavaTypes,</em> <em> Androidapi.JNI.Telephony;</em> <em> procedure SendSMS (target,messagestr:string);</em> <em> var</em> <em> smsManager: JSmsManager;</em> <em> smsTo: JString;</em> <em> begin</em> <em> smsManager:= TJSmsManager.JavaClass.getDefault;</em> <em> smsTo:= StringToJString(target);</em> <em> smsManager.sendTextMessage(smsTo, nil, StringToJString(messagestr), nil, nil);</em> <em> end;</em> |
Fetch SMS Messages
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
<em>uses</em> <em> SysUtils,</em> <em> FMX.Helpers.Android,</em> <em> Androidapi.JNI.GraphicsContentViewText,</em> <em> Androidapi.JNI.Net,</em> <em> Androidapi.JNI.JavaTypes,</em> <em> Androidapi.JNI.Telephony;</em> <em> function FetchSms:string;</em> <em> var</em> <em> cursor: JCursor;</em> <em> uri: Jnet_Uri;</em> <em> address,person,msgdatesent,protocol,msgread,msgstatus,msgtype,</em> <em> msgreplypathpresent,subject,body,</em> <em> servicecenter,locked:string;</em> <em> msgunixtimestampms:int64;</em> <em> addressidx,personidx,msgdateidx,msgdatesentidx,protocolidx,msgreadidx,</em> <em> msgstatusidx,msgtypeidx,msgreplypathpresentidx,subjectidx,bodyidx,</em> <em> servicecenteridx,lockedidx:integer;</em> <em> begin</em> <em> uri:=StrToJURI('content://sms/inbox');</em> <em> cursor := SharedActivity.getContentResolver.query(uri, nil, nil,nil,nil);</em> <em> addressidx:=cursor.getColumnIndex(StringToJstring('address'));</em> <em> personidx:=cursor.getColumnIndex(StringToJstring('person'));</em> <em> msgdateidx:=cursor.getColumnIndex(StringToJstring('date'));</em> <em> msgdatesentidx:=cursor.getColumnIndex(StringToJstring('date_sent'));</em> <em> protocolidx:=cursor.getColumnIndex(StringToJstring('protocol'));</em> <em> msgreadidx:=cursor.getColumnIndex(StringToJstring('read'));</em> <em> msgstatusidx:=cursor.getColumnIndex(StringToJstring('status'));</em> <em> msgtypeidx:=cursor.getColumnIndex(StringToJstring('type'));</em> <em> msgreplypathpresentidx:=cursor.getColumnIndex(StringToJstring('reply_path_present'));</em> <em> subjectidx:=cursor.getColumnIndex(StringToJstring('subject'));</em> <em> bodyidx:=cursor.getColumnIndex(StringToJstring('body'));</em> <em> servicecenteridx:=cursor.getColumnIndex(StringToJstring('service_center'));</em> <em> lockedidx:=cursor.getColumnIndex(StringToJstring('locked'));</em> <em> while (cursor.moveToNext) do begin</em> <em> address:=JStringToString(cursor.getString(addressidx));</em> <em> person:=JStringToString(cursor.getString(personidx));</em> <em> msgunixtimestampms:=cursor.getLong(msgdateidx);</em> <em> msgdatesent:=JStringToString(cursor.getString(msgdatesentidx));</em> <em> protocol:=JStringToString(cursor.getString(protocolidx));</em> <em> msgread:=JStringToString(cursor.getString(msgreadidx));</em> <em> msgstatus:=JStringToString(cursor.getString(msgstatusidx));</em> <em> msgtype:=JStringToString(cursor.getString(msgtypeidx));</em> <em> msgreplypathpresent:=JStringToString(cursor.getString(msgreplypathpresentidx));</em> <em> subject:=JStringToString(cursor.getString(subjectidx));</em> <em> body:=JStringToString(cursor.getString(bodyidx));</em> <em> servicecenter:=JStringToString(cursor.getString(servicecenteridx));</em> <em> locked:=JStringToString(cursor.getString(lockedidx));</em> <em> Result:=IntToStr(trunc(msgunixtimestampms/1000))+' '+address+' '+body;</em> <em> end;</em> <em> end;</em> |
Visit the Delphi Android programming blog and learn How to send SMS messages and fetch SMS messages using Delphi on Android.
Have Delphi Firemonkey questions? Ask and get answers on StackOverflow.
Send And Fetch SMS Messages With Delphi Firemonkey On Android by Delphi XE5 XE6 XE7 XE8 10 Seattle Berlin Firemonkey, Delphi Android, Delphi IOS is licensed under a Creative Commons Attribution 4.0 International License.
Mototrola Moto G
Kitkat OS
Not work Send SMS code
Do you have the Android manifest SMS permissions set?
Pingback: Anonymous
How do I delete a sms after I read it! HEEELLLPPPP
Sending more than 50 sms with this code. More on how we send sms.
??????
Pingback: Read SMS Messages With The JNI API In Delphi XE6 Firemonkey on Android | Delphi XE5 XE6 Firemonkey, Delphi Android, Delphi IOS
Who is the SMS provider? How much does it cost to send SMS messages?
The user’s device. However, much it costs to send SMS messages from the user’s device.