12-25-2013, 01:05 PM
karena banyak yang bertanya di chat fb skrg biar gampang saya tulis disini aja sekalian .. langsung saja ..
[Image: updl.png]
yang dibutuhkan :
-2 label
-timer
ubah name label menjadi downText dan UploadText
lalu masukan code berikut pada var cari diatas {$R *.dfm}
lengkapnya
klik 2x pada timer dan masukan code dibawah
sisipkan code dibawah pada request dan respon
request :
respons
contoh lengkapnya seperti ini
[Image: updl.png]
yang dibutuhkan :
-2 label
-timer
ubah name label menjadi downText dan UploadText
lalu masukan code berikut pada var cari diatas {$R *.dfm}
lengkapnya
Code:
var
Form1: TForm1;
Download : Integer;
Upload : Integer;
klik 2x pada timer dan masukan code dibawah
Code:
downText.Caption := FormatFloat('Down: ##0.## KB/s',download/1024);
UploadText.Caption := FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;
sisipkan code dibawah pada request dan respon
request :
Code:
upload:= upload+Length(AThread.NetData);
respons
Code:
download:= download+Length(AThread.NetData);
contoh lengkapnya seperti ini
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
IdMappedPortTCP;
type
TForm1 = class(TForm)
CP1: TIdMappedPortTCP;
downText: TLabel;
UploadText: TLabel;
Timer: TTimer;
procedure CP1Execute(AThread: TIdMappedPortThread);
procedure CP1OutboundData(AThread: TIdMappedPortThread);
procedure TimerTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Download : Integer;
Upload : Integer;
implementation
{$R *.dfm}
procedure TForm1.CP1Execute(AThread: TIdMappedPortThread);
begin
upload:= upload+Length(AThread.NetData);
end;
procedure TForm1.CP1OutboundData(AThread: TIdMappedPortThread);
begin
download:= download+Length(AThread.NetData);
end;
procedure TForm1.TimerTimer(Sender: TObject);
begin
downText.Caption := FormatFloat('Down: ##0.## KB/s',download/1024);
UploadText.Caption := FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;
end;
end.
[Only registered and activated users can see links Click here to register]