Replace a File within a Zip

Download Chilkat Zip ActiveX

Demonstrates how to replace a file within a .zip

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    ChilkatZip2Lib_TLB,
    OleCtrls;

...

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

begin
zip := TChilkatZip2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := zip.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(zip.LastErrorText);

  end;

success := zip.OpenZip('a.zip');
if (success <> 1) then
  begin
    ShowMessage(zip.LastErrorText);

  end;

//  Locate the entry:
entry := zip.FirstMatchingEntry('*HelloWorld123.txt');

if (not (entry = nil )) then
  begin

    zip.DeleteEntry(entry);

    saveExtraPath := 0;
    success := zip.AppendOneFileOrDir('c:/temp/HelloWorld123.txt',saveExtraPath);
    if (success <> 1) then
      begin
        ShowMessage(zip.LastErrorText);

      end;

    success := zip.WriteZipAndClose();
    if (success <> 1) then
      begin
        ShowMessage(zip.LastErrorText);

      end;

    ShowMessage('Entry replaced and .zip re-written.');

  end
else
  begin
    Memo1.Lines.Add('Entry not found.');
  end;
end;