Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.06;
Скачать: CL | DM;

Вниз

архиватор   Найти похожие ветки 

 
LexXL   (2006-07-19 15:26) [0]

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


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

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


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


 
easy ©   (2006-07-19 16:56) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2006.08.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.059 c
4-1145148582
Ку Ку
2006-04-16 04:49
2006.08.06
Консольное приложение, глюки с кодировкой


2-1153395744
MOUSE911
2006-07-20 15:42
2006.08.06
Таблицы БД


2-1153225334
DesperadO666
2006-07-18 16:22
2006.08.06
Новая сторока в DBGrid


3-1149238320
jiny
2006-06-02 12:52
2006.08.06
Как программно добавлять/изменять польз.сервера, изменяя им роли


2-1152823256
Footballer
2006-07-14 00:40
2006.08.06
И снова "открыть с помощью..."