Membuat Notifikasi di Android dengan Delphi XE8

Kadang kita perlu membuat notifikasi dalam aplikasi Android kita untuk memberitahu user bahwa telah terjadi ‘sesuatu’ dalam aplikasi. ‘Sesuatu’itu dapat berupa informasi baru, perubahan status, atau mungkin hasil pengolahan data yang dihasilkan aplikasi. Notifikasi ini nantinya akan ditampilkan di bagian atas layar Android (seperti halnya jika ada notifikasi pesan baru dari SMS/Email/WhatsApp) dan di jendela scroll down Android (jendela ketika kita menggulung ke bawah di home screen Android).

Untuk membuat notifikasi di Android menggunakan Delphi XE8 caranya cukup mudah. Dalam beberapa menit Anda akan dengan mudah membuatnya, karena di Delphi XE8 sudah menyediakan komponen khusus untuk menangani event notifikasi ini.

Adalah komponen TNotificationCenter yang berada di tab ‘Service’ di Component Pallete yang berfungsi untuk menangani proses notifikasi di Delphi XE8. Cukup drag and drop komponen ini ke form designer dan tuliskan script berikut untuk membuat notifikasi di Android. Tambahkan pula satu komponen Button yang nantinya jika ditekan akan memunculkan notifikasi di home screen Android. Ubah properti ‘Text’ milik komponen menjadi ‘Noitf Now’ di jendela Object Inspector.

Berikut ini adalah event handler untuk event onClick komponen Button1

procedure TForm1.Button1Click(Sender: TObject);
var
  Notification: TNotification;

begin
  if NotificationCenter1.Supported then
  begin
    Notification := NotificationCenter1.CreateNotification;
    try
      Notification.Name := 'MyNotif';
      Notification.AlertBody := 'Ini Notifku!';
      Notification.FireDate := Now;
      NotificationCenter1.ScheduleNotification(Notification);

    finally
      Notification.DisposeOf;
    end;
  end

end;

Berikutnya tambahkan satu komponen Button lagi di form designer. Ubah properti ‘Text’ komponen ini menjadi ‘Notif later’ melalui jendela Object Inspector. Tombol yang kedua ini kita rancang supaya menampilkan notifikasi  3 detik setelah tombol ditekan. Double click komponen Button2 dan isikan event onClick komponen ini sebagai berikut :

procedure TForm1.Button2Click(Sender: TObject);
var
  Notification: TNotification;

begin
  if NotificationCenter1.Supported then
  begin
    Notification := NotificationCenter1.CreateNotification;
    try
      Notification.Name := 'MyNotif';
      Notification.AlertBody := 'Ini notifku - 3 dtk';

      //3 detik
      Notification.FireDate := Now + EncodeTime(0,0,3,0);

      //kirim Notif
      NotificationCenter1.ScheduleNotification(Notification);

    finally
      Notification.DisposeOf;
    end;
  end

end;

Silahkan compile dan run project di atas (F9). Saya sarankan gunakan langsung device Android daripada menggunakan emulator. Jika sudah, hasilnya akan tampak seperti gambar di bawah:

Saat  tombol ‘Notif Now’ ditekan

Tampilan home screen Android (gulung layar ke bawah dulu)

Terlihat ada tulisan notifikasi ‘Ini Notifku!’ di jendela Android sesuai dengan script yang Anda tulis.

Bagaimana? Mudah bukan? Script di atas hanya sekedar contoh penggunaan komponen TNotificationCenter saja. Tentunya akan sangat mudah diintegrasikan dalam aplikasi Anda, misalnya untuk pengingat/reminder jadwal, ada pesan/chat dari user lain, adanya input sensor dengan nilai tertentu, dll. Semuanya tergantung pada kebutuhan aplikasi Anda masing-masing. Selamat mencoba…

Saptaji, ST. M.Tr.T

a Technopreneur – writer – Enthusiastic about learning AI, IoT, Robotics, Raspberry Pi, Arduino, ESP8266, Delphi, Python, Javascript, PHP, etc. Founder of startup Indomaker.com