How to send SMS with Delphi XE5 in Android

Sending SMS with Delphi XE5 in Android

Delphi XE5 provides a comprehensive framework for developing cross-platform mobile applications, including the ability to send SMS messages on Android devices. This guide will walk you through the process of sending SMS messages from your Delphi XE5 Android applications.

Prerequisites

• Delphi XE5 installed and configured.
• Android SDK installed and configured.
• An Android device or emulator.

Steps to Send SMS

1. Create a New Project

Start by creating a new FireMonkey Mobile application in Delphi XE5.

2. Add the SMS Component

Delphi XE5 provides a built-in SMS component for sending messages. To access it:

• Go to the “Tool Palette” and find the “Mobile” tab.
• Drag and drop the “TMSMS” component onto your form.

3. Configure the SMS Component

To configure the SMS component for sending:

• Set the “Number” property to the recipient’s phone number.
• Set the “Message” property to the message content.

4. Send the SMS Message

You can send the SMS message using the “Send” method of the “TMSMS” component:

TMSMS1.Number := '+1234567890'; // Replace with actual phone number
TMSMS1.Message := 'Hello from Delphi!';
TMSMS1.Send;

5. Handle Errors

Sending SMS messages can sometimes fail due to network issues or other reasons. To handle errors:

• Use the “OnSendComplete” event to check the “Success” property of the “TMSMS” component.
• Display an appropriate error message to the user if the SMS failed to send.

procedure TForm1.TMSMS1SendComplete(Sender: TObject; Success: Boolean);
begin
  if not Success then
  begin
    ShowMessage('SMS failed to send.');
  end;
end;

Example Code

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Objects, FMX.Graphics, FMX.Platform, FMX.Mobile,
  TMSMSM;

type
  TForm1 = class(TForm)
    TMSMS1: TMSMS;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  TMSMS1.Number := '+1234567890'; // Replace with actual phone number
  TMSMS1.Message := 'Hello from Delphi!';
  TMSMS1.Send;
end;

end.

Additional Considerations

• **Permissions:** Ensure your app has the necessary permissions to access the SMS sending functionality. Add the following line in your AndroidManifest.xml file:

• **Message Length:** SMS messages have a maximum length of 160 characters. If you need to send longer messages, consider using MMS (Multimedia Messaging Service).
• **Carrier Charges:** Be aware of potential carrier charges for sending SMS messages.