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

[dmitriegorovih]

TZCompressionStream

А что это такое и с какого он модуля?

[Sanprof]

в 2009-м модуль 'ZlibEx' в uses подключаешь и юзаешь.

[dmitriegorovih]

День какойто не везучий у меня А как запихать Stream image(а)?

[Sanprof]

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

День какойто не везучий у меня А как запихать Stream image(а)?

var
  ComStream: TZCompressionStream;
  Source: TFileStream;
  Dest: TMemoryStream;
.....
  Dest := TMemoryStream.Create;
  try 
    Source := TFileStream.Create('C:\5.png', fmShareDenyNone);
    try
      ComStream := TZCompressionStream.Create(Dest);
      try
        ComStream.CopyFrom(Source, 0);
      finally
        freeAndNil(ComStream);
      end;
    finally
      FreeAndNil(Source); 
    end;
    Dest.SaveToFile('C:\5.zip');
  finally
    FreeAndNil(Dest); 
  end;

[dmitriegorovih]

Var
  ComStream: TZCompressionStream;
  Source: TFileStream;
  Dest: TMemoryStream;
.....
  Dest := TMemoryStream.Create;
  try 
    Source := TFileStream.Create('C:\5.png', fmShareDenyNone);
    try
      ComStream := TZCompressionStream.Create(Dest);
      try
        ComStream.CopyFrom(Source, 0);
      finally
        freeAndNil(ComStream);
      end;
    finally
      FreeAndNil(Source); 
    end;
    Dest.SaveToFile('C:\5.zip');
  finally
    FreeAndNil(Dest); 
  end;

Вот и я так сделал но архиватор пишет что zip архив повреждён может надо этимже методом и разархивировать?

[Sanprof]

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

может надо этимже методом и разархивировать?

разархивировать нужно только этим методом, т.к. ZLIB это просто алгоритм сжатия информации, а если пробовать открывать любым из Архиваторов (WinRar, Zip), то открыть не получится, т.к. у них свои алгоритмы создания архива (запись служебной информации и т.п.), открой любой rar в Hex-editor и увидешь, что начальные биты содержат служебную информацию.
P.S.
Я когда писал свой архиватор я тоже придумывал алгоритм запоминания путей, имен файлов, их размеров и т.п.

[dmitriegorovih]

Ясно ну а как разархивировать и да ещё можно именно stream image(a)

[Sanprof]

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

Ясно ну а как разархивировать

var
  Source: TFileStream;
  Dest: TMemoryStream;
  DecStream: TZDecompressionStream;
......
  Source := TFileStream.Create('C:\5.zip', fmShareDenyNone);
  try
    dest := TMemoryStream.Create;
    try
      DecStream := TZDecompressionStream.Create(Source);
      try
        Dest.CopyFrom(DecStream, 0);
      finally
        FreeAndNil(DecStream);
      end;
      Dest.SaveToFile('C:\5.png');
    finally
      FreeAndNil(Dest);
    end;
  finally
    FreeAndNil(Source);
  end;

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

да ещё можно именно stream image(a)

ну тут попробуй сам похимичить, ведь по сути Stream Image(a) это тоже поток в памяти (TMemoryStream)...

[dmitriegorovih]

Спасибо буду разбирать

DecStream := TZDecompressionStream.Create(Source );

здесь он креатит из памяти вот сюда попробую память image(a) засунуть.

[Utkin]

Случайно нашел упоминание компонента ZipForge. Сам не юзал.