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;