Как склеить 541 файл последовательно в один

Question

[maxxiixx]

Как склеить файлы последовательно в один.
Один в конец другого и т.д.
Всего 541 файл каждый по 5 мб.
Чтобы память не вылетала.

Answer 1

[maxxiixx]

var
i:integer;
my_stream:TMemoryStream;
my_filestrem:TFileStream;
//.........................................

  my_filestrem:= TFileStream.Create(ExtractFilePath(Application.ExeName)+Edit3.Text+'\file.mp4', fmCreate);

  for i := 0 to Memo2.Lines.Count - 1 do
  begin

    my_stream:=TMemoryStream.Create;
    try
      IdHTTP1.Get(Edit5.Text+Memo2.Lines.Strings[i], my_stream);
      my_stream.Position := 0;
      my_filestrem.CopyFrom(my_stream,my_stream.Size);
      //my_stream.SaveToFile(ExtractFilePath(Application.ExeName)+Edit3.Text+'\'+Memo2.Lines.Strings[i]);
    except
    end;
    my_stream.Free;

    Application.ProcessMessages;
  end;
  my_filestrem.Free;

Comments

[zed]

Я бы на вашем месте постеснялся публиковать такой грязный код, а тем более, помечать его как "решение".

[maxxiixx]

Я сам ответил на свой вопрос, никто так и не помог толком, а мой прошлый вопрос вообще удалили.

Часть кода из программы которая скачивает видео с плеера v-kino.net/drama/movie35546-Volk-s-Yoll-strit-The-... по частям и склеивает в общий mp4 файл.

[zed]

> Я сам ответил на свой вопрос, никто так и не помог толком
Прозвучало как минимум 2 ответа: от @mkharitonov и от меня (с примером кода). Если не умеете слушать людей, которые вам отвечают, то тостер вам мало чем поможет и впредь.

Answer 2

[Pavel Shvedov]

Answer 3

[zed]

Используйте TFileStream:

var
    out: TFileStream;
    in: TMemoryStream;
    i: Integer;
begin
    in := TMemoryStream.Create;
    out := TFileStream.Create(...);    
    try
        for i := 0 to files_count - 1 do begin            
            in.Clear;
            in.LoadFromFile(....);            
            out.WriteBuffer(in.Memory^, in.Size);
        end;
    finally
        in.Free;
        out.Free;
    end;
end;

Answer 4

[m-haritonov]

Читать по небольшой порции данных из каждого файла и записывать её в конец нового файла.

Answer 5

[Александр]

cat * >> new_file

Это разве не решение или, как говорит автор, скушает память?