Текущий архив: 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.039 c
