各位大大好：請問一下要如何得知該台電腦是否可以連上internet？ 記得好像有在其他文章中看到可以利用check yahoo的方式，除此之外是否有其他的方法！謝謝各位大大的指教！ check yahoo code: procedure TForm1.Button1Click(Sender: TObject); begin if InternetCheckConnection('http://www.yahoo.com/', 1, 0) then edit1.text:= 'Connected' else edit1.text:= 'Disconnected'; end;

先取得目前的ip再進行分析

 
uses 
   Winsock; 
 
 {...} 
 
 function getIPs: Tstrings; 
 type 
   TaPInAddr = array[0..10] of PInAddr; 
   PaPInAddr = ^TaPInAddr; 
 var 
   phe: PHostEnt; 
   pptr: PaPInAddr; 
   Buffer: array[0..63] of Char; 
   I: Integer; 
   GInitData: TWSAData; 
 begin 
   WSAStartup($101, GInitData); 
   Result := TstringList.Create; 
   Result.Clear; 
   GetHostName(Buffer, SizeOf(Buffer)); 
   phe := GetHostByName(buffer); 
   if phe = nil then Exit; 
   pPtr := PaPInAddr(phe^.h_addr_list); 
   I    := 0; 
   while pPtr^[I] <> nil do 
   begin 
     Result.Add(inet_ntoa(pptr^[I]^)); 
     Inc(I); 
   end; 
   WSACleanup; 
 end;

本地的ip應是127.0.0.1 如果不是的話, 那就己經連上internet了 努力會更接近成功

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

to pceyes 兄,如果是bulid的ip您的方法就不行的！ to tailen 兄,你的方法有一定的局限性，如果你所指向的网站挂了或则网络dns有问题等都会又可能连接不上的 方法如下： uses WinInet; function GetOnlineStatus : Boolean; var ConTypes : Integer; begin ConTypes := INTERNET_CONNECTION_MODEM INTERNET_CONNECTION_LAN INTERNET_CONNECTION_PROXY; if (InternetGetConnectedState(@ConTypes, 0) = False) then Result := False else Result := True; end;

感謝Pceyes,sos_admin兩位大大的協助與說明，小弟受用不盡！再次感謝！ 兩個方法小弟都是過了，都可以用，對我的程式寫作有很大的幫助！< >< >

提問者您好:


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


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


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

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