Automated Zipping (ISAPI app)

[JR Nicolet]

Hello - I am trying to get VCPZip to work in an ISAPI application (D7).
One of the last statement in the code below (Marked <<<-- ) causes an error indicating that the files is being used by another application, even under debugging conditions...

The app is expected to respond to clients connecting over internet. Each time, it should collect a number of files, zip them all on the fly and stream the resulting archive to the client's machine.

I am very new to VCPzip (I tried a couple of years ago but then had to work on another project until now)

What am I doing wrong?
JR Nicolet

Code extract:
==========================
FS: TFileStream;
ZippedFile := 'C:\testfile.zip';

FS := TFileStream.Create(ZippedFile,fmCreate); // open the filestream before writing to it

VCLZip1.ZipName := ZippedFile; // Assign filename to Zip component
VCLZip1.Recurse := False; // do NOT go into subdirectories
VCLZip1.StorePaths := False; //* Don't Keep path information */
VCLZip1.PackLevel := 9; //* Highest level of compression */

iZipCount := 0; // initialize
FOP loop // used to cycle through a collection of files to be compressed
...
sSelectedFile := ... here, code to locate a file
VCLZip1.FilesList.Add(sSelectedFile);
iZipCount := iZipCount + 1 ; // increment our count
...
END FOR Loop

iCountOfZippedFiles := VCLZip1.Zip; // PERFORM ACTUAL ZIPPING

FS := TFileStream.Create(ZippedFile,fmOpenRead); <<<<-- causes an error
try
Response.ContentType := 'application/zip';
Response.SetCustomHeader('Content-Disposition', 'filename=' +
ExtractFilename(ZippedFile));
Response.ContentStream := FS;
Response.SendResponse;
Handled := True;
finally
FS.Free;
end; // try
==========================

[Kevin]

Try calling VCLZip1.ClearZip before trying to open the zip file yourself.

[JRN]

Thanks Kevin!

It worked!

I am having trouble with filenames: because this is an ISAPI app running under IIS (Windows 2000 Server), all the filenames are relative to where the DLL is located on the server (i.e. "../data/clientfiles/abc.jpg" for a directory on the same level as the DLL directory, so we have to move up then back down to DATA)
This creates some problems when the receiving client is trying to decompress them with, say, WINzip.

Is it possible to tell VCLzip to add the file found at "../data/clientfiles/abc.jpg" , but give it the name abc.jpg in the archive file?

Regards,

Jean-Rene

[Kevin]

As long as you don't set StorePaths property to True, VCLZip won't store path information, but...

VCLZip can't really use relative paths in the FilesList as there is no sense of current directory. This was done to help make VCLZip thread safe. Maybe you can assign a virtual drive name?