PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → How to decompress/ extract a .wdz file???
How to decompress/ extract a .wdz file???
Iniciado por B, 31,may. 2017 17:11 - 3 respuestas
#1
Miembro registrado
2 mensajes
Publicado el 31,mayo 2017 - 17:11
Hi,

I have been sent a file, "drawings.wdz". I am not a software developer. I could not find any standalone program online to extract the compressed archive. I downloaded the express version of WinDev and ran the following code with no luck.

ResOpenArchive is int
ResExtractAll is int

// Open an archive
ResOpenArchive = zipOpen("Archive", "E:\Archives\drawings.wdz")

IF ResOpenArchive = 0 THEN
// Extract all the files from the archive
ResExtractAll = zipExtractAll("Archive","E:\Extracted",zipDirectory)
ELSE ResOpenArchive <> 0 THEN
Error(zipMsgError(ResOpenArchive))
END


Could someone please let me know where I am going wrong?
#2
Publicado el 31,mayo 2017 - 18:23
I already answered to your previous message...

Le 5/31/2017 à 9:11 AM, B a écrit :
Hi,

I have been sent a file, "drawings.wdz". I am not a software developer.
I could not find any standalone program online to extract the compressed
archive. I downloaded the express version of WinDev and ran the
following code with no luck.

ResOpenArchive is int
ResExtractAll is int

// Open an archive
ResOpenArchive = zipOpen("Archive", "E:\Archives\drawings.wdz")

IF ResOpenArchive = 0 THEN
// Extract all the files from the archive
ResExtractAll =
zipExtractAll("Archive","E:\Extracted",zipDirectory)
ELSE ResOpenArchive <> 0 THEN
Error(zipMsgError(ResOpenArchive))
END


Could someone please let me know where I am going wrong?
#3
Miembro registrado
34 mensajes
Publicado el 02,junio 2017 - 15:01
The WDZIP tool cannot be distributed on its own due to software licensing restrictions.

Res is int
ZipErrNum is int
ZipErrNum = zipOpen("Archive",usefile)
IF ZipErrNum = 0 THEN
HourGlass()
MESSAGE("Closing open files")
HClose("*")
MESSAGE("Extracting data......WAIT")
Res = zipExtractAll("Archive",sZipdirectory)
HourGlass(False)
IF Res <> 0 THEN
MESSAGE("PROBLEM!")
Info("There was a problem restoring")
ELSE
zipClose("Archive")
END
ELSE
Error(zipMsgError(ZipErrNum))
END

--
Regards,

Norman
#4
Miembro registrado
2 mensajes
Publicado el 02,junio 2017 - 17:15
Thanks Fabrice, the "WD Zip" example found in the WinDev software worked perfectly.

Thanks for the code and explaination, Norman
→ Volver a WINDEV 2024