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

Вниз

как работать с Zlib?   Найти похожие ветки 

 
tlan   (2004-04-30 13:22) [0]

Пробую так (выковырял из примера):

uses Zlib;
...
var
 SourceStr,DestStr:TMemoryStream;
 SourceSize:Integer;
 ZStream:TCompressionStream;
begin
 if OpenDialog1.Execute then begin
   try
     SourceStr:=TMemoryStream.Create;
     DestStr:=TMemoryStream.Create;
     SourceStr.LoadFromFile(OpenDialog1.FileName);
     SourceSize:=SourceStr.Size;
     SourceStr.Position:=0;
     ZStream:=TCompressionStream.Create(clDefault,DestStr);
     ZStream.CopyFrom(SourceStr,0);
     DestStr.SaveToFile("c:\temp\myzip");
   finally
     SourceStr.Free;
     ZStream.Free;
     DestStr.Free;
   end;
 end;

Но полученный файл myzip = 0 байт
Не поскажите, что здесь не так. Спасибо.


 
Reindeer Moss Eater ©   (2004-04-30 14:50) [1]

finally
SourceStr.Free;
ZStream.Free;
DestStr.SaveToFile("c:\temp\myzip");
DestStr.Free;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.114 c
1-1083321302
Relaxxx
2004-04-30 14:35
2004.05.16
Нужно чтобы сумма преобразовывалась в определенную форму


1-1083251300
Smog
2004-04-29 19:08
2004.05.16
Разделение строки на подстроки


1-1083649698
konstantinov
2004-05-04 09:48
2004.05.16
Как вывести сообщение поверх всех окон


1-1083177631
killer
2004-04-28 22:40
2004.05.16
Кнопочка в StringGrid


1-1083228255
Senator
2004-04-29 12:44
2004.05.16
MDI