Cara memasang dua lampu di inject dengan delphi7

     Oke jumpa lagi diblog sederhana ini.Kali ini saya akan mengeshare cara memasang dua lampu di inject kita dengan delphi7.Sebenar itu bukan lampu hehehe,tapi shape,tapi kita sebagai newbie tentu akan membuat seperti itu dipencarian google,soalnya saya juga gitu pas baru belajar buat inject.

Sebenarnya cukup mudah taapi bisa jadi susah kalau nggak teliti

• Pertama pada inject yang agan buat,kalian masukan dua bua lampu atau shape

• Kemudian di tempat memasukan kode atau perintah kalian cari tulisan private lalu masukan kode berikut diatasnya

    Procedure LedBlinkUpload;

    Procedure LedBlinkDownload;

• lalu kalian cari tulisan var yang berada dibawah lalu masukan kode berikut dibawahnya

  Download : Integer;

  Upload : Integer;

• dibawah tulisan 

implementation

{$R *.dfm}

kalian masukan kode berikut

procedure

TForm1.LedBlinkUpload;

begin

shape1.Refresh;

if shape1.brush.color=clScrollBar

then

begin shape1.brush.color:=cllime;

end else

begin

shape1.brush.color:=clScrollBar;

end;

end;

procedure

TForm1.LedBlinkDownload;

begin

shape2.Refresh;

if shape2.brush.color=Clwhite

then

begin

shape2.brush.color:=clblue;

end else

begin

shape2.brush.color:=Clwhite;

end;

end;

• kemudian kalian cari tulisan seperti ini

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);

itu adalah tempat kalian memasukan bug kalian,nah dibawah tulisan login kalian masukan kode

LedBlinkUpload;

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

• lalu kalian cari lagi tulisan seperti ini

procedure TForm1.IdMappedPortTCP1OutboundData(

  AThread: TIdMappedPortThread);

setelah ketemu kalian masukan kode berikut dibawah tulisan login

LedBlinkDownload;

download:= download+Length(AThread.NetData);

terakhir kalian test,setelah itu save dan build project kalian dan silahkan dicoba

terimakasih telah berkunjung