Delphi DLL

Add Text from a StringBuilder to a ZIP Using AddSb

See more Zip Examples

This example demonstrates how to use the AddSb method to add text from a StringBuilder object as a file entry within a ZIP archive.

The text is converted to bytes using the specified character encoding before being stored in the ZIP archive.

This method is useful for dynamically generating text files entirely in memory without creating temporary files on disk.

Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
zip: HCkZip;
sb: HCkStringBuilder;

begin
success := False;

zip := CkZip_Create();

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

// Create a StringBuilder containing text data.
sb := CkStringBuilder_Create();

CkStringBuilder_AppendLine(sb,'Line 1: Hello World!',True);
CkStringBuilder_AppendLine(sb,'Line 2: This text came from a StringBuilder.',True);

// Add the StringBuilder contents as a UTF-8 text file
// stored in the ZIP archive as "docs/readme.txt".
success := CkZip_AddSb(zip,'docs/readme.txt',sb,'utf-8');
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);
CkStringBuilder_Dispose(sb);

end;