Felipe Monteiro de Carvalho wrote:
Hello,
I am trying to use TCompressionStream to compress a string. But the
destination stream is empty. Here is by code, thanks:
program stringcompressor;
{$apptype console}
uses
Classes, SysUtils, zstream;
var
Compressor: TCompressionStream;
Source: TStringStream;
Dest: TMemoryStream;
i: Integer;
begin
Source := TStringStream.Create('The string to be compressed');
Dest := TMemoryStream.Create();
Compressor := TCompressionStream.Create(clDefault, Dest);
try
Compressor.CopyFrom(Source, Source.Size);
Write('The result is: ');
Dest.Position := 0;
for i := 0 to Dest.Size - 1 do
IntToHex(Dest.ReadByte, 2);
What about use Compressor intead of Dest?
Joao Morais
WriteLn('');
finally
Compressor.Free;
Dest.Free;
Source.Free;
end;
end.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
