IsValidURL: Testen, ob URL über HTTP erreichbar ist

[PeterPanino]

Der Vollständigkeit halber hier noch die dazu analoge Version für HTTPS-URLs:

Delphi-Quellcode:

uses ... IdHTTP, IdSSLOpenSSL;

function IsHTTPSURLReachable(const AURL: string): Boolean;
var
  lHTTP: TIdHTTP;
  lIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  Result := True;
  lHTTP := TIdHTTP.Create(nil);
  lIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    try
      lHTTP.IOHandler := lIOHandler;
      lHTTP.HandleRedirects := True;
      lHTTP.Head(AURL);
    except
      Result := False;
    end;
  finally
    lHTTP.Free;
    lIOHandler.Free;
  end;
end;

Edit: Die beiden DLLs müssen sich noch im Suchpfad (Programmverzeichnis) befinden:
ssleay32.dll
libeay32.dll
Die neuesten Versionen der DLLs kriegt ihr hier:
http://indy.fulgan.com/SSL/