проверить сайт на доступность

[AppData]

что не так делаю?

---------------------------
Project1
---------------------------
Could not load SSL library.
---------------------------
ОК   
---------------------------

uses
  IdHTTP, IdSSLOpenSSL;

procedure TForm1.FormCreate(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  IdHTTP := TIdHTTP.Create(nil);
  try
    IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
    IdHTTP.Get('https://google.com');
  finally
    IdHTTP.Free;
    IdSSLIOHandlerSocketOpenSSL.Free;
  end;
end;

а вот еще код> тоже не прокатил

function GetUrl(const url: string): Boolean;
var
  IdHTTP: TIdHTTP;
  LHandler : TIdSSLIOHandlerSocketOpenSSL;
begin
  IdHTTP := TIdHTTP.Create(nil);
  LHandler  := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  IdHTTP.IOHandler := LHandler;

  IdHTTP.HandleRedirects:= True;

  with LHandler  do
  begin
    SSLOptions.Method := sslvSSLv23;
    SSLOptions.Mode := sslmClient;
    SSLOptions.VerifyMode := [sslvrfPeer];
    SSLOptions.VerifyDepth := 10;
  end;    

 Result := False;

 try

    IdHTTP.Get(url);
    if IdHTTP.ResponseCode = 200 then
       Result := True;


    FreeAndNil(IdHTTP);
    FreeAndNil(LHandler);

   except
    Result := False;
 end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 if GetUrl('https://www.google.com/') = True then
    Caption := 'Сайт доступен' else
    Caption := 'Сайт не доступен';
end;

[Alar]

когда в 2006 году делал подобную проверялку
загружал html в мемо и там уже смотрел что загрузилось

вот что нашёл

https://programmersforum.ru/showthre...ght=idhttp.get

и если вы 10 лет на форуме и до сих пор ищите готовые коды, то вам лучше сменить специалитет

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

[p51x]

Вам же написали

Could not load SSL library.

Вы либы к exe не положили.

[AppData]

Alar, с такими подсказками и советами и 40 лет будет мало.

[AppData]

p51x, подкидывал к exe Project1.exe рядом файлы libeay32.dll и ssleay32.dll, не помогло

[p51x]

разрядность приложения и либ совпадает?

[AppData]

Да, все совпадает

[Alar]

Сообщение от AppData

Alar, с такими подсказками и советами и 40 лет будет мало.

Чтобы что-то сделать, нужно понимать как вы это будете делать, иначе даже если вы что-то сделаете, скачав чужой код, от этого толку будет ноль.

Для начала можно просто гетнуть файл на локалхосте, где всё под вашим контролем

[AppData]

да вы не программист, вы менеджер продаж. у них как раз лрзунг: Как говорить, чтобы клиенты не задавали лишних вопросов

а здесь вроде форум, помоги ближнему - тебе хуже не будет

[Alar]

http://www.programmersclub.ru/
get ните вместо гугла