Скачивание с редиректом

[alexprey]

Народ подскажите как скачать файл. У меня есть ссылка по нажатию которой происходит редирект на нужный файл. Когда пытаюсь скачать то мне скачивает пустую страничку. Подскажите плиз как сделать чтобы скачался файл. Качаю так

procedure DownloadFileFromUrl(url,filepath: string; progress: boolean);
 var hInet,hURL: HINTERNET;
  fSize,ReadLen,RestartPos: DWORD;
  fBuf: array[1..1024] of byte;
  f: file;
  Header: string;
begin
  MainForm.DownLoadProgress.Visible:= progress;
  RestartPos := 0; //<- |инициализация
  fSize := 0; //<- |переменных
  //Если на винте есть файл то считаем, что нужно докачивать
  if FileExists(filepath) then
  begin
    AssignFile(f, filepath);
    Reset(f, 1);
    RestartPos := FileSize(F);
    Seek(F, FileSize(F));
  end
  else
  begin
    //иначе с начала
    AssignFile(f, filepath);
    ReWrite(f, 1);
  end;
  //открываем сессию
  hInet := InternetOpen('my app',PRE_CONFIG_INTERNET_ACCESS,nil,nil,0);
  //Пишем дополнительную строку для заголовка
  Header := 'Accept: */*';
  //открываем URL
  hURL := InternetOpenURL(hInet,PChar(url),pchar(Header),StrLen(pchar(Header)),0,0);
  //устанавливаем позицию в файле для докачки
  if RestartPos > 0 then
    InternetSetFilePointer(hURL,RestartPos,nil,0,0);
  //смотрим ск-ко надо скачать
  InternetQueryDataAvailable(hURL, fSize, 0, 0);
  //ShowMessage(inttostr(ReadLen));
  if RestartPos > 0 then
  begin
    MainForm.DownLoadProgress.MinValue := 0;
    MainForm.DownLoadProgress.MaxValue := fSize + RestartPos;
    MainForm.DownLoadProgress.Progress := RestartPos;
  end
  else
  begin
    MainForm.DownLoadProgress.MinValue := 0;
    MainForm.DownLoadProgress.MaxValue := ReadLen;//fSize + RestartPos;
  end;
  //качаем до тех пор пока реально прочитаное число байт не
  //будет равно нулю или не стор
  while (ReadLen <> 0) do
  begin
    //читаем в буфер
    Application.ProcessMessages;
    InternetReadFile(hURL, @fBuf, SizeOf(fBuf), ReadLen);
    //смотрим ск-ко осталось докачать
    InternetQueryDataAvailable(hURL, fSize, 0, 0);
    //Form1.DownLoadProgress.Progress:= Form1.DownLoadProgress.Progress + fSize;
    //Form1.Log.Lines.Add(inttostr(fSize));
    BlockWrite(f, fBuf, ReadLen); //<-пишем в файл
  end;
  //ShowMessage(inttostr(FileSize(f)));
  InternetCloseHandle(hURL); //<-|закрываем
  InternetCloseHandle(hInet); //<-|сесcии
  CloseFile(f); //<-|и файл
  MainForm.DownLoadProgress.Visible:= false;
  ShowMessage('Закачка завершена');
end;

[TwiX]

Используй инди. Для прогресса - событие onWork

[alexprey]

TidFTP??? или какой??? я просто инди не особо знаю

[TwiX]

TIdHTTP.Get

[alexprey]

Ну вот теперь качаю так

Data:= TMemoryStream.Create;
 try
  Downloader.Get(url,Data);
 finally
  Data.SaveToFile(GetFileName(url));
  Data.Free;
 end;

Но выдает 302 ошибку

[alexprey]

И не работает все равно редирект.

[Denager]

У idHhttp поставьте свойство редиректа в true (AllowRedirects)

[alexprey]

во спс, теперь работает