mORMot and Open Source friends
Check-in [182f8b264c]
Check-in [182f8b264c]
Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| Comment: | {2761} increased the UnCompressStream() buffer to 256KB instead of 64KB to speedup UnZip(filename) process for instance |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
182f8b264c9a58f140d9bf1e627d6c66 |
| User & Date: | ab 2016-06-28 11:39:16 |
|
2016-06-28
| ||
| 11:43 | {2762} new overloaded TZipRead.Unzip() method expecting a TStream parameter - with associated regression tests check-in: 79d1db0d97 user: ab tags: trunk | |
| 11:39 | {2761} increased the UnCompressStream() buffer to 256KB instead of 64KB to speedup UnZip(filename) process for instance check-in: 182f8b264c user: ab tags: trunk | |
| 07:30 | {2760} initial step for SynPdf compatibility outside the Windows/VCL platform - not finished yet check-in: 16b743267b user: ab tags: trunk | |
Changes to SynZip.pas.
4881 4882 4883 4884 4885 4886 4887 4888 4889 4890 4891 4892 4893 4894 4895 |
function UnCompressStream(
src: pointer; srcLen: integer; aStream: TStream; checkCRC: PCardinal;
ZlibFormat: Boolean): cardinal;
// result:=dstLen checkCRC(<>nil)^:=crc32 (if aStream=nil -> fast crc calc)
var strm: TZStream;
code: integer;
Bits: integer;
buf: array[word] of byte;
procedure FlushBuf;
var Count: integer;
begin
Count := SizeOf(buf) - strm.avail_out;
if Count=0 then exit;
if CheckCRC<>nil then
CheckCRC^ := crc32(CheckCRC^,@buf,Count);
|
| |
4881 4882 4883 4884 4885 4886 4887 4888 4889 4890 4891 4892 4893 4894 4895 |
function UnCompressStream(
src: pointer; srcLen: integer; aStream: TStream; checkCRC: PCardinal;
ZlibFormat: Boolean): cardinal;
// result:=dstLen checkCRC(<>nil)^:=crc32 (if aStream=nil -> fast crc calc)
var strm: TZStream;
code: integer;
Bits: integer;
buf: array[word] of cardinal; // 256KB of temporary buffer on stack
procedure FlushBuf;
var Count: integer;
begin
Count := SizeOf(buf) - strm.avail_out;
if Count=0 then exit;
if CheckCRC<>nil then
CheckCRC^ := crc32(CheckCRC^,@buf,Count);
|
Changes to SynopseCommit.inc.
1 |
'1.18.2760'
|
| |
1 |
'1.18.2761'
|