下面是个简单易学的Delphi编程实现Ping操作教程,小编详细图解介绍包你轻松学会,喜欢的朋友赶紧get起来吧!
在Delphi中使用TidIcmpClient控件可以非常简单的实现图形界面的Ping!
新建一个工程,命名为,窗口命名为“”,加入如下组件:
lstReplies: TListBox;
ICMP: TIdIcmpClient;
Panel1: TPanel;
btnPing: TButton;
edtHost: TEdit;
spnPing: TSpinEdit;
Label1: TLabel;
完整源代码如下:
unit Main; interface
uses
Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
SysUtils, Classes, IdIcmpClient, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
Spin;
type
TfrmPing = class(TForm)
lstReplies: TListBox;
ICMP: TIdIcmpClient;
Panel1: TPanel;
btnPing: TButton;
edtHost: TEdit;
spnPing: TSpinEdit;
Label1: TLabel;
procedure btnPingClick(Sender: TObject);
procedure ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus);
private
public
end;
var
frmPing: TfrmPing;
implementation
{$R *.DFM}
procedure (Sender: TObject);
var
i: integer;
begin
:= ICMPReply;
:= 1000;
:= False; try
:= ;
for i := 1 to do begin
;
;
end;
finally := True; end;
end;
procedure (ASender: TComponent; const ReplyStatus: TReplyStatus);
var
sTime: string;
begin
// TODO: check for error on ping reply (?)
if ( = 0) then
sTime := '1'
else
sTime := '=';
(Format('%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms',
[,
,
,
,
sTime,
]));
end;
end.