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)
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
About The Author
Saptaji, ST. M.Tr.T
a Technopreneur - writer - Enthusiastic about learning AI, IoT, Robotics, Raspberry Pi, Arduino, ESP8266, Delphi, Python, Javascript, PHP, etc. Founder of startup Indomaker.com
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
gunakan kontainer RaExtWindow
Ok, udah jinak komponenya…..
thanks atas ilmunya bng
🙂
kontainer maksudnya apa mas???bisa dijelasin dengan gambar,,,
kontainer artinya parent dari komponen2 yg ada didalamnya
maaf mas sy masih lom ngerti sy newbie,,
bisa dibuatin thread khusus ga buat cara operasiin raudusnya,,tq
ok. ditunggu aja y
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
he he he. Mas bisa programming/keahlian apa aja, siapa tahu kalo sy ada project bisa sy arahkan ke mas
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,,
Mas, apakah aplikasi smsnya harus runing dulu di komputr server baru bisa di akses komputer lain?…..
iya
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….
coba di device manager | modem
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…
masih ada mas
Ya Mas Klo Msih ada, yang harga 65.000 ribu kan Mas?
udah naik 75rb mas
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.
blm termasuk ongkos kirim
Pesan Mas “Buku Pemrograman Web Secara Visual dengan Delphi 7 dan Raudus” 1 paket kan CD Bonus nya.?
iya mas, silahkan isi data pemesanan di http://saptaji.com/shop. Panduan pemesanan di http://saptaji.com/cara-pesan
saya pakai Tedit.
penggunaannya gimana ya pas di RaExtTextField1.Value ?
saya isi nomor langsung / variabel tetep aja hasilnya not invalid integer
Sudah bisa pak :Peace:
coba pake strtoint
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?
Mas Klao comportnya itu klo pake wifi bisa ,trus pake nama wifinya gtu apa gmana
asal konek internet aja bisa mas