Fórum Zlib - Comprimindo Strings #297850

Não sei dizer se você fez certo ou errado sua adaptação, mas via de regra os algoritmos para compactação não funcionam direito quando a quantidade de bytes/caracteres a compactar é pequena (não sei dizer o quanto é ´pequeno´). Se você observar um programa tipo WinZIP, quando o arquivo é pequeno, geralmente ele não comprime o arquivo, pois não vale a pena.

bom agora fiz assim... se o texto ficar maior... ele não compacta.. mas bota um ´!´ na frente pra dizer que não compactou.. caso contrário.. ele compacta e coloca um ´¬´...

Em todo o caso.. estou enviando 1 caracter a mais.. não sei se é bom...

Alguém têm um jeito menos burro de fazer isso? hehehe

Amigos testei esse codigo de compactacao de strings. A descompactacao Nao funciona com textos longos. E tb nao funciona com letras repetidas.

Ex: se vc pede pra ele compactar jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj

Quando pede pra desconpactar ele traz jj

Coloquei tb o conteudi de um txt de 2k e na descompactacao so me retornou a primeira linha do texto.

Alguem sabe como consertar o código pra ele funcionar corretamente?
Acho que tem algo a ver com essa variavem Buf ...

Joananjr:
Segue as funções para compactar e descompactar textos longos, com ou sem imagens:

function CompressString(Source: WideString): WideString;
var
ms: TMemoryStream;
stSource : TStringStream;
CompStream: TCompressionStream;
begin
Result := EmptyStr;
if (Source <> EmptyStr) then
begin
ms := tMemoryStream.Create;
stSource := TStringStream.Create(Source);
CompStream := TCompressionStream.Create (clMax, ms);
CompStream.CopyFrom(stSource, Length(Source));
CompStream.Free;
ms.position := 0;
SetLength(Result,Ms.size );
ms.read ( Result[1],ms.size);

ms.Free;
stSource.Free;
CompStream := nil;
ms := nil;
end
else
begin
Result := Source;
end;
end;

function DeCompressString (Source: WideString): WideString;
var
ms: tMemoryStream;
Decomp: TDecompressionStream;
C: Char;
begin
Result := EmptyStr;
if (Source <> EmptyStr) and (Pos('{\\rtf',Source) = 0) and (Source <> #0) then
begin
ms := tMemoryStream.Create;
ms.Write ( Source[1],Length(Source));
ms.position := 0;
DeComp := TDecompressionStream.Create (ms);
try
try
While deComp.Read ( c ,1 )<> 0 DO
begin
Result := Result + c;
end;
except
result := Source;
end;
finally
decomp.free;
ms.free;
Decomp := nil;
ms := nil;
end;
end
else Result := Source;
end;