Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Вниз
как работать с 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.035 c
