Accessing SMS With Borland Delphi 7: Sending and Receiving SMS In Nokia Mobile Phone Easily Using Oxygen SMS Component On Borland Delphi 7.0: Making SMS Access Software

Insert the following below :

No	Component Name	Properties	Value
	Button1	Caption	Batal
	Button1	Name	BtnBatal
	Button2	Caption	Kirim
	Button2	Name	BtnKirim
	Button3	Caption	Connect ke HP
	Button3	Name	BtnConnect
	Button4	Caption	Hapus Pesan
	Button4	Name	BtnHapus
	GroupBox1	Name	GroupBox1
	GroupBox1	Caption	Pesan Masuk
	GroupBox2	Name	GroupBox2
	GroupBox2	Caption	Kirim Pesan
	Memo1	Name	PesanMasuk
	Memo2	Name	PesanKeluar
	Label1	Caption	IsiPesan
	Label1	Name	LblPesanMasuk
	Label2	Caption	IsiPesan
	Label2	Name	LblPesanKeluar
	Label3	Caption	Status Koneksi
	Label3	Name	LblStatus
	Label4	Caption	Pengirim
		Name	LblSender
	Label5	Caption	Waktu
		Name	LblWaktu
	Label6	Caption	No Tujuan
		Name	LblTujuan
	Label7	Caption	Status Koneksi
		Name	LblStatus
	Edit1	Text	Pengirim
		Name	EdSender
	Edit2	Text	Waktu
		Name	EdWaktu
	Edit3	Text	+62
		Name	EdTujuan
	OxygenSMS1	Name	SMS1
		ConnectionMode	2
*Connection mode* on *Oxygen SMS1* Component is managed by the creator as follows: *0: DAU-P9* *1:DLR-3* *2:Infrared*

Arrange the component become this following visualization below:

Picture 1. Visualization Program Design.

Then enter the source code as follows on each component which is mentioned in the table below:

No.	Nama Komponen	Source Code
	BtnConnect	if (SMS1.Open=true) then LblStatus.Caption:= 'Terkoneksi' else LblStatus.Caption:= 'Koneksi gagal';
	BtnBatal	PesanKeluar.Text:='';
	BtnKirim	SMS1.SendSMSMessage(edtujuan.Text, PesanKeluar.Text,167,true,false,nil);
	BtnHapus	PesanMasuk.Text:=''; EdSender.Text:=''; EdWaktu.Text:='';
	SMS1	PesanMasuk.Text:=uppercase(text); edsender.Text:= send; edwaktu.Text:= datetimetostr(time);

Do the execution by Run 0r press F9 button on the keyboard
The result of the execution is as follows;

picture 2. The result of Program execution

Time for testing the program. :

Picture 3. Visualization before sending Message.

Picture 4. Visualization when receive Massage.

Picture 5. Visualization when inbox is visualized

P.S
>>> Why the writing became WWW.OXYGENSOFTWARE.COM OUT BOX IS TRIED TO BE SENT BY TAUFIK ADI SANJAYA
www.oxygensoftware.com is advertisement from the creator of OxygenSMS (nagscreen) component.
This is a shareware component Version (read: may use, but limited)
>>> Why the writing is all in capital?? The answer is there is source code uppercase (text): ß uppercase commands in Delphi have function for making letter become capital.
>>> When receiving SMS, why there is a dialog box like the picture below?

Picture 6. Dialog box: “Message Arrive”

The answer; once again, this is a shareware version component (read: you may use, but it is limited). But don’t worry, we can find a way by making simple application which can close the dialog box automatically. It is “Dialog Killer”. We can make it using Delphi.

I hope this article can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing