Cara Membuat Total Download dan Total Upload di Project Delphi

Assalamualaikum…

KENEONO  Dikesempatan kali ini saya akan share ilmu dikit tentang delphi lagi yaitu Cara Membuat Total Download dan Total Upload di Project Delphi. Untuk yang masih belum mengerti cara membuatnya saya akan membagikan tutorialnya dengan mudah dibawah ini simak dengan baik-baik yah. 

Berikut Cara Membuat Total Download dan Total Upload di Project Delphi :

- Pertama buka project delphi dan tambahkan Component 2 label, 2 edit, 1 timer, dan Component MagRasCo dan MagRasPer. Kalau belum punya componentnya ambil Disini dulu.

- Kalau sudah tambahkan source code berikut ini di Unit1 dibawah tulisan implementation.

function BytesToFriendlyString(Value : DWord) : string;
const
  OneKB = 1024;
  OneMB = OneKB * 1024;
  OneGB = OneMB * 1024;
begin
  if Value < OneKB then
    Result := FormatFloat('#,##0.00 B',Value)
  else
    if Value < OneMB then
      Result := FormatFloat('#,##0.00 KB', Value / OneKB)
    else
      if Value < OneGB then
        Result := FormatFloat('#,##0.00 MB', Value / OneMB)
    else if Value > OneGB then
  Result := FormatFloat('#,##0.00 GB', Value / OneGB)
end;

function BitsToFriendlyString(Value : DWord) : string;
const
  OneKB = 1000;
  OneMB = OneKB * 1000;
  OneGB = OneMB * 1000;
begin
  if Value < OneKB then
    Result := FormatFloat('#,##0.00 bps',Value)
  else
    if Value < OneMB then
      Result := FormatFloat('#,##0.00 Kbps', Value / OneKB)
    else
      if Value < OneGB then
        Result := FormatFloat('#,##0.0 Mbps', Value / OneMB)
end;

- Setelah itu klik 2 kali Component Timer dan masukkan source code berikut ini.

var
 newname: string ;
    curxmit, currecv, interval: DWORD ;
begin
 newname := MagRasCon.GetConnection ;

 if newname = '' then
 begin
  if ConnHandle = 0 then exit ;
        ConnHandle := 0 ;
        exit ;
    end ;
 if ConnHandle <> MagRasCon.CurRASConn then
    begin
     ConnHandle := MagRasCon.CurRASConn ;
     ConnName := MagRasCon.CurConnName ;

        MagRasPer.ResetPerfStats ;  // clear stats
        if MagRasOSVersion >= OSW2K then
              MagRasPer.PerfRasConn [1] := ConnHandle ;
  LastXmit := MagRasPer.PerfXmitCur [0] ;
        LastRecv := MagRasPer.PerfRecvCur [0] ;
        LastTime := GetTickCount ;
 end ;

    MagRasCon.CurrentStatusEx (ConnHandle, 0) ;
 if LastState <> MagRasCon.ConnectState then
    begin
     LastState := MagRasCon.ConnectState ;
 end ;

 if (MagRasCon.ConnectState = RASCS_Connected) then
    begin
  MagRasPer.GetPerfStats ;

        curxmit := MagRasPer.PerfXmitCur [0] - LastXmit ;
        currecv := MagRasPer.PerfRecvCur [0] - LastRecv ;
        interval := GetTickCount - LastTime ;
        LastXmit := MagRasPer.PerfXmitCur [0] ;
        LastRecv := MagRasPer.PerfRecvCur [0] ;
        LastTime := GetTickCount ;

  Edit1.Text := BytesToFriendlyString (MagRasPer.PerfXmitCur [0]);
  Edit2.Text := BytesToFriendlyString (MagRasPer.PerfRecvCur [0]);

end;
end;

- Kalau sudah selesai kita tinggal Build / Tekan F9 dan hasilnya akan seperti gambar dibawah ini yang sudah menunjukkan total download dan upload.

Gimana… mas brow mudah bukan hehehe…

Yang mau comot Source Code Total Download dan Total Upload di Project Delphi nya dibawah ini.

Download

Sekian potingan artikel Cara Membuat Total Download dan Total Upload di Project Delphi.

Semoga bermanfaat untuk yang belum mengetahuinya. Terimakasih…

Jangan lupa tinggalkan jejak yah ( . Sampai jumpa lagi di postingan artikel menarik lainnya.

Wassalamualaikum…