Senin, 30 Maret 2015

Download Source Code Cara Membuat Traffic Digital di Delphi 7

Jika sahabat ingin Download Source Code Cara Membuat Traffic Digital di Delphi 7 Terbaru 2015 berikut saya akan bagikan secara gratis, dan sebelumnya juga sudah dibagaikan seputar Source Code Cara Membuat Save dan Load di Delphi 7 ok berikut adalah komponen yang digunakannya:VrNum (2), Label (2), Timer (1), dan komponen pendukungnya sebagai percobaan adalah TCP Server pada indi servers (1) dan dibawah ini adalah contoh listing programnnya;


Cara Membuat Traffic Digital di Delphi 7

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, VrControls, VrLcd, IdBaseComponent, IdComponent, IdTCPServer,
  IdMappedPortTCP, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    IdMappedPortTCP1: TIdMappedPortTCP;
    VrNum1: TVrNum;
    VrNum2: TVrNum;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
    procedure IdMappedPortTCP1OutboundData(AThread: TIdMappedPortThread);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

Form1: TForm1;
Download : Integer;
Upload : Integer;

implementation

{$R *.dfm}

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);

begin
 upload:= upload+Length(AThread.NetData);
end;

procedure TForm1.IdMappedPortTCP1OutboundData(
  AThread: TIdMappedPortThread);
begin
download:= download+Length(AThread.NetData);
end;

procedure TForm1.Timer1Timer(Sender: TObject);


begin
Label1.Caption := FormatFloat('0',download/1024);
Label2.Caption := FormatFloat('0',upload/1024);
VrNum1.Value := StrToInt (Label1.Caption);
VrNum2.Value := StrToInt (Label2.Caption);
download := 0;
upload := 0;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
resize:=false;
end;

end.

Untuk Artikel Selanjutnya: Cara Membuat Tulisan Berjalan TMS VrMatrix di Delphi 7

Dan untuk download contoh source codenya silahkan ambil DISINI atau DISINI pass rarnya adalah aimeegracecatering.blogspot.com dan hanya itu saja info seputar Download Source Code Cara Membuat Traffic Digital di Delphi 7 Terbaru 2015 terima kasih.