Capture Console Dengan Komponen DosCommand

Setelah kemarin saya membuat postingan mengenai bagaimana cara menginstall suatu komponen delphi yang berekstensikan file *.pas dan saya mengambil salah satu contoh yaitu komponen dos command dimana komponen ini fungsinya yaitu untuk mengeksekusi dan mengcapture cmd windows dan ditampilkan pada memo didelphi.Kenapa saya mengambil contoh dos command dengan alasan tentang postingan saya sebelumnya yaitu bahwa untuk mengcapture console daripada cmd windows bisa di buat dengan berbagai cara yaitu diantaranya baik dengan menggunakan suatu procedure dan bisa dibaca cara nya di capture console secara realtime kemudian bisa dengan menggunakan function caranya juga bisa dibaca di cara capture console dengan function dan juga bisa dengan menggunakan suatu komponen yang akan saya bahas dalam postingan sekarang ini.

Jadi apabila kita mau membuat suatu aplikasi yang dimana ada hubungannya dengan suatu cmd windows kita bisa membuatnya dengan salah satu dari ketiga cara tersebut,mana yang lebih cocok yang bisa digunakan sesuai dengan apa yang akan dibuat aplikasi tersebut.

Cara Menggunakan Komponen Dos Command

Biar ga terlalu panjang lebar saya akan coba langsung ke pokok atau inti dari postingan kali ini yaitu cara membuat suatu aplikasi dengan menggunakan komponen doscommand,biasa pertama buka aplikasi delphinya kemudian tambahkan beberapa komponen dan atur penempatannya,disini saya coba menambahkan beberapa komponen pada Form yaitu:

1. Memo.

2. Edit.

3. Button.

4. Komponen DosCommand.

dan saya posisikan masing-masing komponen tersebut dan tampak seperti gambar dibawah ini

Menambahkan beberapa komponen

Selanjutnya setelah saya posisikan masing-masing komponen saya lanjut ke Form dimana akan saya coba untuk membuat suatu procedure untuk tombol button,procedure tersebut apabila dikilik button maka apa yang ada di kolom edit dimana kolom tersebut adalah suatu perintah daripada cmd windows akan ditampilkan pada memo.

Saya coba klik 2X button dan akan tampil kode editor daripada delphi dan tentunya dengan mengklik 2X button secara otomatis kode editor membuat suatu procedure button tersebut jadi saya tinggal coba tambahkan beberapa kodingan.

Untuk procedure button tersebut saya coba buat sebagai berikut:

procedure TForm1.Button1Click(Sender: TObject);
var
  cmd: String;
begin
  cmd := Edit1.Text;
  DosCommand1.CommandLine := cmd;
  DosCommand1.OutputLines := Memo1.Lines;
  DosCommand1.Execute;
end;  

Menambahkan sedikit kode pada procedure button

Kemudian setelah saya kasih sedikit koding pada procedure diatas saya coba run atau tekan F9 untuk mencobanya,dan disini saya akan mencobanya dengan perintah route print maka pada kolom edit saya coba masukan route print kemudian tekan tombol button dan hasilnya ...

Hasil test run dengan menggunakan komponen Dos Command

Demikian postingan kali ini dari saya tentang cara bagaimana capture console menggunakan suatu komponen Dos Command dan tentunya akan lebih mudah penggunaannya,semoga postingan ini bermanfa'at dan bisa teman-teman kembangkan.

Oke Salam Blogger and Happy Koding.