Cara membuat Projet Router di Delphi 7

Assalamu'alaikum Wr.WB

pada postingan kali ini saya akan menjelaskan bagaimana Cara membuat Project Router di Delphi 7 "
ok gan..langsung saja kita ke Step by Stepnya gan..

1. Buka Software Delphi 7 agan..
2. Tambahkan komponen-komponen seperti beikut :

• + 1 Memo (nnt komponen ini di gunakan untuk log router ) dan setting ScrollBars menjadi "ssBoth"

• + 4 Edit (untuk kegunaan setiap komponen Edit di bawah ini :

Edit1 : untuk code cmd ( ipconfig )
Edit2 : untuk mask router (cmd) nnt agan kasih text " 255.255.255.255 "
Edit3 : untuk metric router (cmd) nnt agan kasih text " 1 "
Edit4 : untuk tempat IP kita

• + 1 ComboBox (untuk penempatan proxy setiap operator )

• + 6 Button ( untuk kegunaan setiap komponen Button ada di bawah ini :

Button1 : untuk send code cmd

Button2 : untuk Clear / menghapus log di komponen Memo1 tadi

Button3 : untuk tombol Route Add

Button4 : untuk tombol Route Delete

Button5 : untuk tombol Route Print'

Button6 : untuk tombol memuncul kan IP kita di komponen Edit4 tadi

•  + 5 Timer (untuk kegunaannya setiap komponen Timer ini ada di bawah ini :

Timer1 : tempat untuk code memunculkan IP kita ( agan setting Enable menjadi False )

Timer2 : tempat untuk code Route Add tadi ( agan setting Enable menjadi False )

Timer3 : tempat untuk code Route Delete ( agan setting Enable menjadi False )

Timer4 : tempat untuk code Route Print ( agan setting Enable menjadi False )

Timer5 : tempat untuk code Config CMD di komponen Edit1 tadi ( agan setting Enable menjadi False )

• + 1 DosCommand  ( buat agan yg Delphi 7-nya belum terinstal komponen ini, cara instal komponen DosCommand ada di SINI??? )
• + 1 IdIPWatch

Lihat penampakannya di bawah : 

3. Selanjutnya Masukan Code -Code Dibawah ini Sesuai dengan peletakan pada komponen :

• >> Code untuk komponen Timer1 : 

Edit4.Text := IdIPWatch1.LocalIP;

• >> Code untuk komponen Timer2 ( hilangkan " Begin " terlebih dahulu ) :

var fien : String;
    command : TDosCommand;
begin
command := TDosCommand.Create(nil);
fien := 'route add '+ ComboBox1.Text;
if edit2.Text <> '' then
fien := fien + ' mask ' + edit2.Text;
fien := fien + ' ' + edit4.Text;
if Edit3.Text <> '' then
fien := fien + ' metric ' + edit3.Text;
command.CommandLine := fien;
command.Execute;
memo1.lines.add(fien+#13#10#13#10+'Done..!');
Timer2.Enabled := False;
if (MessageBox(Self.Handle, 'Route Add Succes..', 'By Fien Shirayuki', MB_OK + MB_ICONINFORMATION)=idOK)then;

memo1.Clear;

• >> Code untuk komponen Timer3 ( hilangkan " Begin " terlebih dahulu ) :

 var fien:String;
    command : TDosCommand;
begin
command := TDosCommand.Create(nil);
fien := 'route delete '+ ComboBox1.Text;
command.CommandLine := fien;
command.Execute;
memo1.lines.add(fien+#13#10#13#10+'Done..!');
Timer3.Enabled := False;
if (MessageBox(Self.Handle, 'Route Delete Succes..', 'By Fien Shirayuki', MB_OK + MB_ICONINFORMATION)=idOK)then;
memo1.Clear;

• >> Code untuk komponen Timer4 ( hilangkan " Begin " terlebih dahulu ) :

 var fien:String;
    command : TDosCommand;
begin
command := TDosCommand.Create(nil);
fien := 'route print';
command.CommandLine := fien;
command.OutputLines := memo1.Lines;
command.Execute;
Timer4.Enabled := False;

• >> Code untuk komponen Timer5 ( hilangkan " Begin " terlebih dahulu ) :

var fien:String;
    command : TDosCommand;
begin
command := TDosCommand.Create(nil);
fien := edit1.Text;
command.CommandLine := fien;
command.OutputLines := memo1.Lines;
command.Execute;
Timer5.Enabled := False;

• >> Code untuk komponen Button1 ( agan beri caption " Send " ) :

Timer5.Enabled := True;

•  >> Code untuk komponen Button2 ( agan beri caption " Clear Log " ) :

memo1.Clear;

• >> Code untuk komponen Button3 (agan beri caption " Route Add " ) :

Timer2.Enabled := True;

• >> Code untuk komponen Button4 (agan beri caption " Route Delete " ) :

 Timer3.Enabled := True;

•  >> Code untuk komponen Button5 (agan beri caption " Route Print " ) :

Timer4.Enabled := True;

•  >> Code untuk komponen Button6 (agan beri caption " IP/Get Ip " ) :

Timer1.Enabled := True;

•  >> Lalu agan tambahkan Item Strings pada komponen Combo Box1 :

202.152.240.050
10.19.19.19
10.1.89.130
10.4.0.10
10.8.3.8
10.20.27.250

jadinya seperti gambar di bawah ini kalo udah di tambahin Item Strings :

 4. sekarang tinggal Sobat coba project Router agan...



Cukup sekian postingan kali ini mohon maaf jika ada kesalahan dan kekurangan itu mungkin kebodohan saya, dan bila da manfaatnya itu semata-mata karuania dari sang maha kuasa,

Wassalamu'alaikum Wr.Wb...