|
|
Post by Heiko Schrder on Mar 10, 2004 17:45:34 GMT -5
I use the event OnEndZip and i believe there will appear problems with files greater 2GB.
You use
ZipEndZip(Sender: TObject; FName: String; UncompressedSize, CompressedSize, CurrentZipSize: Integer);
If I use the sizes I will get problems, maybe..
|
|
|
|
Post by Kevin on Mar 11, 2004 8:34:25 GMT -5
Yes, you may have found something there. I will look into it. Thanks for pointing it out.
Kevin
|
|
Heiko
New Member
Posts: 18
|
Post by Heiko on Sept 20, 2005 11:12:51 GMT -5
The problem is still in latest version 3.06!  |
|
Heiko
New Member
Posts: 18
|
Post by Heiko on Sept 20, 2005 11:40:30 GMT -5
So I changed:
VCLZip.pas Line 93
from
TEndZipFileEvent = procedure(Sender: TObject; FName: string; UncompressedSize,
CompressedSize, CurrentZipSize: LongInt) of object;
to
TEndZipFileEvent = procedure(Sender: TObject; FName: string; UncompressedSize,
CompressedSize, CurrentZipSize: BigInt) of object;
|
|
|
|
Post by Kevin on Sept 21, 2005 19:30:20 GMT -5
Heiko, I appologize for that, I simply missed that one. I have made the change myself, and it will be part of the next build. Thanks for reminding me!  Kevin |
|
