Склеить 2 файла в один

@EEjester · Регистрация: 28.03.2013

Есть бинарь весом 50 кб, ему в начало нужно дописать (ДОПИСАТЬ А НЕ ПЕРЕЗАПИСАТЬ) несколько байт. Пробовал дописать в начало но ничего не получилось. Решил что проще будет склеить 2 файла. Заголовок который нужно дописать, и сам бинарь. Как это сделать? TStrings не помогает так как файл сильно большего размера для него.

Добавлено через 1 минуту
Вот так перезаписываю:

Delphi

  f := fileopen(filename, fmOpenReadWrite);
  for i := 1 to 50 - length(page) do
    page := page + '#';
  for i := 0 to 49 do
  begin
    p := $00000;
    for j := 1 to i do
      p := p + $1;
    c := ord(char(pchar(page[i+1])));
    SetFilePointer(f, p, nil, 0);
    WriteFile(f, c, SizeOf(c), BytesRead, nil);
  end;
  FileClose(f);
  ShowMessage('o.k');

Добавлено через 1 минуту
Можно даже поставить вопрос проще: как дописать в начало файла бинаря???

Добавлено через 1 минуту
Соответственно можно сначала дописать себе 50 байт адресного пространства, а уже потом их перезаписать в то что нужно.

@wendstor · 27.07.2015, 12:46

TFileStream

@EEjester · 27.07.2015, 12:49 **[ТС]**

Пример пожалуйста.

@northener · 27.07.2015, 12:57

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

Решил что проще будет склеить 2 файла

Если нужно склеить 2 файла, то не нужно первый файл дописывать в начало второго. Нужно второй дописать в конец первого.

@EEjester · 27.07.2015, 12:58 **[ТС]**

а если второй файл весит пару метров например?

@krapotkin · 27.07.2015, 13:10

без разницы сколько кто весит
с=a+b
в данном случае сложение некоммутативно )))

@northener · 27.07.2015, 13:11

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

а если второй файл весит пару метров например?

И что страшного? Всё равно эти два метра придется перемещать.

@EEjester · 27.07.2015, 14:04 **[ТС]**

пример пожалуйста. не получается!!!

@EEjester · 29.07.2015, 06:07 **[ТС]**

проблема решена вот так:

Assembler

1	copy /b C:\1\1.zip + C:\1\4.txt + C:\1\46.exe C:\1\miki.exe

вызываю WinExec.

@krapotkin · 29.07.2015, 07:11

Delphi

var fs1,fs2,fs3:TFileStream;
 
fs1:=TFileStream.Create(fname1,fmOpenRead);
fs2:=TFileStream.Create(fname2,fmOpenRead);
fs3:=TFileStream.Create(fname3,fmCreate);
fs3.CopyFrom(fs1,fs1.size);
fs3.CopyFrom(fs2,fs2.size);
fs1.free;
fs2.free;
fs3.free;

@wendstor 135 / 134 / 65 Регистрация: 15.05.2012 Сообщений: 506
	27.07.2015, 12:46	2
	TFileStream 0

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
	27.07.2015, 12:49 [ТС]	3
	Пример пожалуйста. 0

@northener пофигист широкого профиля 4274 / 2798 / 791 Регистрация: 15.07.2013 Сообщений: 16,226
	27.07.2015, 12:57	4
	Сообщение от EEjester Решил что проще будет склеить 2 файла Если нужно склеить 2 файла, то не нужно первый файл дописывать в начало второго. Нужно второй дописать в конец первого. 0

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
	27.07.2015, 12:58 [ТС]	5
	а если второй файл весит пару метров например? 0

@krapotkin 4546 / 3764 / 1260 Регистрация: 14.04.2014 Сообщений: 17,490 Записей в блоге: 18
	27.07.2015, 13:10	6
	без разницы сколько кто весит с=a+b в данном случае сложение некоммутативно ))) 0

@northener пофигист широкого профиля 4274 / 2798 / 791 Регистрация: 15.07.2013 Сообщений: 16,226
	27.07.2015, 13:11	7
	Сообщение от EEjester а если второй файл весит пару метров например? И что страшного? Всё равно эти два метра придется перемещать. 0

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
	27.07.2015, 14:04 [ТС]	8
	пример пожалуйста. не получается!!! 0

Опции темы

Склеить 2 файла в один

Решение