Dear 各位大大:      小弟想請教在Win API中是否有可偵測網路是否斷線的Function呢? (如WinXP & Win2000中,網路線拔掉後網路的Icon會變成斷線Icon) 小弟曾爬文發現有前輩介紹使用Wininet.dll的方法,經實測在Win95中無法使用(Win2000 & WinXP 沒有問題) 所以想請教各位大大介紹是否有其他方法(不用ClientSocket or ServerSocket元件下)

try try see 

     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;
  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;

努力會更接近成功

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

Dear pceyes:    小弟已測試過此方法,在Code中的FpCurrHostEnt與FCurrentIP我在Delphi中無法找到定義,將此兩行Mask後即可Complier但執行後會出現EAccessViolation的例外處理,請pceyes參考    另外想請教pceyes若Host斷線後是否IP String會變為''(空字串呢?) 是否有使用API Function可直接得知Server端已斷線呢?    Anyway 還是謝謝pceyes大大的回覆

Dear pceyes: 小弟已完成測試了,將測試心得跟大家分享,在這次我們使用Winsock API函式下在Win2000 & WinXP 與 Win95 所得的WinSock結構結果是不同的,在WinXP 與Win2000下當硬體斷線後WinSock的Address List會將本機Address更改為127.0.0.1 而在Win95則否,所以使用WSAStartup 在Win95中偵測硬體斷線是無法得知網路線已被拔除,但在WinXP & Win2000則可 以上跟大家分享 Thanks ! 感謝pceyes大大你提供的測試Code ^^