VCLZip控件的使用？

Liusp 2002-04-27 03:22:31

急需知道，请知情者告之，只要能实现文件压缩功能就行，需要设置什么属性呢？

...全文

237 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

ly_liuyang 2002-04-27

打赏
举报

a demo to you:
unit MyZip_Unit;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VCLUnZip, VCLZip,kpZipObj, filectrl;

type
TForm1 = class(TForm)
myzip: TVCLZip;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Button3: TButton;
Button4: TButton;
sfn: TEdit;
Pwe: TEdit;
incpw: TCheckBox;
Button5: TButton;
inzip: TEdit;
Button6: TButton;
outdir: TEdit;
Button7: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
var op:topendialog; i:integer;
begin
op:=topendialog.Create(nil);
op.Options:=[ofAllowMultiSelect,ofReadOnly,ofPathMustExist, ofFileMustExist];
op.Execute;
if op.FileName<> '' then
for i:= 0 to Op.Files.Count-1 do
Memo1.Lines.Add(Op.Files.Strings[i]);
op.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
With myZip do
begin
ZipName := sfn.Text;
if incpw.Checked then
password:=pwe.Text;
for i:=0 to memo1.Lines.Count-1 do
FilesList.Add(memo1.lines[i]); //* Zip all .PAS files */
Recurse := True; //* Recurse directories */
StorePaths := false; //* Keep path information */
packLevel := 9; //* Highest level of compression */
//NumberZipped := Zip; //* Return value of Zip is the actual number of files zipped */
zip;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.Clear;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;

procedure TForm1.Button4Click(Sender: TObject);
var sp:tsavedialog; savefilename:string;
begin
sp:=tsavedialog.Create(nil);
sp.Filter:='Zip file|*.zip';
sp.DefaultExt:='zip';
sp.Execute;
if sp.FileName<>'' then savefilename:=sp.FileName;
sp.Free;
sfn.Text:=savefilename;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
With myZip do
begin
ZipName := inzip.Text;
Destdir:=outdir.Text;
FilesList.Add('*.*');
DoAll := true;
if incpw.Checked then
password:=pwe.Text;
Recurse := True; //* Recurse directories */
StorePaths := true; //* Keep path information */
DoAll := False;
unzip;
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var sp:tsavedialog; savefilename:string;
begin
sp:=tsavedialog.Create(nil);
sp.DefaultExt:='zip';
sp.Execute;
if sp.FileName<>'' then savefilename:=sp.FileName;
sp.Free;
inzip.Text:=savefilename;
myzip.ZipName:=inzip.Text;
myzip.ReadZip;
myzip.FillList(memo1.lines);
end;

procedure TForm1.Button7Click(Sender: TObject);
var dir:string;
begin
dir:='c:\';
if SelectDirectory(dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
outdir.Text:=dir;
end;

end.