Funktion URLExists?

[PeterPanino]

Leider funktioniert IsUrlValid (von hathor genannt) bei FTP nicht. Wie könnte also eine universelle UrlExists-Funktion aussehen?

Der Ansatz von marabu ist ja schon sehr vielversprechend:

Delphi-Quellcode:

function UrlExists(const url: string): Boolean;
begin
  if AnsiStartsText('ftp', url) then
    Result := FTPExists(url)
  else
  if AnsiStartsText('http', url) then
    Result := HTTPExists(url)
  else
    raise Exception.Create(S_WRONG_URL);
  end;
end;