Penampakan:
langsung saja yg mau silakan simak :
1.Pada variabel, kita tambahkan dulu seperti ini:
Download : Integer;
Upload : Integer;
2.Kemudian, kita tambahkan pada bagian Execute:
upload:= upload+Length(AThread.NetData);
3.dan bagian OutBound:
download:= download+Length(AThread.NetData);
4.Cara masih sama seperti membuat traffic menggunakan label.Sebagaimana coding yang kita letakan pada Timer awalnya menggunakan label seperti berikut:
Label1.Caption := FormatFloat('Down: ##0.## KB/s',download/1024);
Label2.Caption := FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;
5.Jangan dihapus. Rubah saja menjadi seperti ini:
Label1.Caption := FormatFloat('Down: ##0.## KB/s',download/1024);
Label2.Caption := FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;
6.Kemudian tambahkan komponen TMS VrNum. (Komponent ada di akhir postingan ini)
7.Beri 2 buah VrNum dan tambahkan pada bagian bawah coding label tadi menjadi seperti ini:
sLabel3.Caption := FormatFloat('0',download/1024);
sLabel4.Caption := FormatFloat('0',upload/1024);
VrNum1.Value := StrToInt (sLabel1.Caption);
VrNum2.Value := StrToInt (sLabel2.Caption);
download:= 0;
upload:= 0;
8.Coba Run atau tekan F9
9.InsyaAllah tidak ada error apabila mengikuti tutorialnya dengan benar.
10.Semoga bisa membantu teman-teman yang lain.