Senin, 22 Februari 2016

Cara Membuat Aplikasi Trace Route Ping Dengan Delphi 7 [T8]

Berikut adalah Cara Membuat Aplikasi Trace Route Ping Dengan Delphi 7 [T8] yang dimana pembuatan program ini adalah kelanjutan dari tutorial yang pernah dibahas pada bagian [T7] yaitu Cara Menampilkan IP Address Dengan Delphi jadi ini adalah bagian yang kedelapannya dan cara inipun sebenarnya bukanlah tutorial yang baru bahkan sudah 2x diberitahukan cara buat anti diskonek ini dan sebenarnya mafaat dan tidaknya tergantung kita yang mau menggunakannya.

Internet Gratis PC Notebook Laptop Terbaru 2016


Dan sebelumnya juga sudah dibagikan ini tentang Cara Mencari Bug Host Server Terbaru 2016 ok kita langsung saja step by stepnya.

BAHAN YANG DIPERLUKAN:

1. 1 buah komponen DosCommand secara default komponen ini harus anda dan sobat instal secara manual silahkan cari digoogle untuk komponennya atau kalau tidak mau report silahkan download saja DISINI silahkan instal melalui COMPONENT > INSTAL COMPONENT > UNIT FILE NAME > BROWSER cari saja yang sudah didownload tadi.

2. Ganti nama DosCommand menjadi dc dan inputToOutput jadi false tapi defaultnya false.

3. Tambahkan 1 buah timer lalu ganti namanya menjadi rt intervalnya 100 dan enabled false.

4. Tambahkan 1 buah memo lalu ganti namanya jadi logrt, lalu ganti scroolbars jadi ssboth.

PRAKTEK CARA MEMASUKAN LISTING CODINGNYA:

1. Berikut gambar 3 komponen baru yang ditambahkan pada tutorial kali ini:

Internet Gratis PC Notebook Laptop Terbaru 2016

2. Yang kedua double klik rt tadi yaitu timer yang sudah diganti namanya kemudian masukan coding dibawah ini, contohnya bisa lihat gambar dibawah.

var zonksel : String;
    dc : TDosCommand;
begin
 dc := TDosCommand.Create(nil);
zonksel := 'Route Add '+ '10.1.89.130'; //sesuaikan dengan proxy operator anda
if '255.255.255.255' <> '' then
zonksel := zonksel + ' Mask ' + '255.255.255.255';
zonksel := zonksel + ' ' + ip.caption;
if '1' <> '' then
zonksel := zonksel + ' Metric ' + '1';
dc.CommandLine := zonksel;
dc.Execute;
logrt.lines.add(zonksel+#13#10+'ok');
rt.Enabled := False;
sleep (10);
dc := TDosCommand.Create(nil);
zonksel := 'Route Delete '+ '10.1.89.130'; //sesuaikan dengan proxy operator anda
dc.CommandLine := zonksel;
dc.Execute;
logrt.lines.add(zonksel+#13#10+'ok');
rt.Enabled := False;
sleep (10);
dc := TDosCommand.Create(nil);
zonksel := 'Route Print';
dc.CommandLine := zonksel;
dc.OutputLines := logrt.Lines;
dc.Execute;
logrt.lines.add(zonksel+#13#10+'ok');
rt.Enabled := False;
 sleep (10);
dc := TDosCommand.Create(nil);
zonksel := ip.caption;
dc.CommandLine := zonksel;
dc.OutputLines := logrt.Lines;
dc.Execute;
logrt.lines.add(zonksel+#13#10+'ok');
rt.Enabled := False;
if (MessageBox(Self.Handle, 'Trace Route Ok', 'Exercise', MB_OK + MB_ICONINFORMATION)=idOK)then;

Internet Gratis PC Notebook Laptop Terbaru 2016

3. Yang ketiga kemudian masukan kode dibawah ini tepat diatas logtcp.enabled:=false; contoh bisa lihat gambar saja.

rt.Enabled:=true;

Internet Gratis PC Notebook Laptop Terbaru 2016

4. Yang keempat kemudian masukan kode dibawah ini pada tcpno contohnya bisa lihat gambar bawah.

logrt.Clear;

Internet Gratis PC Notebook Laptop Terbaru 2016

Selanjutnya tinggal build saja programnya dan cukup mudah dan sangat simple bukan dan untuk kelanjutannya dari tutorial T T T ditunggu saja hingga menjadi 1 buah program powerfull buat kamu tercinta, ha ha

Update untuk bagian yang kesembilannya [T9] silahkan bisa dilihat DISINI

Ya sudah guys hanya itu saja dulu info dengan Cara Membuat Aplikasi Trace Route Ping Dengan Delphi 7 [T8] semoga bermanfaat dan membantu dan terima kasih banyak buat kamu tercinta yang selalu menemani hari hariku, thanks you ^_^