B4J Question Send MMS or SMS

[Josias]

HI all,

Any suggestions on how I can send a SMS or MMS from a B4J app?

What is needed to do so?

Any software libraries required?

Thanks for looking.

 

[f0raster0]

+1

 

[KMatle]

There are several providers who offer a rest api. Via OkHttpUtils you can send a job. Browse the www for those providers.

 

[Erel]

I used this service in the past: https://www.clickatell.com/

 

[lucas555]

I use this service.

Swift SMS Gateway

smsgateway.ca

The price is very low

Sub SMSSend (PhoneNo As String,Message As String)
Dim strTosend As String
    strTosend="CellNumber="& PhoneNo &"&MessageBody="&Message&"&AccountKey=your_account_key"

Dim j As HttpJob
j.Initialize("",Me)
 
j.Postbytes("http://smsgateway.ca/sendsms.aspx?",strTosend.GetBytes("utf-8")  )
Wait For (j) JobDone(j As HttpJob)

If j.Success=True Then
    'do something'   
    j.Release
Else
    'do something'   

    j.Release
End If   
    
End Sub

 

[Josias]

THnx for this. I'll give it a go.

 

[Jmu5667]

We wrote our own app in B4A and the B4J app connects to phone using a socket connection. We can send large text messages, and can send about 100 per minute. We did this for our customer base, and it has proved very successful. The other benefit is that it the default SMS app so it can delete messages. If it fully bi-directional, so we can receive inbound SMS messages and forward them to the B4J server app for processing.

 

[Didier9]

I googled it, I got a number of useful links:

Top 8 Best SMS APIs (for Developers in 2022) [52+ Reviewed]

We go over the best 8 text messaging/SMS APIs for you to integrate into your application. Sign up today at RapidAPI.com for Free to begin testing!

rapidapi.com

 

[Josias]

Thnx all, I was thinking of using a mobile phone to send/receive SMS's as SMS's can be for free in Australia (depends on your contract). There are paid services that charge between 3.7c and 11c. I am currently going to run with www.smsbroadcast.com.au. Their initial cost is 3.7c.

I tried Swift SMS Gateway and it also worked without any problem. They are in Canada. Charges aprox 10c.

Erel previously posted the following code, it works beautifully. It requires jHttpUtils2

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   'MainForm.RootPane.LoadLayout("1") 'Load the layout file.
   MainForm.Show
   Dim j As HttpJob
   j.Initialize("sms", Me)
   j.Download2("http://api.clickatell.com/http/sendmsg", _
     Array As String("user", "xxx", _
       "password", "xxx", _
       "api_id", "xx", _
       "to", "xxx", _
       "text", "xxx"))
End Sub

Sub JobDone(Job As HttpJob)
   Log("Success: " & Job.Success)
   If Job.Success Then
     Log(Job.GetString)
   End If
   Job.Release
End Sub

 

[DonManfred]

Sub AppStart (Form1 As Form, Args() As String)

Please use [CODE]code here...[/CODE] tags when posting code.