Barbara, since you have some good experience with Xceed's stuff, have you ever gotten their stream compressor to work? It seems kind of quirky and I can't get a simple compress/decompress to work:

oCompressor = CreateObject( "Xceed.StreamingCompression.1" )
oBZIP = CreateObject( "Xceed.BZip2CompressionFormat.1" )
oCompressor.CompressionFormat = oBZIP
cData = "hello world"
? cData
ccompressed = oCompressor.Compress( cdata, .t. )
? cCompressed
cOut = oCompressor.Decompress( cdata , .t. )
? cOut

On the second-to-last line I get the error "OLE IDispatch exception code 0 from Xceed.StreamingCompression.1: Could not decompress the data".

?


>Rick, here's the code I'm running from a PRG. Works fine.
>
>Barbara
>
>** Here we create an Xceed Zip object called oXCeed

>oXceed = CREATEOBJECT("XceedSoftware.XceedZip.4")