PROSES SMS

-->

NAMA           : Ronal donatus situmorang

NPM               : 16420237

KELAS           : 3IBO2

                 Untuk mengetahui bagaimana proses kerja dari SMS yang sering dipakai dalam keperluan informasi untuk pemberitahuan yang dibutuhkan. Disini berisikan bagai mana program untuk SMS adalah sebagai berikut.

procedure TForm2. Button2Click(Sender: TObject);

var

  lMessage: TLazDeviceMessage;

begin

  Messaging.OnMessagingStatus := @HandleMessagingStatus;

  lMessage := Messaging.CreateMessage();

lMessage.destinationAddress.Text := Edit1.Text;

lMessage.Body := memo1.Text;

  Messaging.SendMessage(lMessage);

end;

untuk mendefinisikan event OnMessaging adalah sebagai berikut (jika tidak membutuhkan status SMS yang dikirim, anda bisa melewati proses ini)

procedure TForm2.HandleMessagingStatus(AMessage: TLazDeviceMessage;

  AStatus: TLazMessagingStatus);

begin

  label 6.Caption:= ‘[HandleMessagingStatus] ‘ +

    GetEnumName (TypeInfo(TLazMessagingStatus), integer(AStatus));

end;

Run dan build project di atas, dan build APK. Setelah jadi APK, tinggal diinstal di handphone/tablet Android Anda. Bila diinstal di emulator dan tidak bisa kirim SMS. Hasilnya adalah sebagai berikut :

Output apabila SMS tidak dapat dikirim.

Dikutip dari:

 http://saptaji.com/2012/12/19/mengirim-sms-dari-android-menggunakan-bahasa-pascal-via-ide-lazarus/