Impossible de décompresser du texte Zlib

Version imprimable

Bonjour,

J'ai un petit souci, je n'arrive pas à décompresser du texte.

Auriez vous une petit idée ?

Exemple :

Citation:

Il tombe encore des grêlons,
Mais on sait bien que c'est pour rire.
Quand les nuages se déchirent,
Le ciel écume de rayons.

Le vent caresse les bourgeons
Si longuement qu'il les fait luire.
Il tombe encore des grêlons,
Mais on sait bien que c'est pour rire.

Les fauvettes et les pinsons
Ont tant de choses à se dire
Que dans les jardins en délire
On oublie les premiers bourdons.
Il tombe encore des grêlons …

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
{ Compression }
function CompressTxt(Data: String): String;
var
  DataInput, DataOutput: TStringStream;
  Compress: TZCompressionStream;
begin
  Result := EmptyStr;
  DataInput := TStringStream.Create(Data);
  DataOutput := TStringStream.Create;
  try
    Compress := TZCompressionStream.Create(DataOutput);
    try
      Compress.CopyFrom(DataInput, DataInput.Size);
    finally
      Compress.Free;
    end;
    Result := DataOutput.DataString;
  finally
    DataInput.Free;
    DataOutput.Free;
  end;
end;
 
{ Décompression }
function DecompressTxt(Data: String): String;
var
  DataInput, DataOutput: TStringStream;
  Decompress: TZDecompressionStream;
begin
  Result := EmptyStr;
  DataInput := TStringStream.Create(Data);
  DataOutput := TStringStream.Create;
  try
    Decompress := TZDecompressionStream.Create(DataInput);
    try
      DataOutput.CopyFrom(Decompress, Decompress.Size);
    finally
      Decompress.Free;
    end;
    Result := DataOutput.DataString;
  finally
    DataInput.Free;
    DataOutput.Free;
  end;
end;

Code:

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := CompressTxt(Memo1.Text);
  Memo3.Text := DecompressTxt(Memo2.Text);
end;

Merci

20/05/2018, 20h06
Cirec
Bonjour,

comme la question manque de précisions on ne peut que deviner le problème.

t'as de la chance je viens de retrouver ma boule de cristal :mouarf:

trêve de plaisanterie, il n'y a qu'une chose qui me saute aux yeux dans ton code:

le fait de passer le texte compressé dans un TMemo ne me semble pas être une bonne idée
comme tous les caractères ne sont pas affichables ils seront purement et simplement supprimé ... donc problème à la décompression.

je te propose donc de passer par une variable et ça devrait résoudre ton problème:
Code:

1 2 3 4 5 var aStr: string; begin aStr := CompressTxt(Memo1.Text); Memo2.Text := DecompressTxt(aStr);
Cordialement,

@+
20/05/2018, 20h18
XeGregory

Citation:

Envoyé par Cirec

trêve de plaisanterie, il n'y a qu'une chose qui me saute aux yeux dans ton code:

le fait de passer le texte compressé dans un TMemo ne me semble pas être une bonne idée
comme tous les caractères ne sont pas affichables ils seront purement et simplement supprimé ... donc problème à la décompression.

Effectivement problème résolu , j'étais loin de m'imaginer 8O que certains caractères pouvais être supprimé.

Merci Cirec. :resolu:
22/05/2018, 17h22
Paul TOTH

j'ajouterais qu'il est assez osé de stocker des données binaires dans un String, ça se faisait sans trop de problème jusqu'à Delphi 2009 qui a introduit les chaînes Unicode et le pages de code sur les AnsiString

maintenant c'est généralement TBytes ou tout simplement un TMemoryStream qui est utilisé (voir un TBytesStream)
23/05/2018, 13h18
Cirec

Citation:

Envoyé par Paul TOTH

j'ajouterais qu'il est assez osé de stocker des données binaires dans un String, ça se faisait sans trop de problème jusqu'à Delphi 2009 qui a introduit les chaînes Unicode et le pages de code sur les AnsiString

maintenant c'est généralement TBytes ou tout simplement un TMemoryStream qui est utilisé (voir un TBytesStream)

bonjour,

oui c'est vrai c'est osé et là c'est une erreur de ma part due à de vielles habitudes tenaces :mouarf:
en générale j'utilise le type AnsiString qui lui ne pose aucun problème et m'assure la compatibilité entre les versions de Delphi ;)

Bien que le choix d'utiliser le type string, dans ce cas, n'est pas de mon fait,
j'aime bien utiliser cette "méthode", qui à mes yeux et dans certain cas,
présente quelques avantages. (Pas besoin de libérer la mémoire, possibilité de faire une recherche avec Pos, PosEx ... )

Alors oui on peut certainement faire autrement aujourd'hui avec Berlin ou Tokyo
mais à l'époque, D4-D7, ça m'a bien facilité la tâche et ça reste fonctionnel.

Cordialement,

@+
24/05/2018, 08h53
Paul TOTH

Citation:

Envoyé par Cirec

bonjour,

oui c'est vrai c'est osé et là c'est une erreur de ma part due à de vielles habitudes tenaces :mouarf:
en générale j'utilise le type AnsiString qui lui ne pose aucun problème et m'assure la compatibilité entre les versions de Delphi ;)

Bien que le choix d'utiliser le type string, dans ce cas, n'est pas de mon fait,
j'aime bien utiliser cette "méthode", qui à mes yeux et dans certain cas,
présente quelques avantages. (Pas besoin de libérer la mémoire, possibilité de faire une recherche avec Pos, PosEx ... )

Alors oui on peut certainement faire autrement aujourd'hui avec Berlin ou Tokyo
mais à l'époque, D4-D7, ça m'a bien facilité la tâche et ça reste fonctionnel.

Cordialement,

@+

j'ai longuement cherché à convaincre Embarcadero de cela sans succès :) TBytes est loin d'offrir tout le confort dans anciennes string.
24/05/2018, 11h12
ShaiLeTroll

Je préfère RawByteString à AnsiString, c'est juste un Alias je trouve encore plus clair quand on est obligé de passer par une chaine pour une opération sur un binaire avec une veille fonction.