Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cannot find entry point Compress in the dll (zlib.dll)
Message
General information
Forum:
Visual FoxPro
Category:
Third party products
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01352942
Message ID:
01352949
Views:
24
>Method 1 with lower case did the trick. How do i decompress it back ?
>Jaime
*---------------------------------------------------------------------------
declare integer uncompress in ('d:\webserv\zlib.dll') ;
		string @Dest, integer @DestLen, ;
		string @Source, integer SourceLen

function FlateDecode_Decode(Encoded, UnEncoded, UnEncodedLen)

	*=zLib_Declare()
	
	local sts
	
                     && optional parameter 
	if( empty(m.UnEncodedLen) )
		UnEncodedLen = 4*1024*1024
	endif
	
	UnEncoded	= repl(chr(0), m.UnEncodedLen)
	
	sts =  uncompress(@m.UnEncoded, @m.UnEncodedLen, @m.Encoded, len(m.Encoded))
	
	do case
	case sts >= 0
		UnEncoded = left(m.UnEncoded, m.UnEncodedLen)
		return empty(m.sts)
		
	otherwise
		UnEncoded = ''
		assert FALSE
		return FALSE
	endcase
endfunc
*---------------------------------------------------------------------------
Gregory
Previous
Reply
Map
View

Click here to load this message in the networking platform