Discussion :

[bubulemaster]

Bonjour,

ça fait longtemp que je n'ai pas travaillé avec des pointers et impossible de m'en sortir. Je souhaite incrémenter mon pointer pour lire le tableau qui est renvoyé par la zLib

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
var
  i : integer ;
  Char1 : char ;
  outStream,inpStream: TMemoryStream;
  SI : array[0..12] of char ;
  DI : pointer ;
  lenSo : integer ;
 
begin
SI[0] := 'a' ;
SI[1] := 'z' ;
SI[2] := 'e' ;
SI[3] := 'r' ;
SI[4] := 't' ;
SI[5] := 'y' ;
SI[6] := 'a' ;
SI[7] := 'z' ;
SI[8] := 'e' ;
SI[9] := 'r' ;
SI[10] := 't' ;
SI[11] := 'y' ;
SI[12] := '0' ;
 
InpStream := TMemoryStream.Create;
InpStream.Write(SI, 13);
outStream := TMemoryStream.Create;
 
BZCompressBuf(
              InpStream,
              7,
              //$9AA020
              DI,
              lenSO
             );
 
Caption := '' ;
 
For i := 0 to lenSO do
begin
    Char1 := Char((DI)^);
    Caption := Caption + Format('%x ', [Ord(Char1)]) ;
end ;
end ;

en fait. Mon problème c'est de compresser des données à la voler pour mettre tout ça dans un fichier compressé. Si ça se trouve il y a une méthode plus simple. Mais je n'ai rien trouvé, c'est toujours à partir d'un fichier.

Merci d'avance

[Paul TOTH]

autant ne pas réinventer la roue delphizlib

[bubulemaster]

Super merci du coup de pouce. Sais-tu comment on utilise la compression à la volée (on fournit block par block les données à compresser).
Je n'ai pas très bien compris.

est-ce que si je remplace la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyStream.LoadFromFile(Strings[0]);

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyStream.Write(...)

dans une boucle ça va fonctionner ?

[Gilbert Geyer]

Bonjour,

est-ce que si je remplace la ligne

Code :
MyStream.LoadFromFile(Strings[0]);par

Code :
MyStream.Write(...) dans une boucle ça va fonctionner ?

... tout dépend de ton objectif car pour charger un stream depuis un File LoadFromFile proçède par lecture du Fichier nommé par String[0] et dans ce cas pourquoi tu le remplacerais par un Write ?
... mais si tu veux charger ton stream avec un Write cela suppose que les données à charger proviennent d'ailleurs.
... en plus, dans le lien indiqué par Paul TOTH je n'ai vu nulle part dans le code qu'il y était utilisé une ligne MyStream.LoadFromFile(Strings[0]) ce qui fait que ta question reste incompréhensible.

Pour plus d'infos sur les Streams voir la rubrique Tutoriaux sinon dans la Faq car je suis sûr et certain que ce sujet est développé dans l'un ou dans l'autre je ne souviens simplement plus laquelle des deux.

A+

[anapurna]

salut

pour la compression a la volé il faut en fait creer ton dictionnaire et ensuite
l'enregistrer
pour la decompression c'est diferent elle peut se faire en lecture direct

fait des recherche sur huffman

@+ Phil

[bubulemaster]

En fait, je suis en train de reprendre le projet RawWrite pour windows et donc quand je lis une disquette, je voudrais compresser les données à la volée et les écrire dans un fichier.
De même lorsque je lis un image compresser pour l'écrire sur la disquette.
Et j'aurais bien aimé le format zip avec un bibliothèque GPL2.