第壹,直接調用windows ping?命令,然後獲取其輸出信息。
二、借用Indy組件包?TIdIcmpClient?組件(來自互聯網的代碼):
程序?TForm1。Button1Click(發件人:?to object);
定義變量
我?:?整數;
開始
Memo1。線條清晰。
IdIcmpClient1。主持人:=?Edit1。文本;?//計算機的名稱或IP地址
IdIcmpClient1。receive time out:= 1000;?//最大超時
按鈕1。啟用?:=?假的;?
嘗試
為了什麽?我:=0?去哪?13?做
開始
IdIcmpClient1。平;
申請。處理消息?;?//延遲
結束;
最後
按鈕1。啟用?:=?真實;?
結束;
結束;
程序?TForm1。idicmpclient 1回復(ASender:?TComponent
const?AReplyStatus:?TReplyStatus);
var?
sTime:?字符串;
開始?
//檢測Ping應答錯誤?
如果?(AReplyStatus。MsRoundTripTime?=?0?)?然後呢?
sTime?:=?& lt1'?
不然呢?
sTime?:=?'=';?
//在列表框中顯示Ping消息?
Memo1。Lines.Add(格式('回復?從哪裏?[%s]?:?字節=%d?時間%s%d?ms?TTL=%d ',
[AReplyStatus。FromIpAddress,?
AReplyStatus。收到的字節數,?
時間?
AReplyStatus。MsRoundTripTime,?
AReplyStatus。time tolive]));
結束;第三,編寫ping函數,實現函數代碼。