Cara Membuat Route Opsel Dengan Delphi

Untuk kali ini saya akan coba membuat sebuah aplikasi yang sangat simple(sederhana) yang mana aplikasi ini saya buat untuk membuat route dari operator selular secara manual yang ada di negara kita,untuk itu saya beri nama aplikasi ini dengan ROUTE OPSEL.

Aplikasi ini saya coba buat dengan agar supaya bisa sekalian mengcapture daripada perintah route itu sendiri artinya hasil dari route akan kita lihat/ditampilkan pada memo.Sebelum saya memulai untuk membuat aplikasi ini apabila diantara teman-teman ada yang mau belajar juga membuatnya ada baiknya teman-teman membaca dulu atau mempelajarinya dulu dari postingan saya yang sebelum-sebelumnya yaitu bagaimana cara membuat capture console dengan delphi,teman-teman bisa baca di:

Cara Capture Console Dengan Procedure Secara Realtime kemudian

Cara Capture Console Dengan Function dan

Cara Capture Console Dengan Komponen DosCommand

Dan bagi yang belum di instal komponen DosCommand nya silahkan instal terlebih dahulu untuk yang belum tahu cara penginstalannya bisa di buka pada postingan

Cara install Dos Command pada Delphi.

Kenapa saya coba mereferensikan untuk mempelajarinya terlebih dahulu dari pada postingan yang saya sebutkan diatas tadi,karena dengan alasan saya akan mencoba membuat aplikasi route opsel ini agar supaya bisa mengcapturenya hasil dari perintah route itu sendiri,maka dari itu untuk membuat aplikasi ini yang akan saya buat perlu dari salah satu langkah dari ketiga cara tersebut.

Dan untuk kali ini saya akan mencobanya dengan cara yang menggunakan komponen doscommand,dan mungkin teman-teman bisa mencobanya dengan cara yang lain.

Langkah Pembuatan Route Opsel

Menuju ke pokok dari postingan kali ini yaitu tentang bagaimana cara membuat route opsel sekarang langkah pertama yaitu membuka aplikasi delphinya dan bagi yang komputernya belum diinstal delphinya silahkan instal dulu aplikasi delphi 7 nya terlebih dahulu karena saya coba membuatnya dengan delphi versi 7.Apabila sudah siap aplikasi delphinya coba buka  kemudian pada Form coba tambahkan beberapa komponen yang diperlukan.

Komponen-komponen Yang Di Tambahkan

Disini saya coba dengan menambahkan komponen-komponen pada Form yang terdiri dari:

1. 1 buah Memo.

2. 1 buah Edit.

3. 1 buah ComboBox.

4. 5 buah Button.

5. 1 buah DosCommand.

6. 1 buah IdIPWatch.

Dan coba atur penempatan daripada komponen-komponen tersebut yang telah ditambahkan pada Form supaya kelihatan bagus dan rapi.Kemudian untuk masing-masing komponen Button pada Object Inspector rubah Caption nya sesuai dengan fungsinya masing-masing yang akan dibuat,disini saya coba daripada tiap-tiap button saya ganti captionnya yaitu dengan GET IP,ROUTE,DEL ROUTE,CLEAR dan ROUTE PRINT.Disini saya coba memposisikan atau menempatan daripada komponen-komponen penambahan tadi yaitu seperti gambar di bawah ini

Menambahkan Komponen dan Mengatur Posisi Komponen

Setelah pengaturan posisi penempatan komponen pass atau cocok menurut selera masing-masing selanjutnya saya akan mencoba kebagian pengkodingan.

Proxy Dari Masing-masing Opsel

Sebelum lanjut ke pongkodingan kita juga harus tahu dulu bahwa dinegara kita tiap-tiap operator selular mempunyai proxy masing-masing dan ini sangat diperlukan untuk membuat aplikasi route ini.Dan berikut ini adalah proxy dan nama operator yang saya tahu tentunya operator yang ada di negara kita:

1. TELKOMSEL Proxynya adalah 10.1.89.130.

2. INDOSAT Proxynya adalah 10.19.19.19.

3. XL Proxynya adalah 202.152.240.50.

4. AXIS Proxynya adalah 10.8.3.8.

5. TRI Proxynya adalah 10.4.0.10.

Procedure/Kode Untuk Tiap Komponen Yang Di Fungsikan

Yang pertama saya akan coba memasukan list atau daftar Proxy dari tiap opsel pada komponen ComboBox caranya adalah

Klik ComboBox kemudian pada object inspector pada properties Items bagian sebelah kanannya klik kemudian masukan Proxy operator selular yaitu:

10.1.89.130

10.19.19.19

202.152.240.50

10.8.3.8

10.4.0.10

Kemudian klik Ok.

Gambarannya seperti berikut dibawah ini

Menambahkan List Proxy Pada Combobox

Selanjutnya saya akan membuat procedure/kode untuk Button GET IP yaitu dengan cara mengklik 2X button tersebut dan saya coba buat procedurenya seperti ini

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IdIPWatch1.LocalIP;
end;

Setelah itu lanjut untuk membuat procedure Button ROUTE caranya sama dengan mengklik 2X button ROUTE kemudian buat procedurenya seperti ini

procedure TForm1.Button2Click(Sender: TObject);
var
  route: String;
begin
  Memo1.Clear;
  route := 'route ADD ' + ComboBox1.Text + ' MASK 255.255.255.255 ' + Edit1.Text;
  DosCommand1.CommandLine := route;
  DosCommand1.Execute;
  DosCommand1.OutputLines := Memo1.Lines;
end;

Kemudian lanjut ke Button DEL ROUTE dan untuk procedurenya adalah seperti ini

procedure TForm1.Button3Click(Sender: TObject);
var
  delroute: String;
begin
  delroute := 'route DELETE ' + ComboBox1.Text;
  DosCommand1.CommandLine := delroute;
  DosCommand1.Execute;
  DosCommand1.OutputLines := Memo1.Lines;
end;

Lanjut lagi ke Button ROUTE PRINT dan untuk procedurenya adalah seperti ini

procedure TForm1.Button5Click(Sender: TObject);
var
  routeprint: String;
begin
  routeprint := 'route PRINT';
  DosCommand1.CommandLine := routeprint;
  DosCommand1.Execute;
  DosCommand1.OutputLines := Memo1.Lines;
end;

Dan yang terakhir untuk Button CLEAR buat procedurenya seperti ini

procedure TForm1.Button4Click(Sender: TObject);
begin
  Memo1.Clear;
end;

Setelah itu saya kira aplikasi telah siap untuk di tes,kemudian saya coba Run dan hasilnya...

Tes Run Route Opsel

Demikian untuk postingan kali ini tentang cara membuat Route Opsel yang sangat simple,semoga ini bermanfa'at dan bisa dikembangkan lagi oleh teman-teman.

Nantikan lagi experiment saya selanjutnya.

Ok Salam Blogger and Happy Koding.