Post by mycwcgr on Nov 1, 2003 6:19:16 GMT -5
The following is my program:
//------------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VCLUnZip, VCLZip;
type
TForm1 = class(TForm)
VCLZip1: TVCLZip;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
VCLZip1.Recurse := True;
//------------Part1-------------------
VCLZip1.FilesList.Add('C:\AMESRC\*.*');
VCLZip1.MultiZipInfo.MultiMode := mmNone;
VCLZip1.ZipName:='c:\temp\cw_all.zip';
VCLZip1.Zip;
//------------Part2-------------------
VCLZip1.FilesList.Clear;
VCLZip1.FilesList.Add('C:\AMESRC\*.*');
VCLZip1.MultiZipInfo.MultiMode := mmBlocks;
VCLZip1.MultiZipInfo.BlockSize := 2915328;
VCLZip1.ZipName:='c:\temp\cw_288M.zip';
VCLZip1.Zip;
//------------Part3-------------------
VCLZip1.FilesList.clear;
VCLZip1.FilesList.Add('C:\AMESRC\*.*');
VCLZip1.MultiZipInfo.MultiMode := mmBlocks;
VCLZip1.MultiZipInfo.BlockSize := 1457600;
VCLZip1.ZipName:='c:\temp\cw_144M.zip';
VCLZip1.Zip;
Showmessage('done');
end;
end.
//------------------------------------------------------------------------
The result is:
Part1: cw_all.zip 3354kb
Part2: cw_288m.zip 507kb
cw_288m.zip.z01 2847kb
Part3: cw_144m.zip 507kb
cw_144m.zip.z01 2847kb
Why is the size of the Part2 and the Part3 same? I test many times and the result is same,
especialy when VCLZip1.MultiZipInfo.BlockSize is set with a larger value than that of the second time.
