Dasar Dasar Menerima Data SMS Dengan Delphi

Ada dua macam cara menerima dan membaca SMS dengan Delphi, yaitu dengan teknik ‘polling’ dan ‘live/real time’. Kedua teknik tersebut dapat Anda baca selengkapnya di artikel saya sebelumnya. Pada artikel kali ini kita akan mencoba belajar  dasar – dasar penerimaan data SMS melalui komponen CPORT sebelum mengimplementasikan teknik – teknik tersebut ke dalam program Delphi.

Sebelum masuk ke proses handling penerimaan SMS, ada baiknya kita refresh kembali tentang konsep komunikasi serial dengan component CPORT di Delphi. Jadi tugas komponen CPORT adalah menangani komunikasi serial dengan device lain melalui port serial di computer (COM Port). Khusus untuk penerimaan data serial, komponen CPORT prosesnya ditangani oleh event OnRxChar. Proses ini berlaku umum, jadi semua data serial dari device lain yang masuk melalui port serial (COM Port) akan ditangani oleh even OnRxChar ini, termasuk proses komunikasi serial dengan modem GPRS/3G. Untuk itu, coba Anda tulis beberapa baris program berikut untuk proses handling penerimaan data serial di even OnRxchar. Caranya dari jendela Object Inspector klik tab event kemudian cari OnRxChar dan double click kolom di sebelah kanannya, kemudian isikan script berikut di dalamnya.

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);

var

Str: String;

begin

ComPort1.ReadStr(Str, Count);

Memo1.Text := Memo1.Text + Str;

end;

Kemudian tambahkan komponen memo (dengan nama memo1) di form kerja Anda. Komponen Memo1  ini tugasnya adalah sebagai buffer penerimaan data serial yang masuk, karena data serial yang diterima adalah per karakter bukan keseluruhan data secara langsung. Untuk itulah diperlukan satu variabel sebagai buffer untuk menyimpan data serial yang masuk satu persatu. Untuk keperluan ini, saya memilih komponen Memo sebagai ‘variabel’ buffer-nya agar kita dapat langsung melihat data serial yang masuk.

Kemudian tambahkan komponen Button dua buah dan atur komposisinya sesuai gambar di atas. Double click tombol ‘Setting’ dan masukkan kode program di bawah

procedure TForm1.Button1Click(Sender: TObject);

begin

comport1.ShowSetupDialog;

end;

Dan tambahkan baris program berikut ke dalam tombol ‘Open’

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+cscs=”GSM”‘+#13#10);

end;

end;

Sekarang kita running program di atas, dan lihat hasilnya. Pasang modem Anda, dan klik tombol ‘Setting’, dan pilih COM port dimana modem berada. Setelah Anda klik tombol ‘Open’, maka komunikasi dengan modem sudah berjalan, dan setiap data yang masuk akan terbaca di kotak Memo.

Sampai dengan langkah ini kita sudah bisa melihat ada data yang masuk, tapi masih belum bisa membaca isi SMS. Untuk membaca isi SMS, Anda harus memerintahkan modem untuk ‘memberikan’ data sms kepada kita dengan AT command  : at+cmgr (untuk melihat satu sms di indeks memori tertentu) atau at+cmgl (untuk melihat semua sms di semua indeks memori). Untuk program Delphi yang digunakan untuk membaca isi SMS dapat Anda pelajari pada artikel selanjutnya

bersambung…..