VPF::Архив с паролем - Форум программистов

maestro2k

Дата 20.6.2006, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Моё приложение написано под winapi и размер его очень важен.
Подскажите компонент или модуль, что б исползовать для архивации файлов в форматах zip или rar и иметь при этом не большой размер своего приложения.

Это сообщение отредактировал(а) maestro2k - 20.6.2006, 21:02

Romikgy

Дата 21.6.2006, 08:20 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

http://www.torry.net/pages.php?s=99
имхо здесь много смотри smile

Добавлено @ 08:20
да накрайняк в сети можно вообще исходник зипа найти

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 21.6.2006, 08:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Если нужен именно классический формат, то поищи по форуму по слову VCLZip.
Если просто нужна компрессия, то используй ZLib.
Если хочешь писать действительно маленькую программу, то загляни на сайт KOL.
Вот тут: http://www.kolnmck.ru/components/files_compress.shtml
несколько алгоритмов компрессии, заточенных под KOL.
Дают минимальный размер к программе.

Академик

Дата 21.6.2006, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник...
Сообщений: 114
Регистрация: 21.6.2006
Где: Столица РТ - Каза нь

Репутация: нет
Всего: -13

в JVCL такое есть

--------------------

IDE := D2006; DB := Firebird 1.5

maestro2k

Дата 21.6.2006, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Скачал JVCL320 не могу отинсталировать, выдает ошибку типа "не могу открыть ключь для чтения software\Borland\BDS\3.0\Personalities"
Помогите!

Poseidon

Дата 21.6.2006, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Один топик - один вопрос!

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

_hunter

Дата 21.6.2006, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

ну так посмотри что там не так с этим ключем...

--------------------

Tempora mutantur, et nos mutamur in illis...

Yanis

Дата 21.6.2006, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(maestro2k @ 21.6.2006, 17:35

)

Он вообще у тебя существует? А версия JVCL соответствует версии Delphi?

Добавлено @ 16:56
У меня в своё время всё проходило нормально на семёрке. Запустил прогу и она сама всё установила...

--------------------

*щёлк*

maestro2k

Дата 21.6.2006, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

кароче помоему это не то....
Мне нужен компонен который с экономит размер моего приложения, желатильно с 1-й функцией ЗАПАКОВАТ с паролем, но со стадартым zip чтоб можно было распаковать стандартной прогой WinRar. Можно даже без зжатия.

Добавлено @ 17:58
Может использовать стандарный ZLib??

Это сообщение отредактировал(а) maestro2k - 21.6.2006, 17:49

ShadowDancer

Дата 21.6.2006, 18:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 15.6.2006

Репутация: нет
Всего: нет

Вот код, кто-то вылаживал:

Код


unit zzh;

interface

uses SysUtils, Classes, ZLib;

const
  ERR_OK         = 0;
  ERR_FILES      = 1;
  ERR_NO_FILES   = 2;
  ERR_CREATE_ARC = 3;
  ERR_NO_ARCHIVE = 4;
  ERR_BAD_ARCHIVE= 5;
  ERR_BAD_DATA   = 6;

function PackDir(ArcName, Path: string; OnWork: TNotifyEvent = nil): byte;
{* запаковать каталог со всеми подкаталогами.
   На входе имя создаваемого архива и путь к каталогу.
   OnWork - необязателен. Выполняется в процессе запаковки. }
function UnPackDir(ArcName, Path: string; OnWork: TNotifyEvent = nil): byte;
{* Распаковать каталог.
   На входе ипя архива и путь к каталогу, куда распаковать файлы.
   OnWork - необязателен. Выполняется в процессе распаковки. }
function ArcErrorText(code: byte): string;
{* Возвращает текст ошибки }

implementation

const signature = 'ZZH'; // сигнатура. Типа VingradGZip.

function ArcErrorText(code: byte): string;
begin
  case code of
    ERR_OK:          result := 'Готово';
    ERR_FILES:       result := 'Не все файлы запакованы';
    ERR_NO_FILES:    result := 'Нет файлов для запаковки';
    ERR_CREATE_ARC:  result := 'Ошибка создания файла архива';
    ERR_NO_ARCHIVE:  result := 'Архив не найден или недоступен';
    ERR_BAD_ARCHIVE: result := 'Файл не является архивом';
    ERR_BAD_DATA:    result := 'Архив поврежден';
    else result := '';
  end;
end;

function PackDir(ArcName, Path: string; OnWork: TNotifyEvent = nil): byte;
var
  fs: TFileStream;
  cs: TCompressionStream;

function FilesScan(Dir: string): byte;
var
  sr: TSearchRec;
  s:  string;
  ln: byte;
  sz: int64;
  fs: TFileStream;
begin
  result := ERR_OK;
  if FindFirst(Dir + '*.*', faAnyFile, sr) = 0 then
  begin
    repeat
      if sr.Name[1] <> '.' then begin
        if sr.Attr and faDirectory = faDirectory then
        begin
          ln := FilesScan(Dir + sr.Name + '\');
          if result = ERR_OK then result := ln;
        end else
        if (sr.Attr and faArchive) = faArchive then
        begin
          s := Dir + sr.Name;
          try
            fs := TFileStream.Create(s, fmOpenRead or fmShareDenyWrite);
            s := copy(s, Length(path)+1, Length(s));
            ln := Length(s);
            cs.Write(ln, 1);
            cs.Write(s[1], ln);
            sz := fs.Size;
            cs.Write(sz, SizeOf(sz));
            cs.CopyFrom(fs, sz);
            fs.Free;
          except
            result := ERR_FILES;
          end;
        end;
      end;
      until FindNext(sr) <> 0;
    FindClose(sr);
  end else result := ERR_NO_FILES;
end;

begin
  if Path[Length(Path)] <> '\' then Path := Path + '\';
  try
    fs := TFileStream.Create(ArcName, fmCreate or fmShareDenyWrite);
    fs.Write(signature[1], Length(signature));
  except
    result := ERR_CREATE_ARC;
    Exit;
  end;
  cs := TCompressionStream.Create(clMax, fs);
  if Assigned(OnWork) then cs.OnProgress := OnWork;
  result := FilesScan(Path);
  cs.Free; fs.Free;
end;


function UnPackDir(ArcName, Path: string; OnWork: TNotifyEvent = nil): byte;
var
  fs,ts: TFileStream;
  ds:    TDecompressionStream;
  s:     string;
  ln:    byte;
  sz:    int64;
begin
  if Path[Length(Path)]<>'\' then Path := Path + '\';
  result := ERR_OK;
  try
    fs := TFileStream.Create(ArcName, fmOpenRead or fmShareDenyWrite);
  except
    result := ERR_NO_ARCHIVE;
    Exit;
  end;
  SetLength(s, Length(signature));
  fs.Read(s[1], Length(signature));
  ds := TDecompressionStream.Create(fs);
  if Assigned(OnWork) then ds.OnProgress := OnWork;
  if s <> signature then result := ERR_BAD_ARCHIVE
  else while (fs.Position<fs.Size) and (result=ERR_OK) do
  begin
    ds.Read(ln, SizeOf(ln));
    SetLength(s, ln);
    ds.Read(s[1], ln);
    s := Path + s;
    try
      ForceDirectories(ExtractFilePath(s));
      ts := TFileStream.Create(s, fmCreate or fmShareDenyWrite);
      ds.Read(sz, SizeOf(sz));
      ts.CopyFrom(ds, sz);
      ts.Free;
    except
      result := ERR_BAD_DATA;
    end;
  end;
  fs.Free;
end;

end.

Паковать так:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  code: byte;
begin
  code := PackDir('D:\zzh.zzh', 'C:\Path');
  ShowMessage(ArcErrorText(code));
end;

распаковывать:

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  code: byte;
begin
  code := UnPackDir('D:\zzh.zzh', 'C:\Path');
  ShowMessage(ArcErrorText(code));
end;

Только этот код пакует папку целиком

Добавлено @ 18:12
Тьфу-ты, он же без пароля... smile

maestro2k

Дата 21.6.2006, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Я же говорю, нужно что б стандартной программой WinRar разпаковать можно было бы.
Вопрос открыт!
Прошу помощи!

Это сообщение отредактировал(а) maestro2k - 21.6.2006, 19:01

Romikgy

Дата 21.6.2006, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

maestro2k, а на там где будет паковатся есть винрар?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

maestro2k

Дата 21.6.2006, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Может и не быть. Вариант командной строкой не подходит.

Snowy

Дата 22.6.2006, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(maestro2k @ 20.6.2006, 21:00

)

Подскажите компонент или модуль, что б исползовать для архивации файлов в форматах zip или rar и иметь при этом не большой размер своего приложения.

Сразу приходит на ум:
Наша фирма делает быстро, качественно, недорого.
Вы можете выбрать любые 2.

По аналогии могу предложить:
1. малый размер, с паролем, но не стандартный формат.
2. малый размер, стандартный формат, но без пароля.
3. страндартный формат, с паролем, но размер не малый (кило 100 точно накинет).

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »