SQL Server

Zip and Keep Open

See more Zip Examples

Zip a directory tree by calling WriteZip instead of WriteZipAndClose. When WriteZip is called, the created zip is automatically opened and the zip object contains references to the compressed zip entries (mapped entries) contained within the .zip. SQL Server

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    -- This example assumes the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @zip int
    EXEC @hr = sp_OACreate 'Chilkat.Zip', @zip OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @zipPath nvarchar(4000)
    SELECT @zipPath = 'c:/temp/myFiles.zip'

    -- Initialize the zip object, which also sets the FileName property to the path of the zip to be created.
    EXEC sp_OAMethod @zip, 'NewZip', @success OUT, @zipPath

    -- Append references to files to be zipped.
    DECLARE @recurse int
    SELECT @recurse = 1
    EXEC sp_OAMethod @zip, 'AppendFiles', @success OUT, 'c:/temp/files_to_zip/*', @recurse
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @zip, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @zip
        RETURN
      END

    -- Write the .zip, but don't close the zip file.
    -- The zip file we just created is automatically opened and the zip object
    -- now contains entries that are contained within the zip.  (They are memory-mapped entries)
    EXEC sp_OAMethod @zip, 'WriteZip', @success OUT
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @zip, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @zip
        RETURN
      END


    PRINT 'Successfully created ' + @zipPath

    -- Let's look at what's in the .zip we just created..

    DECLARE @numEntries int
    EXEC sp_OAGetProperty @zip, 'NumEntries', @numEntries OUT

    DECLARE @entry int
    EXEC @hr = sp_OACreate 'Chilkat.ZipEntry', @entry OUT

    DECLARE @i int
    SELECT @i = 0
    WHILE @i < @numEntries
      BEGIN
        EXEC sp_OAMethod @zip, 'EntryAt', @success OUT, @i, @entry
        EXEC sp_OAGetProperty @entry, 'IsDirectory', @iTmp0 OUT
        IF @iTmp0
          BEGIN

            EXEC sp_OAGetProperty @entry, 'FileName', @sTmp0 OUT

            PRINT @i + ': ' + @sTmp0 + ' (directory)'
          END
        ELSE
          BEGIN

            EXEC sp_OAGetProperty @entry, 'FileName', @sTmp0 OUT
            PRINT @i + ': ' + @sTmp0
          END
        SELECT @i = @i + 1
      END

    -- Close the zip file when finished.
    EXEC sp_OAMethod @zip, 'CloseZip', NULL

    EXEC @hr = sp_OADestroy @zip
    EXEC @hr = sp_OADestroy @entry


END
GO