[Помидоркин]

Пытаюсь организовать загрузку файла (одного файла) в несколько потоков, как, например, в Free Download Manager. Поиски в инете привели к следующему результату:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

type     TDLoad = class(TThread)     private      Strim: TMemoryStream;      {вариант:  Strim: TFileStream; - тут пока не ясно}      URL: String;      S, E: Cardinal; //Начальный и конечный байт для скачивания     protected      procedure Execute; override;     public     end;   { TDLoad }   procedure TDLoad.Execute; var h: TIdHTTP;      Strim: TMemoryStream; begin  inherited Execute;  h:=TIdHTTP.Create(nil);  h.HandleRedirects:=True; //задаем  h.Request.UserAgent:=    //нужные  h.Request.Referer:=        //параметры запроса  h.OnWork:=              //здесь можно визуализировать   h.OnWorkBegin:=       //процесс с помощью ProgressBar  h.Request.ContentRangeStart:= S; //откуда начинаем закачивать  h.Request.ContentRangeEnd:= E;   //где заканчиваем  Strim:= TMemoryStream.Create; //либо это нужно делать далее, в цикле                                                //и передавать потоку уже созданный TMemoryStream   ............................  try   h.Get(URL,Strim); //если все удачно, то в Strim мы имеем кусок нужного файла  Except   on E : Exception do   ShowMessage('Нету'+#13#10+IntToStr(h.ResponseCode));  end;  h.Free; end;

Дальше более или менее ясно:
запрашиваем размер, делим на части,

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.Button1Click(Sender: TObject); var i: Byte;     dl: TDLoad;     ms: TMemoryStream //Как вариант  begin  .................................  for i:= 0 to {кол-во частей} do  begin   ..................................   ms:= TMemoryStream.Create;//вариан   dl:= TDLoad.Create(True);   dl.S:= //задаем начало   dl.E:= //и конец части   dl.Strim:= ms;  end;   ...................................        //теперь нужно отловить завершение всех dl: TDLoad        //и собрать все потоки в один файл очевидно понадобится TFileStream end;

отловить завершение всех потоков я, вероятно, еще сумею, хотя и здесь не откажусь от помощи
а вот как собрать части в один файл не ясно
или есть какая то возможность записывать части сразу в FileStream?