Discussion :

[Philippe_Perfect]

Bonjour !

Avec D7 Pro, je manipule des fichiers destinés à être imprimés;
Et aujourd'hui, je suis bloqué dans la manipulation d'un fichier non typé, en EBCDIC
duquel j'extrait le code OMR pour statistiques ultérieures.

Le code OMR débute par la chaîne unique 2B D3 04 D2 01 C5, suivie des 13 signes OMR et terminé par 5A



Pouvez-vous m'aider dès la ligne 28 de mon code :

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
29
30
31
32
33
34
35
36
37
procedure TForm1.Lecture_Et_Test;
 
var
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
 
Begin
  Form1.ProgressBar1.Min := 1;
  Form1.ProgressBar1.Max := 1000;
  Form1.ProgressBar1.Step := 1;
  Form1.ProgressBar1.Position := Form1.ProgressBar1.Min ;
 
  F_Input  := '\\Ocetool3\DATA (D)\SERVER\Essai\'+Msk_Input.Text;
  AssignFile(FromF, F_Input);
  Reset(FromF, 1);	{ Taille d'enregistrement = 1 }
 
  F_Output := '\\Ocetool3\DATA (D)\SERVER\Essai\OMR_'+Msk_Input.Text;
  AssignFile(ToF, F_Output);	{ Ouverture du fichier de sortie }
  Rewrite(ToF, 1);	{ Taille d'enregistrement = 1 }
  Canvas.TextOut(48, 190, 'Copie de ' + IntToStr(FileSize(FromF)) + ' octets...');
 
  repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
 
    // Recherche du bloc de début unique: 2B D3 04 D2 01 C5   (EBCDIC)
    // et extraction des 13 signes OMR qui suivent, 
    // p.ex. BB 04 BB BB 40 40 40 40 40 40 BB 40 BB
    //          ]      ]   ]    (40 = space)       ]       ]
    // ce bloc se termine par 5A
 
    { SOS ici ! }
 
    BlockWrite(ToF, Buf, NumRead, NumWritten);
    Self.ProgressBar1.StepIt;
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(FromF);
  CloseFile(ToF);

[ShaiLeTroll]

Tu peux utiliser un record et un transtype pour découper le buffer !

comment chercher une valeur hex dans un fichier binaire "file of byte"

Tu as plein d'exemple sur le forum sur la lecture binaire et hexadécimal ... tu y trouveras des réponses dont les miennes !

[Andnotor]

Ou cette variante:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
procedure TForm1.Button1Click(Sender: TObject);
type
  TReadMode = (rmSearch, rmRead);
 
const
  StartString :array [0..5] of byte = ($2b, $d3, $04, $d2, $01, $c5);
  EndString   :byte = $5A;
 
var
  msIN        :TMemoryStream;
  msOut       :TMemoryStream;
  StringIndex :integer;
  i           :Int64;
  b           :byte;
  Mode        :TReadMode;
 
begin
  msIN  := TMemoryStream.Create;
  msOUT := TMemoryStream.Create;
 
  try
    msIN.LoadFromFile('c:\temp\qtra06.txt');
    msIN.Position := 0;
 
    //Index dans la chaîne de départ
    StringIndex := 0;
 
    //Mode "Recherche"
    Mode := rmSearch;
 
    for i := 0 to msIN.Size -1 do
    begin
      //Lecture byte par byte
      msIN.ReadBuffer(b, 1);
 
      case Mode of
        rmSearch: //Recherche de la chaîne de départ
                  if b = StartString[StringIndex] then
                  begin
                    //Tous les bytes testés -> Mode "Lecture"
                    if StringIndex = High(StartString)
                    then Mode := rmRead
                    else inc(StringIndex);
                  end
                  else StringIndex := 0;
 
        rmRead:   //Repasse en mode "Recherche" si caractère de fin trouvé
                  //Sinon écriture dans le flux de sortie
                  if b <> EndString then
                    msOUT.WriteBuffer(b, 1)
                  else
                  begin
                    Mode := rmSearch;
                    StringIndex := 0;
                  end;
      end;
    end;
 
    msOUT.SaveToFile('c:\temp\qtra06_OUT.txt');
 
  finally
    msIN.Free;
    msOUT.Free;
  end;
end;

A noter que ta chaîne de départ n'existe pas dans ton fichier d'exemple .

[Philippe_Perfect]

Merci à tous pour votre aide !