как работать с 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;

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