Official StoreTekan tombol di atas untuk membeli semua alat dan bahan eksperimen di web ini

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.

tampak ada data yg masuk 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…..

Incoming search terms:

cara mengatasi could not output file pada delphi 7, apa penyebab fatal error pada Delphi 7, permasalahan fatal error file not found di delphi7, eror tform1 pada delphi7, could not create output file pada delphi itu artinya apa?, cara mengatasi fatal error pada delphi, cara membuat memo pesan masuk pada project delphi, cara membuat kolom pesan diterima pada delphi, cara buat event di TFORM1 comportRXChar di delphi, pesan fatal error cuold not create output file \D:\\ di delphi
14 Comments

Add a Comment

Your email address will not be published. Required fields are marked *

error: Content is protected !!