인터넷 연결 체크

인터넷 연결 체크

 

function TdmMain.CheckInternet: boolean;

begin

result:=false;

try

IdTCPClient1.ReadTimeout:=2000;

IdTCPClient1.ConnectTimeout:=2000;

IdTCPClient1.Port:=80;

IdTCPClient1.Host:='google.com';

IdTCPClient1.Connect;

IdTCPClient1.Disconnect;

result:=true;

except

result:=false;

end;

end;