Discussion :

[Rayek]

Bonjour,

J'ai créer un type qui est la structure exacte de ce qu'il y a dans mon fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type THeaderFile = record
  Header    : string[2];
  Type1      : String[1];
  Type2      : string[1];
  Pays        : string[1];
  Tel          : string[1];
  Val          : string[6];
  Val2        : string[1];
  Blank      : string[3];
end;

Donc avec un TFileStream, je tente de récupérer les données :

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
25
26
27
28
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  fFile : TFileStream;
  hHeader : THeaderFile;
begin
  if OpenDialog1.Execute then
  begin
    fFile := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
    With fFile do
    try
      seek(0, soFromBeginning); // Debut du fichier
      Position := 106; // position 106 du fichier
      ReadBuffer(hHeader,Sizeof(hHeader));
 
  Memo1.Lines.Add('Header : ' + IntToStr(Ord(hHeader.Header[1])) + IntToStr(Ord(hHeader.Header[2])));
  Memo1.Lines.Add('Type 1 :' + IntToStr(Ord(hHeader.Type1[1])));
  Memo1.Lines.Add('type 2 :' +IntToStr(Ord(hHeader.Type2[1])));
  Memo1.Lines.Add('Pays :' + IntToStr(Ord(hHeader.Pays[1])));
  Memo1.Lines.Add('Tel :' + IntToStr(Ord(hHeader.Tel[1])));
  Memo1.Lines.Add('Val :' + hHeader.Val);
  Memo1.Lines.Add('Val2 :' + hHeader.Val2);
  Memo1.Lines.Add('Blank :' + hHeader.Blank);
    finally
      fFile.Free;
    end;
  end;
end;

Le problème c'est que les 3 premiers octects sont bon (hHeader.Header, et hHeader.Type1) mais après ca devient n'importe quoi.

Si quelqu'un voit d'où vient le problème.

Pour info la structure du fichier :
[106c]
[Header 2c][Type1 1c][Type2 1c][Pays 1c][Tel 1c][Val 6c][Val2 1c][Blank 3c][Nombre de caractère = Type1 + Type2 + Pays + Tel + Val2]
[Header 2c][Type1 1c][Type2 1c][Pays 1c][Tel 1c][Val 6c][Val2 1c][Blank 3c][Nombre de caractère = Type1 + Type2 + Pays + Tel + Val2]
[Header 2c][Type1 1c][Type2 1c][Pays 1c][Tel 1c][Val 6c][Val2 1c][Blank 3c][Nombre de caractère = Type1 + Type2 + Pays + Tel + Val2]
etc ...

[Clorish]

Position := 106; // position 106 du fichier

La ya une erreur ... a mon avis tu voulais parler de :

Code :

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

Position := 106*Sizeof(hHeader); // position 106 du fichier

a +ou- 1 pres.

Ilm faut penser que les stream fonctionent en au niveau octale.
Donct si tu veux le 106e enregistrement, il te faut te deplacer de 106 * Tailel d'un enregistrement Octets.

Sinon pourquoi ne passe tu pas par "Seek(106*SizeOf(..), soFromBegining)" ?

[Rayek]

Le position à 106 (octet) est voulu car le debut du fichier n'est pas structuré comme le reste.

Bon en fait j'ai trouvé la solution en trifouillant un peu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type THeaderFile = record
  Header    : Array [1..2] of char;
  Type1      : char;
  Type2      : char;
  Pays        : char;
  Tel          : char;
  Val          : Array [1..6] of char;
  Val2        : char;
  Blank      : Array [1..3] of char;
end;

Avec ca ca fonctionne nickel.

Le problème, maintenant, c'est de gérer un tableau dynamique de char pour récupérer le reste.


Je vais faire une petite recherche sur le forum pour ca ^^