Discussion :

[vedge2000]

Bonjour,

j'ai un petit soucis. Je dois reprendre les données d'un fichier typé binaire écrit il y a 15 ans en C. J'ai bien la structure mais malheureusement je ne peux pas lire correctement les info :

Voici la structure en C :

Code :

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

1
2
3
4
5
    struct  resp  {
                    int g1_numger;    
                   char g1_nom[34];  
                   char g1_adresse[34];
                     }

voilà ma structure et le code pour reprendre le text :

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
21
22
23
24
TResp=record
   g1_numger : integer;
   g1_nom : array[1..34] of char;
   g1_adresse : array[1..34] of char;
end;
...
 
Var
  FichierResp : file of  TResp ;
 
...
  AssignFile(FichierResp,'FICHIER.DAT');
  reset(FichierResp);
 
  i:=1;
  while not Eof(FichierResp) do begin
    Read (FichierResp, Resp) ;
    StringGridGERANT.Cells[0,i]:=IntToStr(Resp.g1_numger);
    StringGridGERANT.Cells[1,i]:=SuppCharZero(Resp.g1_nom);
    StringGridGERANT.Cells[2,i]:=SuppCharZero(Resp.g1_adresse);
    Inc(i);
  end;
  closefile(FichierResp);
  StringGridGERANT.RowCount:=i+1;

Ca reprend bien des choses, mais le champ en integer part aux fraises.

Est-ce que quelqu'un peut m'aider?

Merci d'avance

[Aka Guymelef]

Bonjour, à mon avis il faudrait essayer de regarder le contenu binaire du fichier pour voir où cela cloche, peut-être que l'int du C et l'integer du Delphi ne sont pas codés sur le même nombre d'octets.

Peux-être que le format d'écriture et de lecture est différent entre les deux aussi.

Bref un bon exercice serait d'essayer de générer un même fichier façon Delphi et de comparer avec un éditeur héxa les différences.

[LadyWasky]

Salut,
1) Vérifie que le type int original est bien sur 32 bits et non 16 bits.
2) Tu as bien affaire à un entier signé ?
3) Vérifie que les bits de poids fort et les bits de poids faible ne soient pas inversés :
En gros, charge ton entier dans un tableau de 4 octets (b:array[0..3] of byte) et recompose ton entier comme ça :

Code :

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

i:=((b[0] shl 8 +b[1]) shl 8 +b[2]) shl 8 +b[3];

ou comme ça :

Code :

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

i:=((b[3] shl 8 +b[2]) shl 8 +b[1]) shl 8 +b[0];

enfin bon, tu vois le topo, hein ?

[vedge2000]

Merci des réponses... je vais tester!

Je me dis que c'est peut-être plus simple de le faire le soft en c++ pour récupérer les données! Je vais chercher déjà sur Delphi!

[guillemouze]

essaye peut etre d'utiliser un packed record au lieu d'un record standard.

[vedge2000]

J'ai demandé à celui qui a fait le code en C!

J'aurai les données.

Merci beaucoup des tests!!!