當前位置:律師網大全 - 商標查詢 - 如何在Delphi中PING,謝謝各位大俠。

如何在Delphi中PING,謝謝各位大俠。

在delphi中實現ping功能的簡單方法是:

第壹,直接調用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函數,實現函數代碼。

  • 上一篇:「清河男身高」是否模仿「熱血高校」?
  • 下一篇:商標代理公司會搶註委托人的商標嗎?
  • copyright 2024律師網大全