Class Tfrm_ping (unit u_ping)

Inherits from

TForm

@/// Tfrm_ping = class(TForm)

Constructors



Functions

procedure btn_breakClick(Sender: TObject);

@\\\003E000601000601000801000A01000709000709*) (*@/// procedure Tfrm_ping.

procedure btn_startClick(Sender: TObject);

@/// procedure Tfrm_ping.

procedure PingPing(sender:TObject; status:Integer; ip,roundtime:Longint);

@\\\*) (*@/// procedure Tfrm_ping.

procedure TimerTimer(Sender: TObject);

@\\\*) (*@/// procedure Tfrm_ping.

Properties

Events

Variables

btn_break : TButton;


btn_start : TButton;


edt_hostname : TEdit;


lbl_host : TLabel;


mem_out : TMemo;


Ping : TPing;


Timer : TTimer;



Constructors


Functions


procedure btn_breakClick(Sender: TObject);

@\\\003E000601000601000801000A01000709000709*) (*@/// procedure Tfrm_ping.btn_breakClick(Sender: TObject);


procedure btn_startClick(Sender: TObject);

@/// procedure Tfrm_ping.btn_startClick(Sender: TObject);


procedure PingPing(sender:TObject; status:Integer; ip,roundtime:Longint);

@\\\*) (*@/// procedure Tfrm_ping.PingPing(sender:TObject; status:Integer; ip,roundtime:Longint);


procedure TimerTimer(Sender: TObject);

@\\\*) (*@/// procedure Tfrm_ping.TimerTimer(Sender: TObject);


Properties


Events


Variables


btn_break : TButton;


btn_start : TButton;


edt_hostname : TEdit;


lbl_host : TLabel;


mem_out : TMemo;


Ping : TPing;


Timer : TTimer;