Unzip Encrypted Text into a String Variable

Demonstrates how to open an encrypted .zip archive and unzip a text file directly into a string variable.

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.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;
strCsv: String;

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);
    Exit;
  end;

//  Set the password required for decrypting.
zip.DecryptPassword := 'myPassword';

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

//  Locate the file within the Zip to be unzipped into a string variable:

entry := zip.FirstMatchingEntry('*.csv');
if (not (entry = nil )) then
  begin

    //  There are a few different InflateToString methods.
    //  InflateToString allows you to control line-endings LF-only vs. CRLF
    //  InflateToString2 returns the line-endings unmodified.
    //  Both InflateToString and InflateToString2 assume the
    //  data consists of ANSI characters.
    //  The InflateToString3 method allows for text stored in different
    //  character encodings to be returned as a string

    //  This example uses InflateToString2 -- line endings are
    //  unmodified and the text is simple ANSI...

    strCsv := entry.InflateToString2();
    Memo1.Lines.Add(strCsv);

  end
else
  begin
    Memo1.Lines.Add('No matching entry found!');
  end;


end;