Tutorial Delphi

Saat ini aplikasi SMS gateway rata-rata telah dilengkapi dengan fitur auto reply. Hal ini tentu sangat bermanfaat guna mempermudah proses transaksi karena dapat kita terapkan pada aplikasi pendaftaran berbasis sms, pengiriman informasi secara berkala menggunakan sms otomatis dan semacamnya. Berikut saya sharing bagaimana membuat sms auto reply dengan gammu dan delphi.

Sebelum kita membahas lebih jauh tentang bagaimana membuat SMS auto reply dengan gammu dan delphi alangkah lebih baiknya jika kita mengetahui terlebih dahulu bagaimana teknik yang digunakan gammu dalam menerima dan mengirim sms. Berikut adalah syarat yang harus dipahami dalam membuat auto reply menggunakan gammu


1. Ada dua cara yang saya ketahui tentang bagaimana gammu mengirim sms. Cara pertama yaitu dengan menggunakan perintah CLI dan cara yang kedua dengan menginputkan data pada tabel outbox (Service gammu harus berjalan). Pada contoh ini kita akan menggunakan cara kedua.

2. bagaimana kita bisa mengetahui ada sms masuk ? dalam tabel inbox milik gammu terdapat field Processed yang bernilai true atau false. hal itu dapat kita manfaatkan dalam pemrosessan pesan masuk secara berkala menggunakan timer. Jika pesan telah diproses maka nilainya akan diubah menjadi True jika nilai false maka itulah sms masuk. :)

3. Selanjutnya Bagaimana membuat proses tersebut berjalan secara terus menerus sehingga jika ada sms masuk maka otomatis program atau aplikasi akan langsung memprosesnya. dalam hal ini kita dapat memanfaatkan timer yang ada di delphi.

Pada contoh ini, kita akan membuat sebuah program penyewaan lapangan futsal dimana program mengharuskan kepada user yang hendak menyewa untuk mengirimkan format pesan sesuai dengan format yang telah ditentukan yaitu Nama#Jam_Main#No_Lap#Jam_Selesai sudah saya posting sebelumnya disini. Berikut Contoh Coding yang saya gunakan pada Timer

procedure TForm1.Timer1Timer(Sender: TObject);
var
  sl: TStringList;
  status : string;
begin
  status :='False';
  QAksi.Close;
  QAksi.SQL.Clear;
  QAksi.SQL.Add('select * from inbox where Processed="'+status+'"');
  QAksi.ExecSQL;
  QAksi.Open;
  QAksi.First;
  // Jika ada SMS dengan Status False
  if QAksi.RecordCount>0 then
  begin
  karakter:='#';
  sl:=TStringList.Create;
  SplitStr(QAksi['pesan'],karakter,sl);
  if (sl.Count <= 1) or (sl.Count <> 4) then
  begin
  // Simpan Ke Tabel Outbox
  ADOquery2.Close;
  // Simpan ke Tabel Outbox
  ADOquery2.SQL.Clear;
  ADOquery2.SQL.Add('Insert into outbox');
  ADOquery2.SQL.Add('([pengirim] , [tujuan], [pesan])');
  ADOquery2.SQL.Add('Values (:pengirim, :tujuan, :pesan)');
  ADOquery2.Parameters.ParamByName('pengirim').Value := '088907890098';
  ADOquery2.Parameters.ParamByName('tujuan').Value := QAksi['pengirim'];
  ADOquery2.Parameters.ParamByName('pesan').Value := 'Format Pesan Yang Anda Kirim Salah';
  ADOquery2.ExecSQL;
  ADOquery2.SQL.Clear;
  ADOquery2.SQL.Text := 'Select * from outbox';
  ADOquery2.Open;
  // Update Data Pada Tabel Inbox
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('UPDATE inbox SET');
  ADOQuery1.SQL.Add('Processed=?');
  ADOQuery1.SQL.Add('WHERE ID=?');
  ADOQuery1.Parameters[0].Value := 'True';
  ADOQuery1.Parameters[1].Value := QAksi['ID'];
  ADOQuery1.ExecSQL;
  ADOQuery1.SQL.Clear;
  ADOquery1.SQL.Text := 'Select * from inbox';
  ADOquery1.Open;
  end else
  begin
  // Simpan ke Tabel Pendaftar
  ADOquery3.Close;
  ADOquery3.SQL.Clear;
  ADOquery3.SQL.Add('Insert into pendaftar');
  ADOquery3.SQL.Add('([nama] , [jam_main], [no_lapangan], [jam_akhir])');
  ADOquery3.SQL.Add('Values (:nama, :jam_main, :no_lapangan, :jam_akhir)');
  ADOquery3.Parameters.ParamByName('nama').Value := sl[0];
  ADOquery3.Parameters.ParamByName('jam_main').Value := sl[1];
  ADOquery3.Parameters.ParamByName('no_lapangan').Value := sl[2];
  ADOquery3.Parameters.ParamByName('jam_akhir').Value := sl[3];
  ADOquery3.ExecSQL;
  ADOquery3.SQL.Clear;
  ADOquery3.SQL.Text := 'Select * from pendaftar';
  ADOquery3.Open;
  // Simpan Ke Tabel Outbox
  ADOquery2.Close;
  ADOquery2.SQL.Clear;
  ADOquery2.SQL.Add('Insert into outbox');
  ADOquery2.SQL.Add('([pengirim] , [tujuan], [pesan])');
  ADOquery2.SQL.Add('Values (:pengirim, :tujuan, :pesan)');
  ADOquery2.Parameters.ParamByName('pengirim').Value := '088907890098';
  ADOquery2.Parameters.ParamByName('tujuan').Value := QAksi['pengirim'];
  ADOquery2.Parameters.ParamByName('pesan').Value := 'Selamat, Anda Sudah Terdaftar!';
  ADOquery2.ExecSQL;
  ADOquery2.SQL.Clear;
  ADOquery2.SQL.Text := 'Select * from outbox';
  ADOquery2.Open;
  // Update Tabel Inbox
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('UPDATE inbox SET');
  ADOQuery1.SQL.Add('Processed=?');
  ADOQuery1.SQL.Add('WHERE ID=?');
  ADOQuery1.Parameters[0].Value := 'True';
  ADOQuery1.Parameters[1].Value := QAksi['ID'];
  ADOQuery1.ExecSQL;
  ADOQuery1.SQL.Clear;
  ADOquery1.SQL.Text := 'Select * from inbox';
  ADOquery1.Open;
  end;
  sl.Free;
  QAksi.Next;
  end; // End While
  end;

Jika ada sms masuk dengan format seperti tersebut diatas, maka program akan memecah isi string tersebut dengan batasan # kemudian hasilnya akan disimpan kedalam tabel pendaftar lalu user akan dikirmkan sebuah pesan bahwa "pendaftarann berhasil" sedangkan jika format pesannya salah maka program akan mengirim pesan "format pesan anda salah" seperti gambar diatas.

Pada contoh ini saya menggunakan database access. Silahkan anda pahami logika penerapannya kemudian implementasikan pada database gammu milik anda. Download Projeknya disini.