Скачать файл большого размера

[Volkogriz]

Доброе время суток!
Как скачать файл больше 300мег.
IdHTTP большие не качает!
Поискал нашёл Функции но они качают,
какая четверть какая половину какая 10% )
Есть ли у кого примерчик <<<проверенный!!!>>>
Дайте пожалуйста.
Нашёл даже мнения и утверждения что delphi в обще не поддерживает скачивание файлов из интернета!
Заранее благодарен!
С уважением,
Volkogriz!

[FaTaL]

Когда то писал качалку для Flash Video с некоторых сайтов. Качает хоть по несколько гигов. Вот код потока:

// процедура скачки
procedure DownLoadThread.Execute;
var
  F: File;
  BufferLen: DWORD;
  hSession, hURL: HInternet;
  Buffer: array[1..1024] of Byte;
  err: boolean;
  FileUrl : PChar;
begin
   MainForm.DownloadProgressBar.Position := 0;
   DwnldSize := 0;
   if Copy (MainForm.SaveDlg.FileName, Length(MainForm.SaveDlg.FileName) - 3,
    Length(MainForm.SaveDlg.FileName))<>'.flv' then
   AssignFile(F, MainForm.SaveDlg.FileName + '.flv') else
   AssignFile(F, MainForm.SaveDlg.FileName); //Свяжемся с файлом
 {IF FileExists(Edit2.Text) then //Есть ли на диске этот файл
   begin
     Reset(f,1); //Ax, есть? Откроем!
     ResumePos := FileSize(F); //Откуда докачать
     Seek(F, FileSize(F)); //А писать будем в конец
   end else} ReWrite(f,1); //А раз нет, так создадим
   MainForm.StopDwnld := false; //Надо качать...
   //Открыли сессию
   hSession := InternetOpen(PChar(ParamStr(0)), PRE_CONFIG_INTERNET_ACCESS, nil, nil, 0);
   //И наш УРЛ
   FileUrl := PChar (MainForm.LinkEncodedEdit.Text);
   hURL := InternetOpenURL(hSession,FileUrl,nil, 0, 0, 0);

   {if ResumePos>0 then //Если докачиваем,
     begin
          lnternetSetFilePointer(hURL,ResumePos,nil,0,0); //То сместимся
     end;}
   REPEAT //Качаем
     err:= InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); //Читаем буфер
     IF err= false then //Ошибка чтения
       begin
         MessageBox (MainForm.Handle, 'Файл не доступен. Проверьте интернет cоединение.', 'Ошибка',
          mb_OK or mb_IconError); //Сообщим и выходим
         InternetCloseHandle(hURL); //<-|закрываем
         InternetCloseHandle(hSession); //<-|сесcии
         CloseFile(f); //<-|и файл
         MainForm.DownLoadBtn.Enabled := true;
         MainForm.DecodeBtn.Enabled := true;
         MainForm.StopBtn.Enabled := false;
         MainForm.SpeedTimer.Enabled := false;
         exit;
       end;
     BlockWrite(f, Buffer, BufferLen); //Пишем в файл
     // Показываем на прогресс
     Inc(DwnldSize);
     MainForm.SizeOfDownloading := DwnldSize;
     Synchronize (UpdateProgress);
     Synchronize (DownSizeView);

   UNTIL (BufferLen= 0) Or (MainForm.StopDwnld = true); //Качаем, пока не все или надо
   InternetCloseHandle(hURL); //<-|закрываем
   InternetCloseHandle(hSession); //<-|сесcии
   CloseFile(f); //<-|и файл

   Synchronize (ShowBaloon);
   MainForm.SpeedLabel.Caption := '0 КБ/с';
   MainForm.DownLoadBtn.Enabled := true;
   MainForm.DecodeBtn.Enabled := true;
   MainForm.StopBtn.Enabled := false;
   MainForm.SpeedTimer.Enabled := false;

end;

Там много чего не нужно тебе, т.к. прогресс скачки отображал на форме. Думаю разберёшься.

[Volkogriz]

именно эту штуку я и написал, надоело тормоза смотреть))
Всё работает а закачать нормально не как))
Ща ваш код пробовать буду, Спасибо!
С уважением,
Volkogriz!

[Volkogriz]

Не получается доходит до 14 метра и всё (
Вот собственно как я делаю:

uses
WinInet;

var
  Form1: TForm1;
  ListName:TStringList;

implementation

{$R *.dfm}

function TForm1.CCopyText(S, C1, C2: string): string;
begin
 if C1 <> '' then
 Delete(S, 1, Pos(C1, S) + Length(C1) - 1);
 if C2 <> '' then
 Delete(S, Pos(C2, S), Length(S));
 Result := S;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
S:string;
begin
s:=IdHTTP1.Get(ComboBox1.Text);
ListBox1.Items.Add(utf8toansi(CCopyText(S, '&laquo;', '&raquo;')));
ListName.Add(CCopyText(S, 'player.addVariable(''file'''+', ''', ''');'));
IdHTTP1.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListName:=TStringList.Create;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
ArrayLen:array[1..1024] of byte;
Len:DWORD;
F:File;
session,url:HInternet;
begin
try
session:=InternetOpen(Pchar(ExtractFileName(Application.ExeName)),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
url:=InternetOpenUrl(session,PAnsiChar(ListName.Strings[ListBox1.ItemIndex]),nil,0,0,0);
AssignFile(F, extractfilepath(Application.ExeName)+ListBox1.Items.Strings[ListBox1.ItemIndex]+'.flv');
Rewrite(F,1);
repeat
InternetReadFile(url,@ArrayLen,SizeOf(ArrayLen),Len);
BlockWrite(F,ArrayLen,Len);
until
Len=0;
CloseFile(F);
InternetCloseHandle(session);
except
on e:Exception do
end;
end;

end.

Не выходит не чего!(
С уважением,
Volkogriz!

[Slym]

http://www.programmersforum.ru/showthread.php?t=221386
http://www.programmersforum.ru/showp...97&postcount=8