(Delphi DLL) Create a Zip Entirely in Memory

Demonstrates how to create a .zip from in-memory byte data and strings, and to write the .zip to an in-memory image.

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, FileAccess, ZipEntry, CkByteData, Zip, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: HCkCrypt2;
zip: HCkZip;
success: Boolean;
binFileData: HCkByteData;
entry: HCkZipEntry;
zipFileInMemory: HCkByteData;
fac: HCkFileAccess;

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

crypt := CkCrypt2_Create();
zip := CkZip_Create();

success := CkZip_NewZip(zip,'test.zip');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

// Add the bytes 0x00 0x01 0x02 0x03 ... 0x0F as a file in the .zip
binFileData := CkByteData_Create();
success := CkCrypt2_Decode(crypt,'000102030405060708090A0B0C0D0E0F','hex',binFileData);
entry := CkZip_AppendData(zip,'binaryData.dat',binFileData);
CkZipEntry_Dispose(entry);

// Add the string "Hello World!" to the .zip
entry := CkZip_AppendString2(zip,'helloWorld.txt','Hello World!','utf-8');
CkZipEntry_Dispose(entry);

zipFileInMemory := CkByteData_Create();
success := CkZip_WriteToMemory(zip,zipFileInMemory);

// We could save these files to a file, and it is a valid .zip
fac := CkFileAccess_Create();
success := CkFileAccess_WriteEntireFile(fac,'test.zip',zipFileInMemory);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkFileAccess__lastErrorText(fac));
    Exit;
  end;

Memo1.Lines.Add('Zip Created!');

CkCrypt2_Dispose(crypt);
CkZip_Dispose(zip);
CkByteData_Dispose(binFileData);
CkByteData_Dispose(zipFileInMemory);
CkFileAccess_Dispose(fac);

end;