Lazarus Pascal

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.

Lazarus Pascal

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Zip,
  Chilkat.StringBuilder;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  zip: TZip;
  sb: TStringBuilder;

begin
  success := False;

  zip := TZip.Create;

  success := zip.NewZip('stringBuilderData.zip');
  if (success = False) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  Create a StringBuilder containing text data.
  sb := TStringBuilder.Create;

  sb.AppendLine('Line 1: Hello World!',True);
  sb.AppendLine('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 := zip.AddSb('docs/readme.txt',sb,'utf-8');
  if (success = False) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  Write the ZIP archive to disk and close it.
  success := zip.WriteZipAndClose();
  if (success = False) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  WriteLn('ZIP archive created successfully.');


  zip.Free;
  sb.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.