|
|
|
|
WLanguage Procedure llamado por zipAddFileList WLanguage Procedure ("Callback") utilizado por zipAddFileList para gestionar el progreso de los ficheros que se añaden al archivo. // 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
Sintaxis
zipAddFileList_CallBack(<Current file> , <Overall progress percentage> , <File progress percentage>)
<Current file>: Cadena de caracteres Nombre del archivo que se está procesando. <Overall progress percentage>: Integro Porcentaje de progreso de los ficheros añadidos al archivo. <File progress percentage>: Integro Porcentaje de progreso del fichero que se está añadiendo al archivo. Observaciones Si se utiliza un archivo 7z de , sólo se especifica <Porcentaje de progreso general>. <El porcentaje de progreso del archivo tendrá el mismo valor. Clasificación Lógica de negocio / UI: Código neutro
Esta página también está disponible para…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|