[Code] function OnDownloadProgress(const Url, Filename: String; const Progress, ProgressMax: Int64): Boolean; @@ -1841,11 +1842,16 @@ end;
See DownloadTemporaryFile for other considerations.
Extracts the specified 7-Zip archive to the specified directory, with or without using path names. Returns zero if successful, nonzero otherwise
-The archive must not be encrypted.
Uses an embedded version of the "7z ANSI-C Decoder" from the LZMA SDK by Igor Pavlov, as-is, except that Unicode support and error messages were improved and that it outputs memory requirements.
+Extracts the specified 7-Zip archive to the specified directory, with or without using path names.
+Returns zero if successful, nonzero otherwise
+The archive must not be encrypted.
+Set OnExtractionProgress to a function to be informed of progress, or nil otherwise.
TOnExtractionProgress is defined as:
+TOnExtractionProgress = function(const ArchiveFileName, FileName: string; const Progress, ProgressMax: Int64): Boolean;
+Return True to allow the extraction to continue, False otherwise.
+Extract7ZipArchive uses an embedded version of the "7z ANSI-C Decoder" from the LZMA SDK by Igor Pavlov, as-is, except that Unicode support and error messages were improved and that it outputs memory requirements.
All output of the decoder is logged if logging is enabled, including error messages but excluding empty lines.
The decoder has the following limitations, as written by Igor Pavlov in the LZMA SDK:
-It reads only "FileName", "Size", "LastWriteTime" and "CRC" information for each file in archive.
@@ -1858,6 +1864,27 @@ You can create .7z archive with 7z.exe, 7za.exe or 7zr.exe:
If you have big number of files in archive, and you need fast extracting, you can use partly-solid archives:
7za.exe a archive.7z *.htm -ms=512K -r -mx -m0fb=255 -m0d=512K
In that example 7-Zip will use 512KB solid blocks. So it needs to decompress only 512KB for extracting one file from such archive.
CreateExtractionPage
+CreateDownloadPage
+DownloadTemporaryFile
+ExtractTemporaryFile
+[Code]
+function OnExtractionProgress(const ArchiveFileName, FileName: string; const Progress, ProgressMax: Int64): Boolean;
+begin
+ Log(Format(' %s\%s: %d of %d bytes done.', [ArchiveFileName, FileName, Progress, ProgressMax]))
+ Result := True;
+end;
+
+function InitializeSetup: Boolean;
+begin
+ try
+ Result := Extract7ZipArchive(ExpandConstant('{tmp}\Archive.7z'), ExpandConstant('{app}'), True, @OnExtractionProgress) = 0;
+ except
+ Log(GetExceptionMessage);
+ Result := False;
+ end;
+end;See CodeDownloadFiles.iss for an example.
TDownloadWizardPage
DownloadTemporaryFile
+CreateOutputProgressPage
Creates a wizard page to extract 7-Zip archives and show progress.
+Set OnExtractionProgress to a function to be informed of progress, or nil otherwise.
+Unlike the other types of wizard pages, progress pages are not displayed as part of the normal page sequence (note that there is no AfterID parameter). A progress page can only be displayed programmatically by calling its Show method.
Call the Show method to activate and show the page. When you're finished with it, call the Hide method to revert to the previous page.
+Always put the Hide call inside the finally part of a try..finally language construct, as demonstrated in CodeDownloadFiles.iss. Not calling Hide will result in the wizard being permanently stuck on the progress page.
+To add a new archive to extract, call the Add method. Always call the Clear method before adding the first file.
+To start the extraction, call the Extract method. An exception will be raised if there was an error. Otherwise, Extract returns the number of archives extracted.
+Set the ShowArchiveInsteadFile property to True to show the name of the archive which is being extracted to the user instead of the names of the files inside the archive.
+See Extract7ZipArchive for other considerations and the definition of TOnExtractionProgress.
See CodeDownloadFiles.iss for an example of CreateDownloadPage which works very similar to CreateExtractionPage.
TExtractionWizardPage
+Extract7ZipArchive
CreateOutputProgressPage