Архивация

[Mihanches]

Взял код с форума:

var 

  source,dest:TFileStream;//поток-источноик, поток-приёмник 

  CompresSstream:TCompressionStream;    // поток – архиватор 

  bytesread:integer;   

  mainbuffer:array[0..1023] of char; // буфер 

begin 

  source:=TFileStream.Create(’< Путь к файлу >’,fmOpenRead);   // создаём поток – источник 

  dest:=TFileStream.Create(’< Путь к результату >’,fmCreate); // создаём поток – приёмник 

  CompresSstream:=TCompressionStream.Create(clMax,dest);// создаём поток – архиватор c                   //          максимальной степенью сжатия 

  try                // НА ВСЯКИЙ ПОЖАРНЫЙ 

   repeat                      

    bytesread:=source.Read(mainbuffer,buffer_size);    // считываем из источника в буфер 

    CompresSstream.Write(mainbuffer,bytesread);     //   записываем из буфера в поток – архиватор 

    until bytesread<1024;   // всё это до тех пор пока весь источник не будет считан 

  except    //   если всё же возникнет какая-нибудь оБшибка!!! 

   CompresSstream.free; 

   source.Free; 

   dest.Free; 

   exit; 

  end;   // всё прошло успешно 

  CompresSstream.free; 

  source.Free; 

  dest.Free; 

end;

Возникает вопрос: в каком формате должен быть файл-результат? И еще:Unit1.pas(49): E2003 Undeclared identifier: 'buffer_size'
Что значит ошибка, и как ее исправить?

[Человек_Борща]

Вероятно всего вот так:
{
В Uses дописываем Zlib;
}

const
  Buffer_Size=1024; //Размер буфура.

var 
  source,dest:TFileStream;
  CompresSstream:TCompressionStream;    
  bytesread:integer;
  mainbuffer:array[0..1023] of char;
begin 
  source:=TFileStream.Create(’< Путь к файлу >’,fmOpenRead);
  dest:=TFileStream.Create(’< Путь к результату >’,fmCreate);
  CompresSstream:=TCompressionStream.Create(clMax,dest);
  try  
   repeat                      
    bytesread:=source.Read(mainbuffer,buffer_size);  
    CompresSstream.Write(mainbuffer,bytesread);     
    until bytesread<1024;  
  except   
   CompresSstream.free; 
   source.Free; 
   dest.Free; 
   exit; 
  end;   
  CompresSstream.free; 
  source.Free; 
  dest.Free; 
end;

ошибка значит что переменная не обьявлена.

Так как Zlib это ZIP то и файлы можно писать в *.Zip.

Но если в этом нет необходимости т.е. чтобы придать вид того что эти файлы понимает только ваша программа то пишем то расширение которые вы захотите.
ТупоИспользование Приведённого Кода никуда не годиться.
Его ещё напильником предстоит из квадрата в кружок обрабатывать

[Mihanches]

Работает, спасибо. Новый вопрос: я думал, что файл после упаковки можно будет отрыть WinRar'ом . Неполучилось. Как сделать так, что бы при запуске уже заархивированного файла все его содержимое (в примере можно использовть файл file.jpg) разархивировалось в папку с самим архивом?

[Человек_Борща]

По этому поводу ничего не могу сказать точно сказать. Просто никогда не требовалось распаковывать Zlib-архивы с помощью WinRar.