| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

архиватор

LexXL ©   (2006-07-19 15:26:00) 

Может кто работал с zlib, подключаю ее в uses;
а она начинает ругаться на TCompessionStream,
----------------
var
source,dest:TFileStream;//поток-источноик, поток-приёмник
CompresSstream:TCompressionStream;   //поток-архиватор
bytesread:integer;  
mainbuffer:array[0..1023] of char; //буфер
begin
source:=TFileStream.Create('<Путь к файлу>',fmOpenRead);
----------------
вроде как этот класс должен быть основным
что делать??

---

easy   (2006-07-19 16:56:00) [1]

http://dfc.com.ru/?sid=2&id=7&itemid=4

---

SergP.   (2006-07-19 16:23:00) [2]

Я когда-то делал так:


procedure datasave;
var
 fstream:TFileStream;
begin
 fStream:=TFileStream.Create('filename',fmCreate);
 try
   with TCompressionStream.Create(clMax,fstream) do
     try
       WriteBuffer(....) ;
     finally
       Free;
     end;
 finally
   fstream.free;
 end;
end;


Но это я строки и массивы компресировал и вгонял в файл.

А если нужно файл сжать, то сделаешь еще
source:TFileStream
откроешь файл и из этого потока заберешь что нужно и запихнешь в
TCompressionStream

---

Наверх