Pemprograman SMS Gateway

Di tutorial sebelumnya Anda sudah belajar program untuk mengkonversi Teks ke PDU atau sebaliknya. Maka Anda sudah 50% mengerjakan program SMS Gateway. Selanjutnya program konversi PDU digunakan untuk membaca SMS masuk dari PDU menjadi teks dan teks yang digunakan untuk mengetahui request apa yang diinginkan oleh pengirim. Untuk mengetahui informasi apa yang diinginka maka kita harus melakukan parsing teks SMS yang masuk.

Buatlah program parsing teks, yaitu dengan menggunakan kombinasi fungsi Copy dan Pos. contohnya kita ingin mendapatkan no mahasiswa dari SMS : ‘’IPK 09523419’ maka linsting programnya adalah :

Procedure ParsingText;

var p, sms_terima:string;

posisi:integer;

begin

sms_terima = ‘IPK 09523419′;

posisi:=pos(‘ ‘,sms_terima);

p:=copy(Edit1.Text,5,length(sms_terima) – posisi);

end;

Maka hasil dari program tersebut adalah p = ‘ 09523419 ’  (no mahasiswa).

Setelah mendapatkan no mahasiswa, kemudian carikan IPK no mahasiswa tersebut di database mahasiswa. Hasil pencariannya dikirim lewat SMS ke nomor HP pengirim. Maka jadilah program SMS Gateway.
Program SMS Gateway dapat digunakan untuk berbagai keperluan seperti : untuk mendapatkan informasi akademik (contoh IPK), untuk tracking system, untuk mengetahui stok barang, dan implementasi lainnya. Sederhana bukan cara membuatnya !!!

Untuk program SMS Gateway yang berhasil dibuat dapat dilihat disini ( Mobile Smart )

Selamat mencoba …….

Filed under: SMS Gateway, delphi, SMS Gateway