Source Delphi 7 - Menampilkan Download Dan Upload Digital Di Injek Delphi

Copas Aja source yg ane kasih dibawah ini sob:

Step 1:
tambahkan variabel

    Quote:var
    Download : Integer;
    Upload : Integer;


Step 2 :

    Quote:Kemudian, tambahkan di bagian Execute:
    upload:= upload+Length(AThread.NetData);

    sama bagian OutBound:
    download:= download+Length(AThread.NetData);


Step 3 :
kemudian tambahkan komponen VrNum(VrLcd)
tambahkan 2 komponen tersebut

tambahkan code di bwah di bagian timer :

    Quote:downText.Caption := FormatFloat('0',download/1024);
    uploadText.Caption := FormatFloat('0',upload/1024);
    VrNum1.Value := StrToInt (downText.Caption);
    VrNum2.Value := StrToInt (uploadText.Caption);
    download := 0;
    upload := 0;