URL checken auf 404

[Neotracer64]

Also ich möchte eine URL checken und gucken ob es sie gibt.
Schön und gut. Ich möchte jetz aber nicht das ganze Video, das 100 MB groß ist downloaden, sondern nur gucken ob der Link nicht down ist.
Wenn 404 kommt weiß ich schonmal, dass der Link down ist. Aber wie breche ich den download des Videos ab während des GETs?
Ich benutze die Indys.

[Klaus01]

sollte nicht diese Methode TidHTTP das machen
was Du suchst?

procedure Head(URL: string);

Parameters

URL: string

Location of the resource.

Grüße
Klaus

[Neotracer64]

Danke. Habe durch Head, eine Funktion von marabu in der DP gefunden, die mir weiterhilft.

Zitat von marabu:

Delphi-Quellcode:

function UrlCheck(sUrl: String; bAllowRedirects: Boolean = false): Integer;
begin
  with TidHTTP.Create(nil) do
  try
    try
      HandleRedirects := bAllowRedirects;
      Head(sUrl);
      Result := Response.ResponseCode;
    finally
      Free;
    end;
  except
      Result := GetLastError;
  end;
end;

begin
  if UrlCheck('http://www.delphipraxis.net', true) = 200
    then ShowMessage('!')
    else ShowMessage('?');
end;