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

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

Incoming search terms:

aplikasi client server delphi kirim pesan gambar, sms gateway comport delphi, remote desktop aplikasi webbased raudus, program client server delphi, aplikasi web based delphi, cara membuat aplikasi sendiri di pc di delphi 7, aplikasi kirim pesan menggunakan delphi, membuat sms gateway client server di delphi, contoh program remote control dengan delphi 7, sms threading delphi

Leave a Reply

28 Comments on "Mengirim SMS secara Remote (Web Based) dengan Delphi 7, Raudus dan CPort"

avatar
  Subscribe  
newest oldest most voted
Notify of
Raja Molor
Guest

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
Guest

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

def
Guest

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

Yudi
Guest

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

Hengki
Guest

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
Guest

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

Hengki
Guest

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
Guest

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

bryan
Guest

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

bryan
Guest

Sudah bisa pak :Peace:

BACHTIAR
Guest

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
Guest

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

error: Content is protected !!