-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
SMS Tutorial?
- Thread starter rfresh
- Start date
- Similar Threads Similar Threads
Sending a message is very simple: Basic4android - Phone
Intercepting messages is done with SmsInterceptor: Basic4android - Phone
You need to add a service to your project with this object.
Intercepting messages is done with SmsInterceptor: Basic4android - Phone
You need to add a service to your project with this object.
Upvote
0
Hmmm...I'm trying to use the code below, but I never get the SMS test message on my phone. I have SMS enabled and send and receive SMS messages everyday on my phone, so I know it works.
I have tried this code in my Service module and in an Activity, but I never get the SMS message on my phone.
Am I missing some more needed code?
(I use my own cell phone number in place of 3105551212)
I have tried this code in my Service module and in an Activity, but I never get the SMS message on my phone.
Am I missing some more needed code?
B4X:
AddPermission("android.permission.SEND_SMS") (in Manifest)
Dim Sms1 As PhoneSms
Sms1.Send(3105551212,"Android SMS test")
Log("SMS Sent")(I use my own cell phone number in place of 3105551212)
Upvote
0
I re-read the docs and it seems .Send wants the phone number as a string so I changed my code from this
to this
but I still didn't receive the SMS test message.
B4X:
Sms1.Send(3105551212,"Android SMS test")to this
B4X:
Sms1.Send("3105551212","Android SMS test")but I still didn't receive the SMS test message.
Upvote
0
I finally got the SMS messages to be received on my phone from my app. I guess my carrier had a delivery delay, but they are coming in ok now.
However, my app's SMS events are not firing.
My setup code is this:
However, my app's SMS events are not firing.
B4X:
'I get the message on my phone but this event does not write to the log:
Sub MessageReceived (From As String, Body As String) As Boolean
Log("+++++++++++++++++SMS From:" & From)
Log("+++++++++++++++++SMS Body:" & Body)
End Sub
'I can send out an SMS message ok and now receive it but these two events do not write to the log:
Sub SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
Log("+++++++++++++++++SmsSentStatus PhoneNumber:" & PhoneNumber)
Log("+++++++++++++++++SmsSentStatus SmsSentStatus:" & Success)
Log("+++++++++++++++++SmsSentStatus ErrorMessage:" & ErrorMessage)
Log("+++++++++++++++++SmsSentStatus Intent:" & Intent)
End Sub
Sub SmsDelivered (PhoneNumber As String, Intent As Intent)
Log("+++++++++++++++++SmsDelivered PhoneNumber:" & PhoneNumber)
End SubMy setup code is this:
B4X:
Dim Sms2Intercept As SmsInterceptor
Sms2Intercept.Initialize2 ("MessageReceived", 999)
Upvote
0
Resolved:
I discovered that my SMS receiver code needed to look like this. I didn't pick up anywhere that I had to add my dimmed interceptor onto the beginning of the events:
vs what I originally had:
I dimmed SI2 as
I discovered that my SMS receiver code needed to look like this. I didn't pick up anywhere that I had to add my dimmed interceptor onto the beginning of the events:
B4X:
Sub SI2_MessageReceived (From As String, Body As String) As Booleanvs what I originally had:
B4X:
Sub MessageReceived (From As String, Body As String) As BooleanI dimmed SI2 as
B4X:
Dim SI2 As SmsInterceptor
Upvote
0
On my Acer 10 inch Tablet with WiFi only, I installed one of the SMS apps from the Android Market. When I send an SMS message to that app (I'm using HeyWire with a supplied free phone number) the app shows it but the SMS Interceptor does not 'see it' come in.
Does the SMS Interceptor only work on phones with a native cellular connection and not devices with only wifi?
Upvote
0
Using Heywire...
@rfresh, I am interested in using the HeyWire service to send sms too! do you have any information on how to send the formatted sms msg to the heywire app?
@rfresh, I am interested in using the HeyWire service to send sms too! do you have any information on how to send the formatted sms msg to the heywire app?
Last edited:
Upvote
0
hi.i'm still new to this softwazre.and i'm developing an app that require the sms service.where should i put the "android.permission.SEND_SMS"?
Upvote
0
For some reason you appear as an unlicensed user in the forum. Please contact support@basic4ppc.com in order to fix it.
Upvote
0
B4X:
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim si, sr As SmsInterceptor
Dim SMSs As PhoneSms
End Sub
...
Sub Service_Create
'PE.Initialize("PE")
'si outgoing messages
si.Initialize2("si",998)
si.ListenToOutgoingMessages
'incoming messages
sr.Initialize2("sr",999)
End Sub
...
Sub sr_MessageReceived (From As String, Body As String) As Boolean
Log(From)
If From.Contains("880166533") Then
Log ("Odebrało się")
'Code of delete the message
End If
End Sub
...
Sub si_MessageSent (MessageId As Int)
Dim sm As SmsMessages
Dim res As List = sm.GetByMessageId(MessageId)
If res.Size > 0 Then
Dim msg As Sms
msg = res.Get(0)
Log(msg)
....outgoing messages work fine
but incoming not work... :sign0163:
Last edited:
Upvote
0
