Kirim dan terima sms dengan mudah dengan Delphi 7

Belajar, dan terus belajar jangan tunggu keajaiban dating, Komponen ini bisa dibuat dari berbagai bahasa pemprograman yaitu borlan Delphi 3,4,5,6,7 dan borlan borlan c++ builder 5, dan bisa beroperasi pada handphone nokia tipe 3390, 3210, 3310, 3330, 3350, 3410, 3510, 5110, 5130, 5190, 6210, 6310i, 7190, 8850, 8910 dan hanya mendukung pada system operasi windows

Adapun langkah langkahnya

Buka Delphi, dan desain form seperti berikut:

Prosedurnya adalah sebagai berikut

Objek                            caption             name

groupbox1                         pesan masuk            groupbox1

groupbox2                        kirim pesan            groupbox2

button1/2/3/4                    Batal/Kirim/Konek ke hp/Hapus         Btnbatal/btnkirim/btnconnect/btnhapus

memo1 dan memo2                                    pesanmasuk dan pesankeluar

label1/2/3                    isipesan/isipesan/statuskoneksi/     lblpesanmasuk/ lblpesankeluar/lblstatus

label4/5/6                    pengirim/waktu/no tujuan        lblsender/lblwaktu/lbltujuan

edit1/2/3                    pengirim/waktu/+62            edsender/edwaktu/edtujuan

tambahkan obyek oxigensms1            name:sms1                connection mode 2

 

 

hmmm oke kalo sudah demikian kita tinggal masukin barangx……………….heheeh maksudx codex :

 

klik pada tombol connect ke hp

procedure TForm1.BtnConnectClick(Sender: TObject);

begin

if (SMS1.Open=True) then

LblStatus.Caption : ='Terkoneksi' else

LblStatus.Caption : ='Koneksi Gagal';

end;

 

pada tombol Batal

procedure TForm1.BtnBatalClick(Sender: TObject);

begin

PesanKeluar: Text:=";

end;

 

pada tombol kirim

procedure TForm1.BtnKirimClick(Sender: TObject);

begin

SMS1.SendSMSMessage(EdTujuan.Text,

PesanKeluar: Text, 167, true,false,nil);

end;

 

pada tombol hapus

procedure TForm1.BtnHapusClick(Sender: TObject);

begin

PesanMasuk.Text :=";

EdSender:Text:=";

EdWaktu.Text :=";

end;

 

pada obyek sms1

procedure TForm1.SMS1SMSMessageReceived(Index: Integer; Time: TDateTime;

Text, Send: String; Pict: TBitmap);

begin

PesanMasuk.Text:=uppearcase(text);

Edsender:Text:=Send;

Edwaktu.Text:=datemetostr(time);

end;

 

end.

 

Untuk obyek tambahan oxygen smsdownload di www.oxygensoftware.com, setelah itu, jika sudah terdownload dan tersimpan buka folder tempat smsoxigen tersimpan

Setelah itu pilih jenis oxigensms sesuai yang loe pake abis itu buka folderxya dan klik 2 kali pada logo oxigensms

 

Jika sudah akan muncul seperti berikut

Selanjutnya klik tab compile dan jika ada konfirmasi save change klik yes…………………ok setelah itu Delphi 7 kita sudah terinstal oxygensms

Lalu jalankan …………………………………

selamat mencoba JJJ