Problèmes avec BlockRead

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. :cry:

Code:

---

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

Code:

---

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:

---

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

---

ou alors :

Code:

---

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

---

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 :?:

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.