Senin, 19 Desember 2016

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.


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…

BERITA LENGKAP DI HALAMAN BERIKUTNYA

Halaman Berikutnya

>> PERHATIKAN !!! <<

- Gunakan kata-kata yang bijak saat berkomentar ya sob.
- Berkomentar dengan Foto <i rel="image">URL_GAMBAR</i>
- Berkomentar dengan Code HTML silakan Parse dulu.