indy idHttp + file download

[sdean]

Hi i've a list of Files to be downloaded :

1: http_://www.myweb.com/myfile.zip
2: http_://www.mywebcom.com/get.php?id=02906
3: http_://www.mywebcom.com/file.php?e=02906

the 1st link is easy to download / handle , But the problem is with Links #2 and #3 .
my idhttp handleRedirects property is True and RedirectMaximum is 15 But still no Chance to handle Them ( #2 and #3 Links ) .


so please how could i handle them ?

[Klaus01]

Hello,

is it possible to access link #2 and #3 with a common webbrowser?
Do you have the chance to trace the access attempts (i.e. with wireshark)?

Best regards
Klaus

[sdean]

Thank you Klaus01 .

Zitat:

is it possible to access link #2 and #3 with a common webbrowser?

Yes .
and other question :
Is it possible to ignore the Downloading process in case of URL Redirect and continue with others ; that means :
Ignore URL Redirection for link #2 and #3 and continue downloading the other links ?

[Luckie]

Sure. Just handle the error.

[sdean]

Zitat:

Zitat von Luckie (Beitrag 1064691)

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 .