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

Пользователь

от alisa.bahringer , в категории: Другие , 2 месяца назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

P

Пользователь

от Programmer , 2 месяца назад

@alisa.bahringer Добрый день!

Для определения доступности сайта можно использовать встроенные в 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;

Такая функция вернет true если сайт доступен и false если нет

Пример использования:

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

Обращаю внимание, что если сайт с https то в папку ехе файлу необходимо будет положить SSL библиотеки, без них подобный запрос работает только для незащищенного http протокола.






Пользователь

от ian.heidenreich , 2 месяца назад

@alisa.bahringer Вот моя функция чтобы првоерит доступность сайт на Delphi:


 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;