Mengirim SMS secara Remote (Web Based) dengan Delphi 7, Raudus dan CPort

Ada kalanya suatu sistem membutuhkan pengiriman SMS secara remote atau client-server. SMS Modem ada di komputer server, sedangkan Anda berada jauh/berbeda tempat dengan server, namun dapat terhubung server dengan koneksi intranet atau internet. Untuk solusi atas case ini, Anda dapat memanfaatkan Delphi dan Raudus, sedangkan untuk komponen SMS Gateway-nya dapat menggunakan CPort/Comport. Berikut adalah gambaran topologi sistemnya.

Raudus sendiri merupakan framework eksternal Delphi yang dapat diinstal ke dalam Delphi dan dapat digunakan untuk membuat aplikasi web menggunakan bahasa Delphi secara native. Semua sintaks yang digunakan adalah Delphi style, namun output yang dihasilkan adalah aplikasi web. Karena berupa web yang didukung protokol TCP/IP, maka aplikasi hasil Delphi-Raudus ini dapat diakses di tempat lain yang terhubung dengan LAN/internet menggunakan web browser. Jadi, seakan-akan Anda mengeksekusi perintah ke modem SMS di server namun dilakukan di remote area. Apalagi Raudus sudah mendukung javascript, jadi aplikasi web yang dihasilkan nantinya lebih efisien (tidak perlu reload/refresh halaman web secara keseluruhan), dan tampilannya akan tampak seperti aplikasi desktop pada umumnya.

Contoh aplikasi kirim SMS web based menggunakan Raudus adalah sebagai berikut. Dari Component Pallete, ambil komponen RaExtLabel (2 bh), RaExtTextField (1), RaExtTextArea (1), RaExtButton (2) dan ComPort (1) pada Raudus Form Designer. Atur tata letak komponen hingga menjadi seperti pada gambar di bawah.

 

Atur properties komponen-komponen di atas sebagai berikut :

Komponen

Properties

Nilai

RaExtWindow1 Title Program Kirim SMS
RaExtLabel1 Text No tujuan :
RaExtLabel2 Text Isi SMS :
RaExtButton1 Text Open
RaExtButton2 Text Kirim SMS
RaExtTextField1 Value -dikosongi-
Comport1 Port COM8 (sesuaikan dengan modem Anda)

 Double click komponen RaExtButton1 (tombol ‘Open’) dan isikan baris program di bawah :

procedure TRaForm1.RaExtButton1Click(Sender: TObject);

begin

 Comport1.Open;

 ComPort1.WriteStr(‘at+cmgf=1’+#13#10);

end;

Double click komponen RaExtButton2 (tombol ‘Kirim SMS’) dan isikan baris program sebagai berikut:

procedure TRaForm1.RaExtButton2Click(Sender: TObject);

begin

 ComPort1.WriteStr(‘at+cmgs=”‘+RaExtTextField1.Value+'”‘+#13#10);

 ComPort1.WriteStr(RaExtTextArea1.Lines.Text);

 ComPort1.WriteStr(#26);

end;

Running program di atas (tekan tombol F9), kemudian buka web browser, dan isikan address bar-nya dengan alamat ip komputer Anda. Jika Anda membuka program web di komputer yang sama, Anda bisa mengetikkan http://localhost:88. Pada contoh di bawah, saya menggunakan komputer yang berbeda namun dalam subnet LAN yang sama. Komputer server berada di IP 10.24.124.88, sedangkan laptop saya di IP 10.24.124.91. Maka web browser di laptop saya, address bar-nya saya isi http://10.24.124.88:88, hingga muncul tampilan aplikasi SMS web sebagai berikut (saya menggunakan Google Chrome untuk web browsernya)

Web SMS dengan Raudus

Sekarang tinggal klik tombol ‘Open’, kemudian isikan no tujuan dan isi SMS, terus klik tombol ‘Kirim SMS’, Anda sudah bisa mengirim SMS secara web based dari remote area (modem SMS berada di sisi komputer server). Bisa Anda bayangkan jika komputer server terhubung internet, maka Anda bisa mengirim SMS di mana saja (asal terhubung internet juga) tanpa membawa modem sekalipun 🙂

Selamat mencoba, untuk tutorial penggunaan Raudus bisa dibaca disini

0 0 votes
Article Rating

Leave a Reply

28 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
Raja Molor

Bang, saya udah install raudus, tapi waktu kompnennya saya letakkan di form (seperti contoh yg abng berikan di atas), yg nampak cuma bentuk petak yg bertuliskan rendering, semua komponen di radius sudah saya coba tempel pada form, tetap rendering tulisan yg nampak.

ada solusi bang?

saya menggunakan delphi 2010 dan raudus 0.8.9

Raja Molor

Ok, udah jinak komponenya…..
thanks atas ilmunya bng
🙂

def

kontainer maksudnya apa mas???bisa dijelasin dengan gambar,,,

def

maaf mas sy masih lom ngerti sy newbie,,
bisa dibuatin thread khusus ga buat cara operasiin raudusnya,,tq

def

o iya kalo buku nya mas yg “Buku Pemrograman Web Secara Visual dengan Delphi 7 dan Raudus” masih ada g stoknya?sy mo beli cuman ntar abis lebaran kira2, lagi ngumpulin duitnya dlo anak kuliahan kismin maklum,,hhe

def

wah mksh bnyak atas twrannya, sy cuman bisa sedikit bhs perograman(C,C++,pascal) itu jg msh dasar aj sy lagi mw mendalami soal software engineering,,

Yudi

Mas, apakah aplikasi smsnya harus runing dulu di komputr server baru bisa di akses komputer lain?…..

Yudi

oh iya mas satu lagi… sy pernah nyoba pake modem telkomflash tp pas sy cek port nya di device kok ga kebaca port nya… itu kenapa ya mas? apa ada cara lain untuk cek portnya….

Hengki

Buku nya mas Ajie yg “Buku Pemrograman Web Secara Visual dengan Delphi 7 dan Raudus” masih ada ga stoknya?? Cuma tanya ada kalo saya mau beli ntar mas, soalnya lagi belajar delphi 7 juga sekarang…

Hengki

Ya Mas Klo Msih ada, yang harga 65.000 ribu kan Mas?

Hengki

sekalian sama Ongkos kirimnya kh Mas?
Gak Pa2 Mas, Nanti Klo saya pesan di kirim lewat Apa Mas? soal nya saya berada di Kalimantan tepatnya Kalimantan Tengah Kab.Barito Utara Muara Teweh.

Hengki

Pesan Mas “Buku Pemrograman Web Secara Visual dengan Delphi 7 dan Raudus” 1 paket kan CD Bonus nya.?

bryan

saya pakai Tedit.
penggunaannya gimana ya pas di RaExtTextField1.Value ?
saya isi nomor langsung / variabel tetep aja hasilnya not invalid integer

bryan

Sudah bisa pak :Peace:

BACHTIAR

selamat malam pak, mau tanya klau untuk menampilkan sms yang masuk bagaimana? menggunakan komponen apa pak? saya sudah coba pake
Comport1.readstr(str,count);
RaExtTextArea1.Lines.Text:=str;
tpi kok gak bisa muncul ya pak? mohon bantuannya?

Frima

Mas Klao comportnya itu klo pake wifi bisa ,trus pake nama wifinya gtu apa gmana

28
0
Would love your thoughts, please comment.x
()
x