indy idHttp + file download

[Luckie]

Sure. Just handle the error.

[sdean]

Zitat von Luckie:

Sure. Just handle the error.

Thank you , But just how .
cause if i put handleRedirects property to False and idhttp faces an URL redirectios it will raise an exception with the Famous error http//1.1 302 found .

[Luckie]

Code:

try
  
excpet
  on NotFound
    jumpt to next download in queue
end;

[sdean]

thank you Luckie
Here is my Thread Code :
Could you Fix it for me please . many thanks

Delphi-Quellcode:

procedure TFileDownThread.Execute;
var
  FStream: TFileStream;
  i:Integer;

begin

For i:=0 to FUrl.Count-1 do
  begin

  IdHTTP := TIdHTTP.Create(nil);
  try
    IdHTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
    IdHTTP.OnWorkBegin := FWorkBeginEvent; 
    IdHTTP.OnWork := FWorkEvent;
    IdHTTP.OnWorkEnd := FWorkEndevent;
    IdHTTP.HandleRedirects:=False;
   // IdHTTP.RedirectMaximum := 15;
   // Idhttp.OnRedirect:=OnRedirect;
    IdHTTP.Head(URL[i]);
    BytesInsgesamt := IdHTTP.Response.ContentLength;

    FStream:= TFileStream.Create(ExtractUrlFileName(URL[i]), fmCreate);
    IdHTTP.Get(URL[i], FStream);

  finally
    IdHTTP.Free;
    FStream.Free;
  
  end;
//  Synchronize(ShowCode);
  end;
end;

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  FileList := TStringList.Create;
  try
    FileList.Add('http://www.michael-puff.de/Programmierung/Delphi/Programme/AdressDB.zip');
    FileList.Add('http://www.michael-puff.de/Programmierung/Delphi/Programme/AdressDB_nonVCL.zip');
    FileList.Add('kdvndk');
    FileList.Add('http://www.michael-puff.de/Programmierung/Delphi/Programme/AudioPlayer.zip');
    for i := 0 to FileList.Count - 1 do
    begin
      try
        Download(i);
      except
        on E: EIdReadTimeOut do
        begin
          Memo1.Lines.Add(E.Message);
          Continue;
        end;
      end;
    end;
  finally
    FileList.Free
  end;
end;

procedure TForm1.Download(index: Integer);
begin
  IdHTTP1.Head(FileList[index]);
  Memo1.Lines.Add(IntToStr(IdHTTP1.Response.ContentLength));
end;

Just to show you the main principle.

[sdean]

Thank you Luckie i will apply your Idea .