Cara Mengirim SMS di Android Menggunakan Delphi XE8

Tutorial kali ini kita akan belajar membuat sebuah aplikasi Android yang mampu mengirim sms langsung dari smartphone. Aplikasi ini akan kita buat menggunakan script Delphi XE8 yang berbasis bahasa Pascal. Berhubung sampai dengan versi Delphi XE8 belum ada komponen khusus yang dapat mengirim SMS, maka kita harus menulis sendiri script-nya. Kali ini kita akan memanfaatkan SMS Manager, yakni framework bawaan dalam sistem operasi Android yang bertugas menangani SMS yang masuk dan keluar. Jadi script kita nantinya cukup memerintahkan SMS Manager untuk mengirim (atau menerima) SMS, tidak lagi langsung menangani SMS menggunakan perintah AT COMMAND. Kalau misalnya kita menggunakan AT Command sebenarnya bisa aja, tapi nantinya akan langsung menghubungi hardware layer (modem).

Untuk menggunakan SMS Manager melalui Delphi XE8, kita harus menggunakan JNI (Java Native Interface) Bridge. JNI ini adalah semacam library penghubung antara Delphi yang menggunakan bahasa Pascal dengan Android yang native-nya menggunakan bahasa Java.  Tambahkan unit-unit JNI Bridge berikut di bawah statement ‘uses’ :

Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.Net,
Androidapi.JNI.JavaTypes,
Androidapi.JNI.Telephony

Berikutnya, buat semacam prosedur khusus untuk mengirim SMS sebagai berikut :

procedure KirimSMS (no_tujuan,pesan:string);
var
smsManager: JSmsManager;
smsTo: JString;

begin
 smsManager:= TJSmsManager.JavaClass.getDefault;
 smsTo:=StringToJString(no_tujuan);
 smsManager.sendTextMessage(smsTo, nil, StringToJString(pesan), nil, nil);
end;

Perhatikan pada baris [3] kita menciptakan sebuah instance baru dengan nama smsManager dari kelas JSmsManager. Melalui instance inilah kita dapat mengakses semua fungsionalitas SMS Manager untuk menangani SMS (misalnya untuk mengirim SMS pada baris [9] menggunakan method ‘sendTesxtMessage’).

Selanjutnya tinggal kita panggil procedure ‘KirimSMS’ di atas dengan sintaks:

KirimSMS (no_tujuan, pesan);

Untuk lebih jelasnya, ambil komponen TButton dari Component Pallete dan isikan event handler-nya dengan script di bawah:

procedure TForm1.Button1Click(Sender: TObject);
begin
 KirimSMS ('+6281xxxxxxx','ini sms dr android - delphi');
end;

Terakhir, Anda harus mendefinisikan ‘User Permission’ untuk mengirim SMS (android.permission.SEND_SMS) di file Android Manifest. Anda dapat langsung menambahkan user permission tersebut di file Android Manifest (<uses-permission android:name=”android.permission.SEND_SMS” />) atau untuk lebih mudahnya melalui menu Project-Options-User Permission. Kemudian cari dan centang pilihan ‘Send SMS’

Jalankan program langsung ke smartphone Android (tekan F9). Pastikan usb driver untuk smartphone Anda sudah terinstal ya, dan smartphone Anda sudah terbaca di kotak ‘target device’ di IDE Delphi XE8. Berikut ini adalah tampilan contoh aplikasi mengirim SMS di Android mengggunakan Delphi XE8:

Begitu Anda tekan tombol ‘Send SMS’ maka aplikasi akan langsung mengirim SMS ke no +6281xxxxxxx sesuai script di atas

Sekian tutorial kali ini, semoga bermanfaat. Untuk tutorial membaca SMS di Android dengan Delphi XE8 akan saya tulis kemudian. Keep stay tune on my blog 🙂