Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
1 / 1 / 5
Регистрация: 28.03.2013
Сообщений: 299
1

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

27.07.2015, 12:38. Просмотров 2137. Ответов 9
Метки нет (Все метки)

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

Добавлено через 1 минуту
Вот так перезаписываю:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  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 байт адресного пространства, а уже потом их перезаписать в то что нужно.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.07.2015, 12:38
Ответы с готовыми решениями:

Склеить два файла xml в один
Добрый день, есть две выгрузки xml файла, 1.xml и 2.xml нужно чтоб дописались в конец файла 1 из...

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

Как склеить 30 csv в один
Всем привет как склеить 30 csv файлов в один? При условии что в каждом файле есть шапка...

Склеить несколько Bitmap в один
Имеется массив содержащий несколько картинок одинакового размера... Нужно получить из них одну...

9
135 / 134 / 65
Регистрация: 15.05.2012
Сообщений: 506
27.07.2015, 12:46 2
TFileStream
0
1 / 1 / 5
Регистрация: 28.03.2013
Сообщений: 299
27.07.2015, 12:49  [ТС] 3
Пример пожалуйста.
0
пофигист широкого профиля
4274 / 2798 / 791
Регистрация: 15.07.2013
Сообщений: 16,226
27.07.2015, 12:57 4
Цитата Сообщение от EEjester Посмотреть сообщение
Решил что проще будет склеить 2 файла
Если нужно склеить 2 файла, то не нужно первый файл дописывать в начало второго. Нужно второй дописать в конец первого.
0
1 / 1 / 5
Регистрация: 28.03.2013
Сообщений: 299
27.07.2015, 12:58  [ТС] 5
а если второй файл весит пару метров например?
0
4546 / 3764 / 1260
Регистрация: 14.04.2014
Сообщений: 17,490
Записей в блоге: 18
27.07.2015, 13:10 6
без разницы сколько кто весит
с=a+b
в данном случае сложение некоммутативно )))
0
пофигист широкого профиля
4274 / 2798 / 791
Регистрация: 15.07.2013
Сообщений: 16,226
27.07.2015, 13:11 7
Цитата Сообщение от EEjester Посмотреть сообщение
а если второй файл весит пару метров например?
И что страшного? Всё равно эти два метра придется перемещать.
0
1 / 1 / 5
Регистрация: 28.03.2013
Сообщений: 299
27.07.2015, 14:04  [ТС] 8
пример пожалуйста. не получается!!!
0
1 / 1 / 5
Регистрация: 28.03.2013
Сообщений: 299
29.07.2015, 06:07  [ТС] 9
проблема решена вот так:
Assembler
1
copy /b C:\1\1.zip + C:\1\4.txt + C:\1\46.exe C:\1\miki.exe
вызываю WinExec.
0
4546 / 3764 / 1260
Регистрация: 14.04.2014
Сообщений: 17,490
Записей в блоге: 18
29.07.2015, 07:11 10
Лучший ответ Сообщение было отмечено EEjester как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
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;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.07.2015, 07:11

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как склеить несколько файлов в один
Добрый вечер, уважаемые форумчане. Опыт программирования у меня небольшой. Помогите с написанием...

Склеить два куска кода в один
Помогите склеить два кода в один ,чтобы вышла программа ,которая при выборе варианта 1-будет...

Склеить два видеофайла из SD карты в один
Нужно склеить два видеофайла из sd карты в один. Оба одинаковых форматов, сняты на камеру. Слышал...

Склеить несколько .obj в один .exe
Когда использовал старую версию MVS2008, то написал пару незамысловатых классов. После перехода на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.