Compression Syntax 2

[vernpace]

Craig Boyd's website has been down for awhile:

http://www.sweetpotatosoftware.com/

Is he still around? I need to get syntax on his compression FLL.

 

[stirfry]

My understanding is that Craig is aware of this.

There has been no comment as to when or whether it is to be fixed.

When I had previously downloaded it, there was a txt file with details. If you do not have it then please ask for specific info.

 

[GriffMG]

This is not a working example, just to give you the idea...

SET LIBRARY TO ("VFPCOMPRESSION.FLL")
m.FILECOUNT = ADIR(TMPFILES,m.DATALOCATION+"*.*")
IF m.FILECOUNT > 0
	ZIPOPEN("SOMETHING.ZIP",m.DATALOCATION, .F.)
	FOR I = 1 TO m.FILECOUNT
		ZIPFILE(m.DATALOCATION+TMPFILES[I,1], .F.)
	NEXT
	ZIPCLOSE()
ENDIF

SET LIBRARY TO ("VFPCOMPRESSION.FLL")
UNZIPOPEN(m.DATALOCATION+m.ZIPFILENAME)
m.FILECOUNT = UNZIPFILECOUNT()
UNZIPSETFOLDER(m.DATALOCATION)
FOR I = 0 TO m.FILECOUNT
	UNZIPBYINDEX(I,m.DATALOCATION,.T.)
NEXT I
UNZIPCLOSE()

Regards

Griff
Keep [Smile]ing

There are 10 kinds of people in the world, those who understand binary and those who don't.

I'm trying to cut down on the use of shrieks (exclamation marks), I'm told they are not good for you. ​

 

[Olaf Doschke]

You can get the most important usage to zip and unzip here:

https://drive.google.com/file/d/0B-gN-YdXB9YPX29VSmtsdHVnaDg/view

Start the prg, locate the fll and and it will make a test run, creating a file, ziping it, unzipping the result zip and checking the result is correct.
Notify me, if you can't download, I set this file to be publicly available.

Bye, Olaf.

 

[mplaza]

You can get a snapshot of the site using waybackmachine:

http://web.archive.org/web/20150415...ressionUpdateFixAndZipFileCommentSupport.aspx

 

[vernpace]

mplaza, that is exactly what I need. Thank you.

I always knew that someday he would take the website down. It is wrong to expect him to keep it running indefinitely. I'm just glad I was smart enough to download the FLLs years ago.