關於TIdIcmpClient.Ping方法的問題.... |
答題得分者是:chris_shieh
|
ESCAPE
一般會員 發表:37 回覆:47 積分:16 註冊:2005-02-15 發送簡訊給我 |
請問各位有經驗的前輩,我現在使用TIdIcmpClient元件的PING方法,可是我按照之前幾篇關於TIdIcmpClient.PING的使用方式,可是我發現只能Ping區域網路內的電腦IP位址,如果要PING區域網路外的IP(比如168.95.1.1)就不行了。在命令模式下使用PING是正常的。煩請有經驗的前輩不吝指教,謝謝。
我的程式碼如下.... procedure TForm1.Button1Click(Sender: TObject);
begin
IdIcmpClient1.Host:=Edit1.Text;
IdIcmpClient1.Ping;
end; procedure TForm1.IdIcmpClient1Reply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
if AReplyStatus.BytesReceived=0 then
showmessage('time out') //PING不到
else
showmessage(inttostr(AReplyStatus.BytesReceived) ' mSec'); //顯示PINGTIME
|
chris_shieh
高階會員 發表:46 回覆:308 積分:240 註冊:2004-04-26 發送簡訊給我 |
|
ESCAPE
一般會員 發表:37 回覆:47 積分:16 註冊:2005-02-15 發送簡訊給我 |
|
ESCAPE
一般會員 發表:37 回覆:47 積分:16 註冊:2005-02-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |