Delphi DLL

Add Binary Data to a ZIP Using AddBd

See more Zip Examples

This example demonstrates how to use the AddBd method to add binary data from a BinData object as a file entry within a ZIP archive.

The data is created entirely in memory, added to the ZIP as data/binary.dat, and then written to disk.

Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
zip: HCkZip;
bd: HCkBinData;

begin
success := False;

// Create a new ZIP archive.
zip := CkZip_Create();

success := CkZip_NewZip(zip,'inMemoryData.zip');
if (success = False) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

// Create a BinData object containing binary content.
bd := CkBinData_Create();

// Append some bytes as hexadecimal.
// The decoded bytes will become the contents of the ZIP entry.
success := CkBinData_AppendEncoded(bd,'000102030405060708090A0B0C0D0E0F','hex');
if (success = False) then
  begin
    Memo1.Lines.Add(CkBinData__lastErrorText(bd));
    Exit;
  end;

// Add the BinData contents as a file entry within the ZIP.
// The file will be stored as "data/binary.dat" inside the ZIP archive.
success := CkZip_AddBd(zip,'data/binary.dat',bd);
if (success = False) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

// Write the ZIP archive to disk and close it.
success := CkZip_WriteZipAndClose(zip);
if (success = False) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

Memo1.Lines.Add('ZIP archive created successfully.');

CkZip_Dispose(zip);
CkBinData_Dispose(bd);

end;