Reading and writing zip files?

[dmacqueen]

This may be my latest number one priority on JWARS. Any ideas, pointers, or -especially- code appreciated.

Thanks.

Donald

| jWarrior |

[marten]

Something like http://www.schrievkrom.de/blog/?p=37?

[schepurny]

I'm not sure how much this helps, but I vaguely recall doing this about 7-8 years ago. I just used the java classes for zipping/unzipping a jar file, wrapped them with a more convenient helper class, and then called them from a Smaltalk client using rmi over iiop passing in a filename to be input or output.

It worked fine after some trial and error. I'm sure there would be some GC issues if that type of operation was executed on a frequent basis.

[marten]

I'm not sure how much this helps, but I vaguely recall doing this about 7-8 years ago. I just used the java classes for zipping/unzipping a jar file, wrapped them with a more convenient helper class, and then called them from a Smaltalk client using rmi over iiop passing in a filename to be input or output.

It worked fine after some trial and error. I'm sure there would be some GC issues if that type of operation was executed on a frequent basis.

Well, then it might be much easier to call zip/unzip executable directly ....

[schepurny]

It absolutely is. It all depends on how transparent you want extracting and creating zip files to be.

[PhotonDemon]

I use the following to zip a file with InfoZip's zip program. I think is does so quietly, without opening an windows.

Lou

zip: fileName to: zipFileName
"Private - zip the file."
| cmdStream cmdLine result startUpInfo os startedOk processInfo exitCodeBytes lastZipExitCode |

cmdStream := WriteStream on: ''.
cmdStream
nextPutAll: 'Zip32.Exe -j9 ';
nextPut: $"; nextPutAll: zipFileName; nextPut: $";
space;
nextPut: $"; nextPutAll: fileName; nextPut: $".
cmdLine := cmdStream contents.

startUpInfo := OSStartupinfo new.
startUpInfo
dwFlags: 1; "1 - startf_useshowwindow"
wShowWindow: 0. "0 - do not show window"

processInfo := OSProcessInformation new.
os := OSCall new.
startedOk := os
createProcess: nil
lpszCommandLine: cmdLine
lpsaProcess: 0
lpsaThread: 0
fInheritHandles: false
fdwCreate: 0
lpvEnvironment: 0
lpszCurDir: nil
lpsiStartInfo: startUpInfo
lppiProcInfo: processInfo.

result := startedOk ifTrue: [
processInfo hProcess waitForSingleObject: -1.
exitCodeBytes := ByteArray new: 4.
processInfo hProcess getExitCodeProcess: exitCodeBytes.
processInfo hProcess closeHandle.
processInfo hThread closeHandle.
lastZipExitCode := exitCodeBytes int32At: 0.
(lastZipExitCode <= 1).
] ifFalse: [false].

^result.

[gkipe]

I would like to get my hands on the code that "schepurny" is talking about, so I went to the link that "marten" posted and can't get the App to import in VA. Has anyone had luck in the import, or does anyone have this RMI-IIOP code? Thanks, Garet

[louis_andriese]

on http://www.smalltalking.net/Goodies/VisualAGE/index.htm you can download a wrapper for the opensource zlib-library from infozip. It supports zipping and unzipping on windows-platforms.

Kind regards,

Louis

[marten]

on http://www.smalltalking.net/Goodies/VisualAGE/index.htm you can download a wrapper for the opensource zlib-library from infozip. It supports zipping and unzipping on windows-platforms.

Kind regards,

Louis

Fine, this seems to be the code I thought I published again ... (in a wrong way as I now know). Good to know, where the source comes from. Be aware, that this software depends on the "old" zip.dll - the newer ones have a new API and are located around 2005. You might not be able to exchange the actual dll with that one in the archive.

Marten

[schepurny]

I would like to get my hands on the code that "schepurny" is talking about, so I went to the link that "marten" posted and can't get the App to import in VA. Has anyone had luck in the import, or does anyone have this RMI-IIOP code? Thanks, Garet

Well that was a few companies ago for me so I no longer have that code. It's fairly simple though, there's plenty of java and C++ examples out there to unzip a file, just call them from VA.