Архиватор на делфи

[dmitriegorovih]

какие нужны компоненты и вобще как это делаеться на делфи?
Просто уменя zipmaster, разархивировать нашёл как а как архивировать нет

[Sanprof]

писал я свой архиватор с помощью быблиотеки ZLIB, т.к. фирма не имеет право распостраннять левое ПО, вот и пришлось писать свой (скорость архивирования и разархивирования выше чем у ВинРара, но сжимает на 5-10% хуже), создал свой алгоритм создания архива, упаковывал: папки со вложенными папками и файлами, отдельные файлы. Но архив можно извлечь только с помощью моего архиватора. А если хотите, чтобы ВинРаром открывался, то здесь будет нужен алгоритм их сжатия, да и зачем заморачиваться все-равно лучше ВинРара не сделаете.

[dmitriegorovih]

писал я свой архиватор с помощью быблиотеки ZLIB

А можете вылажить компонент? Просто мне не обязательно сильно жимать.

скорость архивирования и разархивирования выше чем у ВинРара

эта даже и лучше

[Serge_Bliznykov]

поищите TurboPower Abbrevia
бесплатный компонент.
Есть документация и примеры (правда, всё на английской мове)...

[Sanprof]

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

А можете вылажить компонент?

ZLIB - библиотека, идет в составе делфи начиная с 7-ки и старше
в гугиле все подробно расписано как ней пользоваться, наверняка и на этом форуме немало тем.

[Alex2009]

Я когда то писал архиватор на ZLIB,если исходник найду выложу.

[dmitriegorovih]

TurboPower Abbrevia

Скачал по примерам нашел как архивировать

var
  ToStream : TMemoryStream;
begin
 ToStream := TMemoryStream.Create;
 try
 image1.Picture.Bitmap.SaveToStream(Tostream);
 AbZipKit1.AddFromStream('5.png',tostream);
 finally
 ToStream.Free;
 end;

Но вот что интересно если я загружу картинку в инспекторе обьектов в image
то при занесении в stream вопервых она стираеться, во вторых в архиве png(ка) 0 байт. Теперь сам вопрос как туда заархивировать картинку так чтобы она не стиралась?

[Sanprof]

FileStream вам в помощь

[dmitriegorovih]

FileStream вам в помощь

Не всё равно даже ещё какаята ошибка выскакивает. Вобще даже в архив не записывает.

[Sanprof]

Архивирование с помощью ZLIB

var
  ComStream: TZCompressionStream;
  Source: TFileStream;
  Dest: TMemoryStream;
.....
  Dest := TMemoryStream.Create;
  try 
    Source := TFileStream.Create('Путь к файлу', fmShareDenyNone);
    try
      ComStream := TZCompressionStream.Create(Dest);
      try
        ComStream.CopyFrom(Source, 0);
      finally
        freeAndNil(ComStream);
      end;
    finally
      FreeAndNil(Source); 
    end;
    Dest.SaveToFile('Имя файла');
  finally
    FreeAndNil(Dest); 
  end;//это при условии, что архивируемый(мые) файл(ы) имеет не большой размер(это зависит сколько оперативы будет есть TMemoryStream)