Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Modify Name of File Stored within Zip when Creating a .zip
Demonstrates how to create a zip where the filename within the .zip is different than the filename that was added from the filesystem. uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ChilkatZip2Lib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var zip: TChilkatZip2; success: Integer; saveExtraPath: Integer; entry: IChilkatZipEntry2; begin zip := TChilkatZip2.Create(Self); success := zip.UnlockComponent('anything for 30-day trial'); if (success <> 1) then begin ShowMessage('Failed to unlock zip component'); end; // Intialize the zip object by calling NewZip. zip.NewZip('myZip.zip'); // Add a reference to a file on disk to the zip object. // (When appending files to a zip, the files are not actually // read into memory. References to the file(s) are added. // When WriteZip is called, the referenced files are streamed in // and compressed to the .zip.) saveExtraPath := 0; success := zip.AppendOneFileOrDir('c:/temp/a/hamlet.xml',saveExtraPath); if (success <> 1) then begin ShowMessage(zip.LastErrorText); end; // The zip object references a single file. // Retrieve the entry object... entry := zip.GetEntryByIndex(0); // Set the entry's filename to anything you want: entry.FileName := 'somethingElse.xml'; // Note: Internally, the zip component retains the name of // the file referenced. The current setting of the zip entry's // FileName property is stored in the .zip when writing. // The zip written here will contain somethingElse.xml success := zip.WriteZipAndClose(); if (success <> 1) then begin ShowMessage(zip.LastErrorText); end else begin ShowMessage('Zip created!'); end; end; |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.