:Приветствую
Хочу вот разобрать такой вопрос: Как мона программно заархивировать и разархивировать файлы?
Исследуемый архив содержит несколько файлов. При запуске программы нужно его разархивировать куда надо, а, поработав с его файлами, заархивировать их обратно.
Если есть маленькие проги-архиваторы (любые, желательно поменьше размером), то посоветуйте.
Вот, помогите. плз

поищи по форуму, это не первый топик

Компонентики есть :-)
Если дашь мыло - вышлю
Сам использую, и хелп есть.

Это сообщение отредактировал(а) Marriage - 25.1.2005, 15:41

Цитата(Marriage @ 25.1.2005, 15:36)

Сам использую - чуть-чуть (на 100-150 байт хуже RAR-a  )

А мне? интересно что это за алгоритм такой, небось ppm2 извращенный.

http://www.torry.net/pages.php?id=300

Мда ...
С моим траффиком до конца месяца ничего не получиться ...
ДАю Линк ...


ZipForge, 2.40
http://soft.mail.ru/program_page.php?grp=7112

Юзайте на здоровье.

ZipForge, 2.40 Знаем знаем, только это старье уже есть 2.59 и
вообще лутше всего качать с офф сайтов.

Ещё есть FlexCompres. Создатели обещают сжати лучше чем у WinRar, в чём и убедился. В компоненте есть функция шифрования.

Marriage, гуд! А поменьше нету компонентика?

Budy
Поискал бы, да траффика осталось 8 метров до 1 февраля ...

Цитата

ZipForge, 2.40 Знаем знаем, только это старье уже есть 2.59

Архив называется zf_259, наверно это и есть последние

Это сообщение отредактировал(а) Marriage - 26.1.2005, 16:30

Это нужно перепробовать кучу компонентов и определить, который тебе больше подходит. Вряд ли кто задавался этой целью. Как правило на 2-м - 3-м компоненте находят наиболее подходящий и успокаиваются.
Я использую компонент, который дает минимальный размер программы 100кб (без использоватия Forms).
А использовать стандартный ZLib не пробовал? Может для твоих целей хватит и этого?

ZLib
Добавлено @ 20:10
Мнето впринципе любой, даже без сжатия мона. Главно чтоб мона было 12 файлов в один объединить

Может, тогда самому можно написать, без сжатия?

Каким образом? У меня 4 шт. BMP, 7 шт. TXT и 1 шт. со своей кодировкой.
Ха, я раньше пробовал такой ерундой заниматься, делал так:

Для каждого из n файлов сначала записывал его размер с пробелами на конце, чтоб потом считавать удобно было (ex: '1234 '), т.е. скока в нем символов, а потом попорядку переписывал символы из етого файла в свой. Разкодировка аналогична.
Вот тока с большими файлами (>2 Mb) тормозит. Хотя работает отлично
Ну, принципе такой свой код меньше текста в проге займет

Добавлено @ 08:22
А, забыл совсем, мне зачем архивто надо! чтоб без запуска программы мона было и самому посмотреть что там.

Вариант №1 - засунуть все в ресурс.
Вариант №2:

Код

type  TFileNfo=packed record    fn: string[8];    size: integer;    offset: LongInt;  end;

При сохранении количество файлов известно. offset первого файла будет (SizeOf(TFileNfo)+1)*kolvo. Заполняешь структуру первого файла, прописываешь в файл. К смещению первого файла прибавляешь его размер, получаешь смещение второго. Пишешь второй и т.д. Потом делаешь структуру, где имя файла=''; Тоже запихиваешь в файл. Потом просто туда же загоняешь файлы.
В результате у тебя в начале файла будет список файлов с именами, размерами и смещением в файле. Читать файл просто: Считываешь заголовки. Находишь нужное имя. Получаешь смещение, делаешь Seek в это место, делаешь BlockRead размером файла. Все файл в памяти. Работает очень быстро, особенно, если сразу считать все заголовки в память, а не считывать каждый раз. Для файлов до 100Мб будет работать быстрее архиватора.
На винте, правда, будет занимать побольше, но инсталлящию можно также целиком в архив запихать, так что размер тут не пострадает.

Вот набросал решение. Немного корявенько, но работает.
Если хорошо печесать репу, то можно оптимизировать по скорости.
Если еще сильнее почесать, то можно написать класс для работы с файлами AllInOne;

Код

type  TFileNfo=packed record    fn: string[8];    size: integer;    offset: LongInt;  end; procedure Save(fn:string; fl:TStringList); // сохранить файлы в один // fn-имя файла, fl-список файлов, которые запихивать var  k,i:  integer;  f:    TFileStream;  s:    file;  o:    integer;  r:    TFileNfo;  p:    ^byte; begin  f:=TFileStream.Create(fn,fmCreate);  k:=fl.Count;  f.Write(k,SizeOf(k)); // сохраняем количество файлов  o:=SizeOf(r)*k+SizeOf(k); // смещение первого файла  if k>0 then for i:=0 to k-1 do begin // сохраняем заголовки    Assign(s,fl[i]); Reset(s,1);    r.fn:=fl[i]; r.size:=FileSize(s);    r.offset:=o; o:=o+r.size;    f.Write(r,SizeOf(r));    CloseFile(s);  end;  if k>0 then for i:=0 to k-1 do begin // сохраняем файлы    Assign(s,fl[i]); Reset(s,1);    r.size:=FileSize(s);    GetMem(p,r.size);    BlockRead(s,p^,r.size,r.offset);    f.Write(p^,r.size);    FreeMem(p,r.size);    CloseFile(s);  end;  f.Free; end; procedure Load(fl, fn:string; var s:TMemoryStream); // чтение нужного файла из кучи var  k,i:  integer;  f:    TFileStream;  p:    ^byte;  r:    TFileNfo; begin  f:=TFileStream.Create(fl,fmOpenRead);  s.Clear;  f.Read(k,SizeOf(k)); i:=0; // читаем количество файлов  while i<k do begin // читаем заголовки файлов пока не найдем нужный    f.ReadBuffer(r,SizeOf(r));    if r.fn=fn then i:=k; // так можно получить и список файлов в файле    inc(i);  end;  if i>k then begin //если есть нужный файл - читаем его    f.Seek(r.offset,soFromBeginning);    GetMem(p,r.size);    f.ReadBuffer(p^,r.size);    s.WriteBuffer(p^,r.size); // и запихиваем в стрим    FreeMem(p,r.size);  end;  f.Free; s.Position:=0; end;

Пример сохранения нескольких файлов в один.
(Примеры на текстовых файлах, но подойдут и любые другие)

Код

procedure TForm1.Button1Click(Sender: TObject); var  fl: TStringList; begin  fl:=TStringList.Create;  fl.Add('odin.txt');  fl.Add('dva.txt');  fl.Add('tri.txt');  Save('file.dat',fl);  fl.Free; end;

А теперь пример чтения файла. Чтение идет в TMemoryStream, потому что почти все компоненты, несущие информацию имеют функцию LoadFromStream;

Код

procedure TForm1.Button2Click(Sender: TObject); var  m: TMemoryStream; begin  m:=TMemoryStream.Create;  Load('file.dat','tri.txt',m);  memo1.Lines.LoadFromStream(m);  m.Free; end;

Snowy, отлично! Код посмотрел вроде должно сработать, счас попробую.

А чтобы разархивировать

?

Угу. Это не трудно было и самому проверить ;)
Добавлено @ 09:11
Кстати, если тебе нужно просто сохранять, то вместо TMemoryStream используй TFileStream.

Вот хороший пример, сам использовал для создания BackUp'ов, при помощи ZLib:

Пытаюсь склеить 2 файла методом



Файл result создается, но не проигрывается. Собственно вопрос в чем дело и что я не так делаю, и можно ли вообще таким методом склеить эти 2 wav файла? Я посмотрел много источников, но так и не нашел нормального объяснения соединения 2 wav файлов. 


Это сообщение отредактировал(а) hairbaton - 25.3.2009, 22:43

  

TStringList для работы со строками.

Добавлено через 1 минуту и 1 секунду
hairbaton, и вообще из названия темы можно узнать, что речь здесь об архивировании.

hairbaton, файлы не так склеиваются , да и wav файлы просто так не склеишь 

и это в тяпницу вечером такие вот вопросы, а, это ж издевательство  над мосгом 

Может тогда можно как-то просто склеить midi файлы? 

hairbaton, ты так и не понял? ты говоришь о склеивании файлов в теме об архивировании! Создай новую тему, дай осмысленное название и опиши проблему.