EIdHTTPProtocolException при попытке скачать файл

[BDA]

Пытаюсь загрузить zip архив на компьютер с помощью idhttp. При этом, для скачивания требуется авторизация. При перехватывании снифером пакетов видно, что все пакеты приходят, но программа почему-то "не хочет" их сохранить, а выдает ошибку.

try
    try
      Response := TmemoryStream.Create;
      IdHTTP1.Request.BasicAuthentication := true;
      IdHTTP1.Request.Username := loginT3;
      IdHTTP1.Request.Password := passT3;
      IdHTTP1.get('http://io.mioo.ru/scanege/ikt/scan.zip', Response);
      Response.savetofile('scan.zip');
    except
      on E: Exception do
        ListBox1.Items.Append(datetimetostr(now) + ': ' + E.ClassName +
            ' ошибка с сообщением : ' + E.Message);
    end;
  finally
    Response.Free;
  end;

[Voody]

Попробуйте с TFileStream:

Response:=TFileStream.Create('scan.zip', FMCreate);
IdHTTP1.get('http://io.mioo.ru/scanege/ikt/scan.zip', Response);
Response.Free;

[BDA]

Попробовал - та же ошибка.

[BDA]

Кому интересно, вот решение

procedure downloadfile(url, path, auth: string);
var
  hInternetSession: HINTERNET;
  hURL: HINTERNET;
  t: boolean;
  Buf: array [0 .. 1023] of byte;
  dwBytesRead: cardinal;
  f: tfilestream;
begin
  try
    hInternetSession := InternetOpen('Microsoft Internet Explorer',
      INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    if assigned(hInternetSession) then
      try
        hURL := InternetOpenUrl(hInternetSession, pchar(url),
          pchar('Authorization: Basic ' + auth),
          length(pchar('Authorization: Basic ' + auth)),
          INTERNET_FLAG_RELOAD or
            INTERNET_FLAG_EXISTING_CONNECT, 0);
        if assigned(hURL) then
          try
            f := tfilestream.Create(path, fmCreate);
            repeat
              t := InternetReadFile(hURL, @Buf, 1024, dwBytesRead);
              f.Write(Buf, dwBytesRead);
            until t and (dwBytesRead = 0);
          finally
            f.free;
          end;
      finally
        InternetCloseHandle(hURL);
      end;
  finally
    InternetCloseHandle(hInternetSession);
  end;
end;

Параметр auth - base64 зашифрованная строка base64(loginassword)
Вот функция для зашифровки

function base64_encode(s: ansistring): ansistring;
const
  symb = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
var
  l: ansistring;
  i: integer;
  k: byte;
begin
  l := '';
  i := 0;
  while i < length(s) do
  begin
    k := ord(s[1 + i]) shr 2;
    l := l + symb[k + 1];

    k := ord(s[1 + i]) shl 6;
    k := k shr 2 + ord(s[2 + i]) shr 4;
    l := l + symb[k + 1];

    k := ord(s[2 + i]) shl 4;
    k := k shr 2 + ord(s[3 + i]) shr 6;
    l := l + symb[k + 1];

    k := ord(s[3 + i]) shl 2;
    k := k shr 2;
    l := l + symb[k + 1];

    case length(s) - i of
      1:
        move(ansistring('=='), l[length(l) - 1], 2);
      2:
        move(ansistring('='), l[length(l)], 1);
    end;

    inc(i, 3);
  end;
  result := l;
end;