Как проверить доступность сайта на delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

function GetUrl(const url: string): Boolean;
begin
 Result := False;
 try
  IdHTTP1.Get(url);
  if IdHTTP1.ResponseCode = 200 then
   Result := True;
 except
  Result := False;
 end;
end;

1

if GetUrl('http://ya.ru/') then ShowMessage('Сайт доступен');

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

const HTTP_REQUEST_SUCCEEDED = 200;

function CheckURLAvailable(const URL: string): Boolean;
begin
Result := False;
try
IdHTTP1.Get(URL);
if IdHTTP1.ResponseCode = HTTP_REQUEST_SUCCEEDED then
Result := True;
except
Result := False;
end;
end;