Discussion :

[jsaviola]

je dois faire un programme de compression (huffman)
le probleme est que je recupere bien l'arbre binaire avec les valeurs
exemple a:00
sous forme de string et quand je veux l'ecrire sous forme binaire
la taille du fichier binaire est aussi grande que la taille du fichier originale qui n'est pas binaire
help me please!!!

[Eric Sigoillot]

Les points d'exclamation à rallonge ne changeront rien aux principes de base du forum : question précise => réponse précise, et pas de question précise => pas de réponse du tout.

Tu vois ce qu'il te reste à faire... Précise !

A+

[jsaviola]

je cherche un moyen d'ecrire des chaines de caracteres dans un fichier binaire pour pouvoir gagner de la place

[Eric Sigoillot]

Bon, mixons les deux messages.

Tu nous dis que tu répères les valeurs de l'arbre sous forme de chaîne. Soit. Mais est-ce bien une chaîne de caractères que tu dois enregistrer dans un fichier ? Si c'est vraiment ce qu'il te faut, alors utilise BlockWrite, un peu comme ça :

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
 
var
  S: string;
  f: file;
  L: Byte;
 
begin
...
Assign(f, ???);
Reset(f, 1);
...
BlockWrite(f, S, Length(S) + 1);
...
BlockRead(f, L, 1);
S[0] := Chr(L);
BlockRead(f, S[1], L);
...
Close(f);
...
end;

A+