Uncompress source data and returns the uncompressed data ByteArray or String.
vUnCompress = ZLib.UnCompress (Source as Variant, [OutputType as OutputTypes = otByteArray])
| Where | Type | Optional | Default | Description |
|---|---|---|---|---|
| Source | Variant | Source data to compress. ByteArray or String | ||
| OutputType | OutputTypes | yes | otByteArray | Type for the return value. One of ByteArray, Variant ByteArray, String or MultiByte String |
Variant
This function returns variant containing ByteArray, variant ByteArray, String or MultiByte string.
ZLib - Accept compressed data on server-side ASP |
<%
ReceiveFile()
'Server-side function
'This function accepts and saves uploaded data compressed by the Compress method on the servers ASP
Sub ReceiveFile()
Dim SourceData, FileName, FileContents, ByteArray
'Test if this is request from our client
FileName = Request.ServerVariables("HTTP_FILENAME")
If FileName <> "" Then 'This is a request from our client
'Read compressed file from the source stream
SourceData = Request.BinaryRead(Request.TotalBytes)
'Uncompress the source file
Set ZLib = CreateObject("ScriptUtils.ZLib")
Set FileContents = ZLib.UnCompress(SourceData)
'Save source file to the destination directory (current directory)
FileContents.SaveAs Server.MapPath(GetFileName(FileName))
End If
End Sub
Function GetFileName(FullPath)
'Returns file name from full path
Dim Pos
Pos = InstrRev(FullPath, "\")
GetFileName = Mid(FullPath, Pos + 1)
End Function
%> |
Implements zlib Compress and Uncompress functions. Lets you compress/uncompress files, or send compressed data over http/https connections.
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz