|
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Compress BytesDemonstrates how to compress binary data.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.FileAccess") set fac = Server.CreateObject("Chilkat.FileAccess") fileBytes = fac.ReadEntireFile("qa_data/bmp/big.bmp") If (fac.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( fac.LastErrorText) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Compression") set compress = Server.CreateObject("Chilkat.Compression") compress.Algorithm = "deflate" compressedBytes = compress.CompressBytes(fileBytes) If (compress.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( compress.LastErrorText) & "</pre>" Response.End End If success = fac.WriteEntireFile("qa_output/compressedBmp.dat",compressedBytes) If (fac.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( fac.LastErrorText) & "</pre>" Response.End End If %> </body> </html> |
||||
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.