We help IT Professionals succeed at work.

Need a zip component.

SupWang
SupWang asked
on
Hi all,
I need a good free zip component.
I have downloaded a component, it name is "Delphi Zip".  But I can't install it at all. When I install the component, two lines can't be complied. I am using Delphi3.
This component at  http://www.geocities.com/SiliconValley/Network/2114/zipbeta.html
And it need to copy its dlls to windows system directory, but I don't want this, can I move this dlls to my program's directory? Because maybe other programs will use other version of this component.

And if you are using other good Zip component, Please tell me.

Thanks, supwang

 
procedure TZipMaster.AddStreamToFile( Filename: String; FileDate, FileAttr: DWORD );
var
   st: SYSTEMTIME;              //------>  can't compile this line.  error message: Undeclared identifier: SYSTEMTIME
   ft: FILETIME;              //------>  can't compile this line.  error message: Undeclared identifier: FILETIME
FatDate, FatTime: Word;
begin
 if Length( Filename ) > 0 then
   begin
  FFSpecArgs.Clear();
  FFSpecArgs.Append( FileName );
   end;
 if FileDate = 0 then
   begin
      GetLocalTime( st );
      SystemTimeToFileTime( st, ft );
      FileTimeToDosDateTime( ft, FatDate, FatTime );
      FileDate := (DWORD(FatDate) shl 16) + FatTime;
   end;
 // Check if wildcards are set.
 if FFSpecArgs.Count > 0 then
   begin
  if (AnsiPos( FFSpecArgs.Strings[ 0 ], '*' ) > 0) or (AnsiPos( FFSpecArgs.Strings[ 0 ], '?' ) > 0) then
         ShowZipMessage( AD_InvalidName, '' )
      else ExtAdd( 1, FileDate, FileAttr, nil );
   end else ShowZipMessage( AD_NothingToZip, '' );
end;
Comment
Watch Question

Mohammed NasmanSoftware Developer
CERTIFIED EXPERT

Commented:
Hello

For free zip and unzip look at this site, you will get the free delphi components and samples
http://www.geocities.com/SiliconValley/Network/2114/zipbeta.html

and for more components look at
http://www.torry.net/compressstd.htm
http://delphi.about.com/compute/delphi/cs/vclcompression/index.htm

Best regards
Mohammed Nasman
Mohammed NasmanSoftware Developer
CERTIFIED EXPERT

Commented:
Hello

For free zip and unzip look at this site, you will get the free delphi components and samples
http://www.geocities.com/SiliconValley/Network/2114/zipbeta.html

and for more components look at
http://www.torry.net/compressstd.htm
http://delphi.about.com/compute/delphi/cs/vclcompression/index.htm

Best regards
Mohammed Nasman

Commented:
it is a shareware
www.ziptv.com use unzip component

Commented:
SYSTEMTIME is declared in Windows unit
Listening !!

Commented:
listening
Commented:
most of zip components is wrappers to dll that you need deploy with your application.
I use VCLZip component(http://www.donet.com/~vclzip/). Native Delphi source and full compatible with WinZIP, but not free(~50$)

Commented:
Also, if you don't need to be pkzip compatable then you can use the zlib library bundled with delphi

GL
Mike

Author

Commented:
Hi all,
I am trying the VCLZip...  

Hi Slavak,
How to create one zip file to two or more floppy disks?(The zip file maybe have 6M or 10M or more....)  and How to unzip it?

Regards, supwang

Author

Commented:
My means is "Multiple disk spanning".

Regards, supwang

Author

Commented:
Hi Slavak,
I know how to do it now.

Regards, supwang

Author

Commented:
Hi Slavak,
How can I wipe floppy disks before write zip file to it? I have to do that, because when the disks have data, will cause some errors.

Regards, supwang

Author

Commented:
My VCLZip version is 2.18.

Author

Commented:
Now the version is 2.22. Please help me.

Author

Commented:
Thanks.

Best regards, supwang

Explore More ContentExplore courses, solutions, and other research materials related to this topic.