Perl Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

Perl Examples

Quick Start
Perl Unicode
Perl Byte Array
Perl Certs
Perl Email
Perl Encryption
Perl FTP
HTML-to-XML
Perl HTTP
Perl IMAP
Perl MHT
Perl MIME
Perl RSA
Perl S/MIME
Perl Signatures
Perl Socket
Perl Spider
Perl Tar
Perl Upload
Perl XML
Perl XMP
Perl Zip

More Examples...
String
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA

Unreleased...
Bzip2
LZW
Bz2
Icon

 

 

 

 

 

 

 

Create EXE that Downloads Zip from URL and Extracts

Creates an EXE that downloads a .zip from a URL and extracts.

Download Chilkat Perl Module

use chilkat;

$zip = new chilkat::CkZip();

#  Any string unlocks the component for the 1st 30-days.
$success = $zip->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  This example creates a .exe that downloads the .zip from
#  http://www.chilkatsoft.com/testData/testWithSetup.zip,
#  unzips it, and runs the setup.exe contained within.
#  This is an actual URL that can be tested. The setup.exe
#  is a do-nothing program that simply displays a dialog box
#  with an "OK" button.
$zip->put_ExeSourceUrl("http://www.chilkatsoft.com/testData/testWithSetup.zip");

#  Set the AutoTemp property to create an EXE that
#  extracts to an auto-chosen temp directory:
$zip->put_AutoTemp(1);

#  Indicate the file within the .zip that should be run after
#  extraction:
#  Note: You may download the .zip at http://www.chilkatsoft.com/testData/testWithSetup.zip
#  and examine it. You'll see that the "setup.exe" has a path
#  within the .zip, therefore you must specify the path as it
#  exists within the .zip:
$zip->put_AutoRun("bin/setup.exe");

#  Indicate that we do not want a main dialog, but we *do* want
#  a progress dialog.
$zip->SetExeConfigParam("ShowMain","0");
$zip->SetExeConfigParam("ShowProgress","1");

#  Customize the progress dialog:
$zip->SetExeConfigParam("ProgressTitle","This is the progress dialog title");
$zip->SetExeConfigParam("ProgressCaption","This is the progress dialog caption");

#  Write "mySfx.exe"
$success = $zip->WriteExe("mySfx.exe");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

print "EXE Created!" . "\n";
 

Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2007 Chilkat Software, Inc. All Rights Reserved.