![]() |
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
(Visual FoxPro) Compress String Feed to Base64This example receives incoming text data in chunks, compresses as a stream, and accumulates the compressed data in base64. Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loSbCompressedBase64 LOCAL loCompress LOCAL loBdCompressed LOCAL loSbUncompressedChunk LOCAL i LOCAL lcOriginalText lnSuccess = 0 * This example assumes the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loSbCompressedBase64 = CreateObject('Chilkat.StringBuilder') loCompress = CreateObject('Chilkat.Compression') loCompress.Algorithm = "deflate" loCompress.Charset = "utf-8" loCompress.EncodingMode = "base64" loCompress.FirstChunk = 1 loCompress.LastChunk = 0 loBdCompressed = CreateObject('Chilkat.BinData') loSbUncompressedChunk = CreateObject('Chilkat.StringBuilder') FOR i = 0 TO 24 IF (i = 24) THEN loCompress.LastChunk = 1 ENDIF loSbUncompressedChunk.Clear() loSbUncompressedChunk.AppendInt(i) loSbUncompressedChunk.Append(": This is a line of data to be compressed..." + CHR(13) + CHR(10)) loCompress.CompressSb(loSbUncompressedChunk,loBdCompressed) loCompress.FirstChunk = 0 NEXT ? "The base64 encoded compressed text:" ? loBdCompressed.GetEncoded("base64") * Decompress in one call: lcOriginalText = loCompress.DecompressStringENC(loBdCompressed.GetEncoded("base64")) ? lcOriginalText RELEASE loSbCompressedBase64 RELEASE loCompress RELEASE loBdCompressed RELEASE loSbUncompressedChunk |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.