Как БЫСТРО склеить 2 файла?

[KoBRaAndrey]

Как БЫСТРО склеить 2 файла? Есть код:

procedure TForm12.Button2Click(Sender: TObject);
var
f,f2:file;
buf:string;
done:integer;
begin
  AssignFile(f,'C:\1.mp3');{Первый файл}
  AssignFile(f2,'C:\3.mp3'); {Исходный, склеинный первый и второй}
  Reset(f,1);
  Rewrite(f2,1);
    while not eof(f) do
    begin
    BlockRead(f,buf,sizeof(buf),done);
    BlockWrite(f2,buf,done);
    Application.ProcessMessages;
    end;
  CloseFile(f);
AssignFile(f,'C:\2.mp3');{Второй файл}
Reset(f,1);
done:=FileSize(f);
BlockWrite(f2,done,4);
    while not eof(f) do
    begin
    BlockRead(f,buf,sizeof(buf),done);
    BlockWrite(f2,buf,done);
    Application.ProcessMessages;
    end;
CloseFile(f);
CloseFile(f2);
end;

Но он клеит весьма долго =\

[Utkin]

Reset(f,1);
Rewrite(f2,1);
Ты переписываешь по одному байту, а это не есть гуд. Диск по одному байту не читает . Лучше по 512, потому как чем ты будешь по одному байту 512 раз читать, уже лучше один раз.

[KoBRaAndrey]

поставил 512 вместо 1, и 2 файла по 4 мб, превратились в 387мб, эээ?

[Utkin]

Сообщение от KoBRaAndrey

поставил 512 вместо 1, и 2 файла по 4 мб, превратились в 387мб, эээ?

Э-э-э, надо контролировать число записей по 512, а не по 1-му байту. Меняйте логику работы.

ЗЫ. И еще немного удивило:

buf:string;

И это при файлах 'C:\1.mp3'
Если это не текстовый, то не знаю, не факт что это сработает.

http://www.delphibasics.ru/BlockRead.php вот пример работы, тоже для одного байта, но для любого файла.

ЗЫ.ЗЫ. Насколько я знаю мп3 имеют заголовки, поэтому, ИМХО, если просто один мп3 сложить со вторым мп3, то полноценный файл из этого не получится.

[KoBRaAndrey]

Все)) Сделал через файл стрим.