Discussion :

[LuluTchab]

Salut !

j'ai un problème avec l'utilisation de BlockRead. En fait, le 1er appel que je fais pour lire un byte fonctionne correctement mais à partir du 2e appel, la fonction renvoie un résultat incorrect.

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
   function Recherche_Infos_Fichier(Nom_Fichier :String):T_Infos_Fichier;
   var
      Infos : T_Infos_Fichier;
      byte : integer;
 
   begin
      AssignFile(Fichier_Met,Nom_Fichier);
      Reset(Fichier_Met);
 
 
      BlockRead(Fichier_Met,byte,1);
      ShowMessage(IntToHex(byte,1)); //Affichage correct ex : E0
 
      BlockRead(Fichier_Met,byte,1);
      ShowMessage(IntToHex(byte,1)); //Affichage incorrect ex : 512AA562 
 
      CloseFile(Fichier_Met);
 
      result := Infos;
   end;

Si quelqu'un pouvait m'aider ça serait cool... merci

[Paul Atreide]

Code :

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

Reset(Fichier, 1);

J'ai mis 1 mais ça peut être n'importe quoi : ça représente la taille minimale d'un bloc en octets. Dans ton exemple, tu lis un integer qui est de 4 octets. Tu peux donc faire (Buffer étant l'integer) :

Code :

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

1
2
Reset(Fichier, 4);
BlockRead(Fichier, Buffer, 1);

ou alors :

Code :

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

1
2
Reset(Fichier, 1);
BlockRead(Fichier, Buffer, 4);

[Paul Atreide]

Je viens de voir aussi que tu déclares une variable nommée byte. Byte est le nom d'un type de donné (valeur numérique sur un octet)... peut être que ça pose un problème à Delphi :

[LuluTchab]

c'est bon, ça marche merci... En fait, au lieu de lire un Integer, je lis un Char. Comme ça, je suis sûr que je ne lit qu'un octet.

Merci pour ton aide.