(Delphi ActiveX) 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.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
zip: TChilkatZip;
success: Integer;
saveExtraPath: Integer;
entry: IChilkatZipEntry;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

zip := TChilkatZip.Create(Self);

// Intialize the zip object by calling NewZip.
success := 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('/temp/a/hamlet.xml',saveExtraPath);
if (success <> 1) then
  begin
    Memo1.Lines.Add(zip.LastErrorText);
    Exit;
  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
    Memo1.Lines.Add(zip.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('Zip created!');
  end;
end;