Membuat Software Autoreply SMS dengan Delphi

Yang pada mau bikin software autoreply SMS dengan Delphi, yuk kita belajar bareng. Kegunaan sistem autoreply ini ada banyak sekali tergantung implementasinya, tapi intinya adalah untuk memberikan respon secepat mungkin kepada pengirim SMS  sesuai dengan keyword SMS yang diberikan. Pada artikel kali ini saya ingin member contoh, bagaimana membuat software autoreply SMS, yang fungsinya memudahkan pemilik kendaraan bermotor yang ingin mengetahui kapan masa berlaku STNK-nya habis. Cukup dengan mengirimkan keyword nomor polisi STNK Anda ke nomor hotline SMS, maka Anda akan langsung mendapat reply masa berlaku STNK Anda.

Siapkan database MySQL dengan nama ‘dbnopol’ dan tabel dengan nama ‘tabnopol’. Define tabel ‘tabnopol’ dengan  dua field, yakni ‘nopol’ dan ‘deadline’. Field ‘nopol’ nanti akan kita isi dengan nomor-nomor STNK dan field ‘deadline’ akan berisi data masa berlakunya. Intinya, tabel ‘tabnopol’ akan menyimpan seluruh data nomor polisi/STNK beserta masa berlakunya. Bagaimana cara instalasi database MySQL dan koneksinya dengan Delphi, dapat Anda baca disini.

Sebelum kita membuat sebuah program, alangkah baiknya jika mendefinisikan fungsi/tujuan dibuatnya program ini. Kira-kira program yang nanti kita buat, fungsinya adalah “Jika ada SMS masuk dengan keyword tertentu, ceklah di database ‘dbnopol’. Jika ada data yang dimaksud, reply data tersebut kepada pengirim SMS’. Kalau statement ini kita buat flowchart-nya, kurang lebih seperti pada gambar di bawah.

Mari kita coba implementasikan flowchart di atas dalam program Delphi. Buat form baru, dan siapkan komponen beserta properties-nya sebagai berikut :

Atur tata letak komponen seperti pada gambar di bawah:

Kemudian masukkan source code berikut, berturut-turut untuk button1, button2 dan button3

procedure TForm1.Button1Click(Sender: TObject);
begin
 comport1.ShowSetupDialog;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if ComPort1.Connected then
 begin
  ComPort1.Close;
  button2.Caption:='Open';
 end
 else
 begin
  ComPort1.Open;
  button2.Caption:='Close';
  ComPort1.WriteStr('at+cmgf=1'+#13#10);
  ComPort1.WriteStr('at+cpms="SM"'+#13#10);
  ComPort1.WriteStr('at+cscs="GSM"'+#13#10);
  ComPort1.WriteStr('at+cnmi=1,1,2,1,0'+#13);
 end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 zquery1.Open;
end;

Button1 berfungsi untuk pengaturan parameter serial (COM) port, Button2 berguna untuk inisialisasi koneksi dengan modem/handphone melalui virtual serial port dan Button3 adalah untuk membuka koneksi dengan database MySQL.
Kemudian masukkan source code berikut di event OnRxChar milik komponen ComPort1. Source code ini berfungsi untuk handling event SMS masuk dan keluar.

procedureTForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
varStr: String;
begin
 memo1.clear;ComPort1.ReadStr(Str, Count);
 Memo1.Text := Memo1.Text + Str;
end; 

Dan terakhir, masukkan source code berikut ke dalam event OnChange milik komponen Memo1. Source code inilah yang sebenarnya berfungsi sebagai program utama dalam program autoreply SMS ini.

procedure TForm1.Memo1Change(Sender: TObject);
var a,b,c,d:integer;kar_awal,kar_akhir:integer;
    s,status,pengirim,tanggal,waktu,isi:string;
begin
 a:=pos ('+CMTI',memo1.Text);
 if  a <> 0 then
 begin
  b:=posex (',',memo1.Text,a+1);
  c:=posex (#13#10,memo1.Text,b+1);
  s:=copy (memo1.Text,b+1,c-b-1);
  ComPort1.WriteStr('at+cmgr='+s+#13#10);
 end;

 d:=pos ('+CMGR',memo1.Text);
 if  d <> 0 then
 begin
  kar_awal:=pos ('"',memo1.Text);
  kar_akhir:=posex ('"',memo1.Text,kar_awal+1);
  status:=copy(memo1.Text,kar_awal+1,kar_akhir-kar_awal-1);
  
  kar_awal:=posex ('"',memo1.Text,kar_akhir+1);
  kar_akhir:=posex ('"',memo1.Text,kar_awal+1);
  pengirim:=copy(memo1.Text,kar_awal+1,kar_akhir-kar_awal-1);

  kar_awal:=posex ('"',memo1.Text,kar_akhir+1);
  kar_akhir:=posex (',',memo1.Text,kar_awal+1);
  tanggal:=copy(memo1.Text,kar_awal+1,kar_akhir-kar_awal-1);

  kar_awal:=kar_akhir;
  kar_akhir:=posex ('"',memo1.Text,kar_awal+1);
  waktu:=copy(memo1.Text,kar_awal+1,kar_akhir-kar_awal-1);
  
  kar_awal:=posex (#13#10,memo1.Text,kar_akhir+1);
  kar_akhir:=posex (#13#10,memo1.Text,kar_awal+1);
  isi:=copy(memo1.Text,kar_awal+2,kar_akhir-kar_awal-2);
  
  zquery1.SQL.Text:='select deadline from tabnopol where nopol="'+isi+'"';
  zquery1.ExecSQL;
  zquery1.Open;
  zquery1.Refresh;

  try
   ComPort1.WriteStr('at+cmgs="'+pengirim+'"'+#13#10);
   ComPort1.WriteStr(zquery1.FieldValues['deadline']);
   ComPort1.WriteStr(#26);
  except
   on E: Evarianttypecasterror do

  begin
   ComPort1.WriteStr('at+cmgs="'+pengirim+'"'+#13#10);
   ComPort1.WriteStr('Maaf nopol Anda tidak terdaftar');
   ComPort1.WriteStr(#26);
  end;
end;
end;
end;

Penjelasan source code di atas :

Potongan kode di bawah dimaksudkan untuk mengetahui jika ada SMS masuk yang diindikasikan dengan munculnya karakter ‘+CMTI’

a:=pos ('+CMTI',memo1.Text);
if  a <> 0 then
begin
 b:=posex (',',memo1.Text,a+1);
 c:=posex (#13#10,memo1.Text,b+1);
 s:=copy (memo1.Text,b+1,c-b-1);
 ComPort1.WriteStr('at+cmgr='+s+#13#10);
end;

Potongan kode di bawah dimaksudkan untuk me-‘render’ informasi yang ada dalam SMS yang masuk ke modem/handphone. Informasi yang bisa didapatkan antara lain : status SMS, nomor pengirim, tanggal dan waktu diterima SMS, dan yang terakhir adalah isi SMS itu sendiri.

d:=pos ('+CMGR',memo1.Text);if  d <> 0 then
begin
 kar_awal:=pos ('"',memo1.Text);
 kar_akhir:=posex ('"',memo1.Text,kar_awal+1);
 status:=copy(memo1.Text,kar_awal+1,kar_akhir-kar_awal-1); 

 kar_awal:=posex ('"',memo1.Text,kar_akhir+1);
 kar_akhir:=posex ('"',memo1.Text,kar_awal+1);
 pengirim:=copy(memo1.Text,kar_awal+1,kar_akhir-kar_awal-1);

 kar_awal:=posex ('"',memo1.Text,kar_akhir+1);
 kar_akhir:=posex (',',memo1.Text,kar_awal+1);
 tanggal:=copy(memo1.Text,kar_awal+1,kar_akhir-kar_awal-1);

 kar_awal:=kar_akhir;
 kar_akhir:=posex ('"',memo1.Text,kar_awal+1);
 waktu:=copy(memo1.Text,kar_awal+1,kar_akhir-kar_awal-1);

 kar_awal:=posex (#13#10,memo1.Text,kar_akhir+1);
 kar_akhir:=posex (#13#10,memo1.Text,kar_awal+1);
 isi:=copy(memo1.Text,kar_awal+2,kar_akhir-kar_awal-2);

Kalau yang ini, Anda tentunya sudah bisa menduganya sendiri, kan? Potongan source kode di bawah dimaksudkan untuk mengecek apakah keyword SMS sesuai dengan data di database atau tidak. Jika ada data yang dimaksud akan di-reply data masa berlaku nopol STNK, sedang jika tidak ada data yang dimaksud akan di-reply ‘Maaf nopol Anda tidak terdaftar’.

zquery1.SQL.Text:='select deadline from tabnopol where nopol="'+isi+'"';
zquery1.ExecSQL;zquery1.Open;
zquery1.Refresh;
try
 ComPort1.WriteStr('at+cmgs="'+pengirim+'"'+#13#10);
 ComPort1.WriteStr(zquery1.FieldValues['deadline']);
 ComPort1.WriteStr(#26);

except
on E: Evarianttypecasterror do

begin
 ComPort1.WriteStr('at+cmgs="'+pengirim+'"'+#13#10);
 ComPort1.WriteStr('Maaf nopol Anda tidak terdaftar');
 ComPort1.WriteStr(#26);
end;

end;

Running-lah program yang telah Anda buat tadi, dan coba koneksikan dengan modem yang terhubung ke computer dengan menekan tombol ‘Setting’ dan ‘Open COM’. Jangan lupa tekan tombol ‘Open db’ untuk membuka koneksi dengan database MySQL. Jika program Anda benar, seharusnya akan muncul tampilan sebagai berikut.

Keterangan : untuk data tabel di atas diisi secara manual, untuk percobaan (misal: nopol K7777JB, deadline 7/30/2011).

Sekarang coba Anda SMS dengan isi SMS ‘K7777JB’ ke nomor ‘hotline’ (nomor di dalam modem yang terhubung computer), dan perhatikan apakah Anda sudah mendapat reply dari nomor hotline. Coba variasikan isi SMS dengan keyword lain, untuk menguji program ini.

Jika ada yang ingin didiskusikan, bisa mengisi komentar di bawah. Kalo ada yang mau pesan program sama saya juga boleh 🙂 Happy programming 🙂