Open Zip from URL (OpenFromWeb)

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

Open a .zip from a URL and unzip.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    ChilkatZip2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
zip: TChilkatZip2;
success: Integer;
fileCount: Integer;
fileContents: String;
entry: IChilkatZipEntry2;
addCR: Integer;

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

  end;

//  Downloads a .zip into memory and opens it.
success := zip.OpenFromWeb('http://www.chilkatsoft.com/testData/hamlet.zip');
if (success <> 1) then
  begin
    ShowMessage(zip.LastErrorText);

  end;

//  It can be unzipped to disk:

fileCount := zip.Unzip('c:/temp');
if (fileCount < 0) then
  begin
    ShowMessage(zip.LastErrorText);

  end;

//  Alternatively, individual entries may be unzipped into memory.
//  In this case, it is unzipped into a string:

addCR := 1;
entry := zip.GetEntryByName('hamlet.xml');
if (not (entry = nil )) then
  begin
    //  If the file has bare LF line endings, add the CR to get
    //  CRLF line endings.
    fileContents := entry.InflateToString(addCR);
    Memo1.Lines.Add(fileContents);
  end;
end;