(PHP ActiveX) Compress String Feed to Base64

This example receives incoming text data in chunks, compresses as a stream, and accumulates the compressed data in base64.

The purpose is to demonstrate the BeginCompressStringENC, MoreCompressStringENC, and EndCompressStringENC methods.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows Note: The php_com_dotnet.dll may need to be enabled inside of php.ini.

<?php

// 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 new COM('Chilkat_9_5_0.Chilkat.StringBuilder')
$sbCompressedBase64 = new COM("Chilkat.StringBuilder");

// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.Compression')
$compress = new COM("Chilkat.Compression");
$compress->Algorithm = 'deflate';
$compress->Charset = 'utf-8';
$compress->EncodingMode = 'base64';

// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.StringBuilder')
$sbIndex = new COM("Chilkat.StringBuilder");

for ($i = 0; $i <= 24; $i++) {
    // Note: It is possible (and normal) for a BeginCompress* or MoreCompress* method to return
    // an empty string (or 0 bytes).  When this happens, the input data is not lost.  It will be flushed
    // in a subsequent call.
    $sbIndex->Clear();
    $sbIndex->AppendInt($i);
    if ($i == 0) {
        $sbCompressedBase64->Append($compress->beginCompressStringENC($sbIndex->getAsString()));
    }
    else {
        $sbCompressedBase64->Append($compress->moreCompressStringENC($sbIndex->getAsString()));
    }

    $sbCompressedBase64->Append($compress->moreCompressStringENC(': This is a line of data to be compressed...\r\n'));
}

// Flush any remaining output.
$sbCompressedBase64->Append($compress->endCompressStringENC());

print 'The base64 encoded compressed text:' . "\n";
print $sbCompressedBase64->getAsString() . "\n";

// Now decompress in one call:
$originalText = $compress->decompressStringENC($sbCompressedBase64->getAsString());
print $originalText . "\n";

?>