Discussion :

[kmitz]

Bonjour,

Je cherche à obtenir l'écriture binaire de n'importe quel fichier (la suite de 0 et de 1 qui le composent).
Pour l'instant, je n'ai trouvé qu'une solution qui n'est pas satisfaisante:
1)Ouverture d'un "file of byte"
2)Lecture byte par byte, ce qui donne le code ascii de chaque byte.
3)Conversion en binaire du code ascii.

Ex: Si un fichier contient le caractère 4 (codé 52 en ascii), au final j'obtiens 00110100 (52 converti en base 2). Or ceci ne correspond pas à 4 en base 2, qui serait plutôt 0000100.

Please help ,

Merci.

[tintin22]

Je crois qu'à la base l'idée c'est ça, même si je pense qu'une lecture 'File of Byte' ça en fait trop, peut-être vaut mieux penser à TFileStream pour accelerer la lecture, ensuite accéder au fichier une fois chargé en mémoire.
Pour la representation binaire des chiffre il suffit de faire -48 , ainsi pour 52 tu aura 52-48=4 ; pour 53 tu aura 53-48=5 etc...
Enfin, si t'es interessé voici le composant MPHexEditor :
http://www.torry.net/quicksearchd.php?String=mphexeditor&Title=Yes

[banban54]

bonjour

jai déjà travaillé avec des fichiers binaires en utilisant la lecture par bloc dans des tableaux,
du genre

var
F: file of byte
tableau : array[1..x] of byte;
begin
blockRead(F, tableau SizeOf(tableau ), variable);
tableau[y] est bien la valeur binaire de l'octet lu, si c'était 00000100 dans le fichier dans une variable du type integer tu auras 4 en retour

[kmitz]

Merci pour vos réponses! Jvais tester les 2 méthodes.
Mais d'une manière plus générale: comment est on sûr d'obtenir l'unique écriture binaire du fichier? (celle qui découle directement de la polarité des charges magnétiques des plateaux du disque dur)

[e-ric]

Merci pour vos réponses! Jvais tester les 2 méthodes.
Mais d'une manière plus générale: comment est on sûr d'obtenir l'unique écriture binaire du fichier? (celle qui découle directement de la polarité des charges magnétiques des plateaux du disque dur)

Bien malin qui pourra te le dire, tout au plus tu pourras avoir des infos sur ce que fait l'OS (Windaube), quant aux polarités du disque dur, c'est un autre problème. En outre, faire des hypothèses sur le mode de stockage physique des données sur un disque donné rendrait ton programme dépendant de ce modèle de disque. Et cela est très rarement (je dirai presque jamais) utile.

J'ai l'impressison que tu confonds le caractère 4 (pure convention valant numériquement 52 comme tu le soulignes) et la valeur binaire de 4 ce qui n'est pas la même chose. Je pense donc que tu devrais déjà éliminer cette confusion avant de penser à travailler à très bas niveau.

La façon dont les données seront écrites sur un disque dépend en grande partie de l'usage que tu comptes faire du fichier généré.

Tentes aussi d'obtenir des infos précises sur la structure de ton fichier et sur le format des données contenues, en connaîs-tu l'auteur ?

cdlt

e-ric

[Sub0]

Salut!
Voici une fonction pour convertir un octet en chaîne binaire et inversement :

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
Function ByteToBin(octet: Byte): String;
Var x: Integer;
Begin
  Result := '';
  For x := 0 To 7 Do
    Result := IntToStr(Integer(octet And (1 Shl x) > 0)) + Result;
End;
 
 
Function BinToByte(bin: String): Byte;
Var x: Integer;
Begin
  Result := 0;
  For x := 1 To 8 Do
    Result := Result + StrToInt(Copy(bin, x ,1)) * Round(Power(2, Abs(8 - x)));
End;

La fonction Power se trouve dans l'unité Math de Delphi.
Il existe aussi les fonctions HexToBin et BinToHex dans SysUtils, mais je n'arrive pas bien à les utiliser.

Pour obtenir le code binaire du caractère "4" à partir de l'octet 52 (en décimal), il faut d'abord utiliser la fonction chr pour obtenir le caractère correspondant à 52, puis utiliser StrToInt pour transformer cette chaine décimale (ici 4) en valeur numérique. Ensuite, la fonction ByteToBin fait la convertion en binaire. Au final, cela donne :

Code :

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

Label1.Caption := ByteToBin(StrToInt(Chr(52)));

Cela t'affiche donc 00000100.

Dans l'hypothèse où ton caractère "4" représenterait un nombre héxadécimal, il faut l'indiquer en ajoutant $ devant. Par exemple, prenons F au lieu de 4 : Le code ascii du caractère F vaut 46 en hexa et 70 en décimal :

Code :

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

Label1.Caption := ByteToBin(StrToInt('$' + Chr(70)));

Bref, selon tes besoins, à toi d'utiliser l'un des 2 codes...

Et pour obtenir la conversion inverse, demande-moi si tu as des difficultés.
En espèrant t'avoir mis sur le bon chemin...
à+


Lien tout en bas à gauche de cette fenêtre

[kmitz]

En fait ce qui m'a induit en erreur, c'est le fait de croire que le caractère "4" était codé 00000100 dans un fichier, alors qu'en réalité il n'y a aucune raison pour que ça soit le cas.. (M'enfin, avec un peu de bon sens, les créateurs de la convention ASCII aurait pu choisir d'attribuer aux entiers de 0 à 9 leur valeur en binaire, au lieu de leur ajouter 52 puis les convertir en binaire)

[Sub0]

Ok. Utilse la fonction Chr pour convertir un Byte en caractère Ascii correspondant et la fonction Ord pour obtenir l'inverse. En tous les cas, n'oublis pas d'ajouter le tag [Résolu] en cliquant sur le lien qui se trouve tout en bas à gauche de cette fenêtre. Cela évitera aux membres du forum de penser que tu es toujours à la recherche d'une solution. à+