By the way your response is worth well over 3 stars :-)
Many thanks for your help

Jaime

>>Dear all
>>I have the following code to try and compress a string:

>>lcOutput = "this string is to be compressed"
>>llen = LEN(lcOutput)
>>lcBuff = SPACE(LEN(lcOutput)*1.2)
>>lnFinalSize = LEN( lcBuff )
>>DECLARE integer Compress IN d:\webserv\zlib.dll as zlibCompress ;
>> string @ dest, integer @ destlen, string src, integer srcLen
>>Res = zlibCompress( @lcBuff, @lnFinalSize, lcOutput, lLen )
>>

>>The last line fails, with the error message found in the subject. While googling a bit for the error, i saw suggestions to register the dll. I try to register, and i get the following message: "zlib.dll was loaded, but the DLLRegisterServer entry point was not found. The file cannot be registered. I don't know where did i get that version of zlib, maybe trying a newer version?
>>
>>Jaime
>
>Jaime,
>
>You do not need to register
>
>Try this
>(1)
>

>&& lower case
>DECLARE integer compress IN d:\webserv\zlib.dll as zlibCompress ;
> string @ dest, integer @ destlen, string src, integer srcLen
>
>

>
>or (2)
>

>#define	TRUE	.T.
>#define	FALSE	.F.
>
>
>#define Z_NO_FLUSH      0
>#define Z_PARTIAL_FLUSH 1 
>*	/* will be removed, use Z_SYNC_FLUSH instead */
>#define Z_SYNC_FLUSH    2
>#define Z_FULL_FLUSH    3
>#define Z_FINISH        4
>*/* Allowed flush values ; see deflate() below for details */
>
>#define Z_OK            0
>#define Z_STREAM_END    1
>#define Z_NEED_DICT     2
>#define Z_ERRNO        (-1)
>#define Z_STREAM_ERROR (-2)
>#define Z_DATA_ERROR   (-3)
>#define Z_MEM_ERROR    (-4)
>#define Z_BUF_ERROR    (-5)
>#define Z_VERSION_ERROR (-6)
>*/* Return codes for the compression/decompression functions. Negative
> * values are errors, positive values are used for special but normal events.
> */
>
>*/* compression levels */
>#define Z_NO_COMPRESSION         0
>#define Z_BEST_SPEED             1
>#define Z_BEST_COMPRESSION       9
>#define Z_DEFAULT_COMPRESSION  (-1)
>
>
>*/* compression strategy ; see deflateInit2() below for details */
>#define Z_FILTERED            1
>#define Z_HUFFMAN_ONLY        2
>#define Z_DEFAULT_STRATEGY    0
>
>*/* Possible values of the data_type field */
>#define Z_BINARY   0
>#define Z_ASCII    1
>#define Z_UNKNOWN  2
>
>
>*/* The deflate compression method (the only one supported in this version) */
>#define Z_DEFLATED   8
>
>* /* for initializing zalloc, zfree, opaque */
>#define Z_NULL  0 
>
>*/* for compatibility with versions less than 1.0.2 */
>#define zlib_version zlibVersion()
>
>
>declare integer compress2 in d:\webserv\zlib.dll as zlibCompress ;
>		string @Dest, integer @DestLen, ;
>		string @Source, integer SourceLen, integer CompressionLevel
>
>
>                       local EncodedLen, sts, stsmsg
>	
>	
>	EncodedLen	= ceiling(len(m.UnEncoded) * 1.01 + 12)
>	Encoded		= repl(chr(0), m.EncodedLen)
>	
>	sts =  compress2(@m.Encoded, @m.EncodedLen, @m.UnEncoded, len(m.UnEncoded), Z_BEST_COMPRESSION)
>	
>	do case
>	case m.sts >= 0
>		Encoded = left(m.Encoded, m.EncodedLen)
>		return empty(m.sts)
>		
>	otherwise
>		Encoded = ''
>		assert FALSE
>		return FALSE
>	endcase
>