🚀 go-pugleaf

Thanks for your help Remy, I will try this.
On another note has anyone really created a
web server (not ISS or Apache module) but
standalone web server with both SSL and
deflate support?

If not, maybe I can do an article after
I figure this out?

C++ Builder v6 SP4
Indy 9.0.15

Colin B Maharaj
Trinidad, WI

Remy Lebeau (TeamB) wrote:
> "Colin B Maharaj" <noreply@myhost.com> wrote in message 
> news:47b5dcaa$1@newsgroups.borland.com...
> 
>> This is my translation of the code....
> 
> Try this translation (there are some slight differences from yours):
> 
>     const int BufferSize = 1024;
> 
>     procedure zLibCompressStream(TStream *Source, TStream *Destination)
>     {
>         z_stream z_s;
>         int rc
> 
>         // 1. Buffers for input and output
>         BYTE SourceBuffer [BufferSize];
>         BYTE DestinationBuffer[BufferSize];
> 
>         // 2. Prepare the zLib data record
>         z_init_zstream(&z_s);
>         z_s.next_in = SourceBuffer;
>         z_s.next_out = DestinationBuffer;
>         z_s.avail_out = BufferSize;
> 
>         // 2. Initialize the compression engine
>         deflateInit2(&z_s, Z_BEST_COMPRESSION, Z_DEFLATED, -15, 9, 
> Z_DEFAULT_STRATEGY);
> 
>         // Now compress the stream
>         try
>         {
>             do
>             {
>                 // 3. See if we got to feed more data to the compression 
> engine
>                 if( (z_s.avail_in == 0) && (Source.Position < Source.Size) )
>                 {
>                     z_s.next_in = SourceBuffer;
>                     z_s.avail_in = Source->Read(SourceBuffer, BufferSize);
>                 }
>                 // if input data completely depleted
> 
>                 // 4. Compress the data
>                 rc = deflate(&z_s, (z_s.avail_in == 0) ? Z_FINISH : 
> Z_STREAM_END);
> 
>                 // 5. Check if we got compressed data to write to the 
> destination
>                 if( (z_s.avail_out == 0) || (rc == Z_STREAM_END) )
>                 {
>                     Destination->WriteBuffer(DestinationBuffer, BufferSize - 
> z_s.avail_out);
>                     z_s.avail_out = BufferSize;
>                     z_s.next_out = DestinationBuffer;
>                 }
>                 // if got data available for writing
>             }
>             // 6. Repeat until buffers exhausted
>             while( (rc == Z_OK) && !((rc == Z_STREAM_END) && (z_s.avail_out 
> == BufferSize) && (z_s.avail_in == 0)) );
>         }
>         __finally
>         {
>             // 7. Clean up the engine data
>             deflateEnd(&z_s);
>         }
>         // try finally - clean up after engine
>     }
> 
> 
> Gambit
> 
>