Копирование n файлов через поток. Проблема

[Человек_Борща]

Доброго времени суток!

Значит ситуация такая:
Имеется функция:

procedure FastFileCopy(aInFile, aOutFile: string; CallBackProc: TCallBack);
const
  BuffSize = 3 * 4 * 4096; // 48 kb
var
  Buff: array [1 .. BuffSize] of Byte;
  InFile, OutFile: TFileStream;
  fSize: Int64; // Размер файла
  fPosition: Integer; // текущаяя позиция
  cSize: Int64; // Размер копированых данных
begin
  // Если имена не совпадают
  If not(aInFile <> aOutFile) then
  begin
    MessageBox(Application.Handle,
      'Пути входного и выходного файлов совпадают! Копирование невозможно!',
      'Внимание!', MB_OK or MB_ICONWARNING);
    Exit;
  end;
  // Открываем для чтения
  InFile := TFileStream.Create(aInFile, fmOpenRead);
  // открываем(создаём) для записи
  OutFile := TFileStream.Create(aOutFile, fmCreate or fmOpenWrite);
  try
    // начинаем с начала
    InFile.Seek(0, soFromBeginning);
    OutFile.Seek(0, soFromBeginning);
    // размер файла
    fSize := InFile.Size;
    // позиция 0
    fPosition := 0;
    repeat
      // копируем блок данных  в буфер
      cSize := InFile.Read(Buff, BuffSize);
      // увелечиваем позицию на размер копированного блока
      Inc(fPosition, cSize);
      // перадаём в обратный вызов
      CallBackProc(fPosition, fSize);
      // пишем из буфера
      OutFile.Write(Buff, BuffSize);
    until cSize < BuffSize;
  finally
    FreeAndNil(InFile);
    FreeAndNil(OutFile);
  end;
end;

которая из одной папки, копирует файлы в другую.
Вся соль в том что когда копируются файлы n GB
программа намертво виснет.

Решил запихать все это дело в TThread что успешно получилось. С одним файлом теперь все нормально и все копируется.

Но если несколько файлов, то опять же все виснет. т.к. все потоки запускаются одновременно.

Как их поставить в очередь?
Чтобы цикл не продолжил работу пака поток не завершит работу?

[Leo08]

А зачем так усложнять задачу?
Пишешь:

Var
F:tmemorystream;
Input,output:string;
Begin
Input:='1.txt';
Output:='2.txt';
F:=tmemorystream.create;
F.loadfromfile(input);
F.savetofile(output);
F.free;
End;

A для нескольких файлов можешь этот код впихнуть в процедуру и в самой программе воспользоваться оператором цикла for.

[Аватар]

Запустить поток синхронно,потом следующий и т.д. В коде запуск потока с ожиданием завершения

Thread.Resume;
while not Thread.Terminated do Application.ProcessMessages;

[Пепел Феникса]

А зачем так усложнять задачу?

а скопируйте ка мне файлик 4ГБ таким методом?(на 32-битке причем)

[Человек_Борща]

Пока вернулся к старому варианту(без потоков).

Согласен с Пеполом Феникса.
В моём коде идет корпирование блокам данных, размером 48 кб(Для меня это с верхом(файлов более 200 метров не будет уж точно)).

В вашем случае в Tstream летит сразу весь файл(а это огого сколько времени).
За это время я своим методом перемещу уже половину файла(а то и больше, если буфер увеличить).

[veniside]

fSize: Int64; // Размер файла
fPosition: Integer; // текущаяя позиция

а чем позиция хуже размера? почему ей только 32 бита дали? )

> все виснет. т.к. все потоки запускаются одновременно

нечему там виснуть. хоть 50 потоков запусти. в CallBackProc что происходит?

> Как их поставить в очередь?

не знаю, зачем это надо, но перед выходом из FastFileCopy() запускай новый поток и всё.

[Пепел Феникса]

В вашем случае в Tstream летит сразу весь файл(а это огого сколько времени).
За это время я своим методом перемещу уже половину файла(а то и больше, если буфер увеличить).

я вообще то имел в виду что весь файл в память то не влезет.