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