Prüfen, ob Bild im Internet erreichbar

[dominikkv]

Das komische ist nur, dass die HEAD-Methode viel länger braucht als die GET-Methode:

Delphi-Quellcode:

function ImageCheckGET(Link: string): Boolean;
begin
  result := True;
  with TIdHTTP.Create(nil) do
    try
      try
        Get(Link);
      finally
        Free;
      end;
    except
      result := False;
    end;
end;

function ImageCheckHEAD(Link: String): Boolean;
begin
  result := True;
  with TIdHTTP.Create(nil) do
    try
      try
        Head(Link);
      finally
        Free;
      end;
    except
      Result := False;
    end;
end;