![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(SQL Server) Zip and Keep OpenSee more Zip ExamplesZip 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.Note: This example requires Chilkat v11.0.0 or greater.
-- 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 |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.