各位先進! 在維護的過程中, 常遇到網路連線有問題 想寫一個能偵測網路連線狀況及自動判別可能的故障情形 預計方法如下: 1. 送出類似ping的功能至某一另內部網點 , 取得其回應值 判別內部網路是否暢通 2. 再送一ping值至網際網路上實體IP , 取得其回應值 判別外部網路是否暢通 3. 測ping值至網際網路上Web Name, 取得其回應值 判別DNS運作是否正常 不知在Indy中或Delphi本身即有可達成此方法的功能或函數

用 ShellExecute 去執行 ping 命令, 將結果重導到文字檔案, 讀取文字檔案分析即可 ping 192.168.1.1 > result.txt ping 168.95.1.1 >> result.txt ping www.hinet.net >> result.txt ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

在IndyClient頁面裡有個IdICMPClient，裡面就有PING的方法，Delphi線上說明很清楚！ ----------------------------------------------- Creation is the fundation of promotion.

  function IsIPPresent: Boolean;
  type
    TaPInAddr = Array[0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
  var
    phe: PHostEnt;
    pptr: PaPInAddr;
    Buffer: Array[0..63] of Char;
    I: Integer;
    GInitData: TWSAData;
    IP: String;
    FCurrentIP : String;       {<--RLM Diagnostics}
    FpCurrHostEnt : PHostEnt;  {<--RLM Diagnostics}
  begin
    WSAStartup($101, GInitData);
    Result := False;
    GetHostName(Buffer, SizeOf(Buffer));
    phe := GetHostByName(buffer);
    FpCurrHostEnt := phe;
    if phe = nil then Exit;
    pPtr := PaPInAddr(phe^.h_addr_list);
    I := 0;
    while pPtr^[I] <> nil do
     begin
      IP := inet_ntoa(pptr^[I]^);
      Inc(I);
     end;
    FCurrentIP := IP;
    WSACleanup;
    Result := (IP <> '') and (IP <> '127.0.0.1');
  end;     

使用方法

  if IsIPPresent then
  begin
     showmessage('on line');      end
  else
  begin
     showmessage('network fail');
  end;
 

測試環境: win2000 pro delphi7 努力會更接近成功

------
努力會更接近成功

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.