Discussion :

[colorid]

Bonjour,

Sous Delphi existe-t'il un moyen d'enregistrer un tableau de bits Tbits sans coder les bits sur un caractère ?

Exemple : un tableau de 100 bits, enregistré dans un fichier texte, occupe 100 octets si j'utilise la fonction BoolToStr(). Ne peut-on pas l'enregistrer sur 100 bits ? Pour des TBits de grandes dimensions le fichier devient vraiment trop grand !

Si oui, quelqu'un peut-il me donner un exemple source d'une écriture et d'une lecture d'un fichier contenant un Tbits ?

Merci d'avance

[peter27x]

Tu peux, je pense, prendre tes bits par paquets de 8, et inscrire dans ton fichier le caractère ascii correspondant au 8 bits ainsi pris... non ?

Le codage doit pas être difficile.

Mais Dr Who se fera un plaisir de te proposer un code aux petits oignons.

[ShaiLeTroll]

En Trichant sauvage, avec un Hack de Propriété Private ...

Code :

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

1
2
3
4
THackBits = class
  FSize: Integer;
  FBits: PChar;
end;

Code :

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

1
2
3
4
5
 
var
  ObjBits: TBits;
...
  Stream.Write(THackBits(ObjBits).FBits^, FSize div 8);

Je comprends pas pourquoi cette classe n'a pas de fonction de Stream pour la sérialization, ...

[Montor]

Code :

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

1
2
3
 
 
  Stream.Write(THackBits(ObjBits).FBits^, );

Je comprends pas pourquoi cette classe n'a pas de fonction de Stream pour la sérialization, ...

Code :

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

Ceil( FSize / 8);

il aura un problème de granularité

[ShaiLeTroll]

C'est quoi la différence entre

Code :

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

FSize div 8

et

Code :

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

Ceil( FSize / 8)

?

Pour la Granularité, on s'en fout, TBits allouent 4 octets par 4 octets, et les Bits Surnémaires sont à False ! Donc, Si l'on Ecrit dans un Fichier le Size puis le Data, on conserve la mémoire dans le bon état, et l'on gère la Granularité !
0 Bit = 0 Octet = 0 Bit
1 Bits = 4 Octets = 32 Bits
32 Bits = 4 Octets = 32 Bits
33 Bits = 8 Octets = 64 Bits
64 Bits = 8 Octets = 64 Bits
65 Bits = 12 Octets = 96 Bits
...

Code :

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

1
2
Stream.Write(THackBits(ObjBits).Size, SizeOf(Integer));
Stream.Write(THackBits(ObjBits).FBits^, ObjBits.Size div 8);

Code :

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

1
2
3
Stream.Read(TmpSize, SizeOf(Integer));
ObjBits.Size := TmpSize; // Allocation
Stream.Read(THackBits(ObjBits).FBits^, ObjBits.Size div 8);

[Dr.Who]

en effet, j'ai un petit truc de dérrière les fagots.

voir pj, unité BitsStock, classe TBitsStock

[Montor]

je disais cela uniquement si size vaut le nombre de bits TBits.Count

pour la Granularité Getmem n'alloue pas moin de 8+4 octets pour la première allocation et après elle utilise alignement sur 4