WLanguage procedure called by zipAddFileList

ONLINE HELP
WINDEV, WEBDEV AND WINDEV MOBILE

Version:

Home | Sign in | English

Help / WLanguage / WLanguage functions / Standard functions / Archive functions / WLanguage procedure

WINDEV

WEBDEV

WINDEV Mobile

Others

See also

zipAddFileList (Function)

WLanguage procedure called by zipAddFileList

WLanguage procedure ("Callback") used by zipAddFileList to manage the progress of files being added to the archive.

Example

// Create an archive and add an element
// With progress bar displayed in a Progress Bar control 
MyArchive is zipArchive
NumZipErr is int

NumZipErr = zipCreate(MyArchive,"C:\Doc\Archive\ArchiveFile.zip")
IF NumZipErr = 0 THEN
	NumZipErr = zipAddFileList(MyArchive, "C:\doc\Image\House.BMP" + CR +  ...
			"C:\My Projects\WDStock\WDStock.wdp", zipDrive, zipAddFileList_CallBack)
	IF NumZipErr <> 0 THEN
		Error(zipMsgError(NumZipErr))
	END
	zipClose(MyArchive)
ELSE
	Error(zipMsgError(NumZipErr))
END

	INTERNAL PROCEDURE zipAddFileList_CallBack(CurrentFile is string, 
		OverallProgress is int, FileProgress is int)
		IF OverallProgress < 100 THEN
			ProgressBar(OverallProgress, 100, CurrentFile)
		ELSE
			ProgressBar()
		END
	END

Syntax

zipAddFileList_CallBack(<Current file> , <Overall progress percentage> , <File progress percentage>)

<Current file>: Character string

Name of the file being processed.

<Overall progress percentage>: Integer

Progress percentage of the files added to the archive.

<File progress percentage>: Integer

Progress percentage of the file being added to the archive.

Remarks

If you are using a 7z archive, only <Overall progress percentage> is specified. <File progress percentage> will have the same value.

Business / UI classification: Neutral code

Component: wd300zip.dll