AYUDA EN LÍNEA
 WINDEVWEBDEV Y WINDEV MOBILE

Ayuda / WLanguage / Funciones WLanguage / Funciones estándar / Funciones de archivos externos
  • Decompressing a file (WINDEV)
  • Decompressing a file (WEBDEV)
fUncompress (Example)
Decompressing a file (WINDEV)
WINDEVReportes y ConsultasCódigo de Usuario (UMC) The following code is used to decompress a file. The file to decompress and the decompressed file are selected by fSelect. A progress bar is used to indicate the percentage of decompression. This progress bar will be displayed in the status bar.
// -- Click code on BTN_DecompressFile
// Initialization code
EventNum is int
FileToDecompress is string
DecompressedFile is string
ResDecompression is int
 
// Select the file to decompress
FileToDecompress = fSelect("", "", "Select the file to decompress",...
"All files (*.*)" + TAB + "*.*", "", fselOpen + fselExist)
 
// Select the decompressed file
DecompressedFile = fSelect("", "", "Select the decompressed file",...
"All files (*.*)" + TAB + "*.*", "", fselCreate)
 
// Call the event to display the progress bar
EventNum = Event("ProgBarDecompress", WinInput(), compressProgressBar)
 
// Decompress the file
ResDecompression = fUncompress(FileToDecompress, DecompressedFile)
 
// End of event
EndEvent(EventNum)
 
// Display the error message if the decompression failed
IF ResDecompression <> 0 THEN
  Error(ErrorInfo(errMessage))
ELSE
  Info("The file was decompressed")
END
// Local ProgBarDecompress procedure
PROCEDURE ProgBarDecompress(wMessage, wParam, lParam)
IF wParam < 100 THEN
  ProgressBar(wParam, 100)
  // Refresh the window
  Multitask(-1)
ELSE
  // The decompression is done
  ProgressBar()
END
Decompressing a file (WEBDEV)
WEBDEV - Código ServidorAjax The following code is used to decompress a file.
// -- Click code on BTN_DecompressFile
 
// Initialization code
EventNum is int
FileToDecompress is string
DecompressedFile is string
ResDecompression is int
 
// Select the file to decompress
FileToDecompress = "C:\MyDirectories\CompressedFile.tx_"
// Select the decompressed file
DecompressedFile = "C:\MyDirectories\File.txt"
 
// Decompress the file
ResDecompression = fUncompress(FileToDecompress, DecompressedFile)
// Display the error message if the decompression failed
IF ResDecompression <> 0 THEN
Error(ErrorInfo(errMessage))
ELSE
Info("The file was decompressed")
END
Versión mínima requerida
  • Versión 9
Esta página también está disponible para…
Comentarios
Haga clic en [Agregar] para publicar un comentario

Última modificación: 22/07/2022

Señalar un error o enviar una sugerencia | Ayuda local