Night Owl 25/nopv25.iso/040A/DELZIP10.ZIP/VCL.ZIP/ZIPDLL.PAS

Pascal/Delphi Source File | 1997-04-07 | 5.4 KB | 154 lines

{ ZIPDLL.PAS   - Delphi v2 translation of file "wizzip.h" by Eric W. Engler }
{ Import Unit for ZIPDLL - put this into the "uses" clause of any
  other unit that wants to access the DLL. }

{ Note: Don't use VC++ 4.2 to generate DLLs.  It's DLLEXPORT has a bug
  that causes them to be cdecl instead of stdcall. Also, OCXs generated
  with 4.2 can't fire Delphi events. }

unit ZIPDLL;

interface

uses Windows, ZCallBck;


{ This record is very critical.  Any changes in the order of items, the
  size of items, or modifying the number of items, may have disasterous
  results.  You have been warned! }
Type ZipParms = packed record
         Handle: THandle;
         Caller: Pointer;    { "self" referance of the Delphi form }
                     { This is passed back to us in the callback function
                     so we can direct the info to the proper form instance
                     - thanks to Dennis Passmore for this idea. }
         Version: LongInt;   { version of DLL we expect to see }
         ZCallbackFunc: ZFunctionPtrType;
         fTraceEnabled: LongBool;

         {============== Begin Zip Flag section ============== }
         fEncryptVerify: LongBool; { not used yet }
         fSuffix: LongBool;   { not used yet }
         fEncrypt: LongBool;  { not supported yet }

         { include system and hidden files }
         fSystem: LongBool;

         { Include volume label }
         fVolume: LongBool;

         { Include extra file attributes (read-only, unix timestamps, etc) }
         fExtra: LongBool;

         { Do not add directory names to .ZIP archive }
         { see also: fJunkDir }
         fNoDirEntries: LongBool;

         { Only add files newer a specified date }
         { See the "Date" array below if you set this to TRUE }
         fDate: LongBool;

         { Give a little more information to the user via message boxes }
         fVerboseEnabled: LongBool;

         { Quiet operation - the DLL won't issue any messages at all. }
         { Delphi program MUST handle ALL errors via it's callback function. }
         fQuiet: LongBool;

         { Compression level (0 - 9; 9=max, 0=none) }
         { All of these levels are variations of deflate. }
         { I strongly recommend you use one of 3 values here:
              0 = no compression, just store file
              3 = "fast" compression
              9 = "best" compression }
         fLevel: longint;

         { Try to compress files that appear to be already compressed
           based on their extension: .zip, .arc, .gif, ... }
         fComprSpecial: LongBool;

         { translate text file end-of-lines }
         fCRLF_LF: LongBool;

         { junk the directory names }
         { If true, this says not to save dirnames as separate entries,
           in addition to being save with filenames. }
         { see also: fNoDirEntries }
         fJunkDir: LongBool;

         { Recurse into subdirectories }
         fRecurse: LongBool;

         { Allow appending to a zip file }
         fGrow: LongBool;

         { Convert filenames to DOS 8x3 names - for compatibility
           with PKUNZIP v2.04g, which doesn't understand long filenames }
         fForce: LongBool;

         { Delete orig files that were added or updated in zip file }
         { This is a variation of Add }
         fMove: LongBool;

         { Delete specified files from zip file }
         fDeleteEntries: LongBool;

         { Update zip -- if true, rezip changed, and add new files in fspec }
         { This is a variation of Add }
         fUpdate: LongBool;

         { Freshen zip -- if true, rezip all changed files in fspec }
         { This is a variation of Add }
         fFreshen: LongBool;

         { junk the SFX prefix on the self-extracing .EXE archives }
         fJunkSFX: LongBool;

         { Set zip file time to time of newest file in it }
         fLatestTime: LongBool;
         {============== End Zip Flag section ============== }

         { Cutoff Date for Add-by-date; add files newer than this day }
         { This is only used if the "fDate" option is TRUE }
         { format = MMDDYY plus a trailing null }
         Date: Array[0..7] of Char;

         { Count of files to add or delete - don't forget to set this! }
         argc: LongInt;

         { ptr to name of zip file }
         PZipFN: PChar;

         seven: LongInt; { pass a 7 here to validate struct size }

         { Array of filenames contained in the ZIP archive }
         PFileNames: array[0..FilesMax] of PChar;
      end;

 type
   PZipParms = ^ZipParms;
   PWord    = ^Word;
   ZipOpt = (Add, Delete);
   { NOTE: Freshen, Update, and Move are only variations of Add }
   { The LIST function is being handled by the TZREADER Delphi VCL }

{ The LIST function is being handled by the TZREADER Delphi VCL }

{ Main call to execute a ZIP add or Delete.  This call returns the
  number of files that were sucessfully operated on. }
function DllZipUpFiles(ZipRec: PZipParms): DWORD; stdcall;

procedure GetDllVersion(VersionHi: PWord;
                        VersionLo: PWord);
                        stdcall;
implementation

function DllZipUpFiles(ZipRec: PZipParms): DWORD;
                       external 'ZIPDLL.DLL' index 2;

procedure GetDllVersion(VersionHi: PWord;
                        VersionLo: PWord);
                        external 'ZIPDLL.DLL' index 3;

end.