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. 🙂
a Technopreneur – writer – Enthusiastic about learning AI, IoT, Robotics, Raspberry Pi, Arduino, ESP8266, Delphi, Python, Javascript, PHP, etc. Founder of startup Indomaker.com
pengen tanya2 ni….
kok saya install pake codetyphon, bukan lazarus IDE ya hasilnya?
tapi Lazarus MAX ??
it sama gk ya?
mksh
selamat malam pak, mau tanya saya sudah buat program sms dari android, untuk isi smsnya saya gunakan edit1.text+edit2.text+edit3.text, tetapi hasil sms yang masuk kok seperti dienter ya pak, jadi isi dri edit1.text enter kemudian edit2.text dan seterusnya, mohon bantuannya pak, agar bisa menjadi satu kaliamat utuh. terimakasih sebelumnya.