Official StoreTekan tombol di atas untuk membeli semua alat dan bahan eksperimen di web ini

Mengirim SMS dari Android menggunakan bahasa Pascal (via IDE Lazarus)

Berikut ini adalah tutorial tentang bagaimana membuat aplikasi kirm SMS langsung dari hape Android. Source code-nya menggunakan bahasa Pascal dan di-develop menggunakan IDE (Integrated Development System) lazarus. Langsung saja ya, buka IDE lazarus, bikin project baru, atur peletakan komponen sepert gambar di bawah

 

Double click tombol ‘Kirim SMS’ dan isikan source code 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;

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

procedure TForm2.HandleMessagingStatus(AMessage: TLazDeviceMessage;

  AStatus: TLazMessagingStatus);

begin

  label6.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. Kalo diinstal di emulator  mah ngga bisa kirim SMS hehehe. Hasilnya adalah sebagai berikut :

 

Pembaca yang budiman, artikel ini sebenarnya saya tujukan untuk menggambarkan betapa mudahnya membuat aplikasi Android berbasis object Pascal. Just simple stupid, kata orang barat. Tentunya Anda harus sudah mengenal pemrograman object Pascal menggunakan Delphi atau Lazarus. Untuk proses pemrogramannya sebenarnya tidak sesimpel di atas, tapi jangan kuatir saya akan memberikan tutorialnya untuk Anda. Ohya, buku saya ‘Pemrograman Android dengan Object Pascal’, akan terbit sekitar pertengahan bulan januari 2013 ya, So don’t miss it. 🙂

Incoming search terms:

android kirim sms bahasa pascal, sms gateway lazarus, mengirim sms android, Mengirim pasan lewat aplikasi pascal, membuat sms gateway lazarus, membuat aplikasi yang bisa kirim sms, membuat aplikasi android sms gateway send double sms, membuat aplikasi andoid berbasis sms, apl coding bahasa pascal di android, sms via aplilasi pascal
2 Comments

Add a Comment

Your email address will not be published. Required fields are marked *

error: Content is protected !!