Discussion :

[Duffer]

Bonjour

J'ai un petit souci que je n'arrive pas à solutionner. Lorsque je fais une écriture dans un fichier binaire, j'ai une inversion de l'écriture. Lorsque j'écris la valeur 2170 cela doit me donner en hexa 08 7A, mais lorsque j'ouvre mon fichier dans un éditeur hexa il est inscris 7A 08 Ci joint une copie d'écran ainsi que mon code.

Je n'arrive pas à solutionner cette erreur.

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
procedure TForm1.LMDButton2Click(Sender: TObject);
var
  File1                              : TStream;
  i                                     : integer;
  Value                                 : integer;
 
begin
  if Options.Edit_Path.Text <> '' then
  begin
    Value := (TrackBar_Slipstream.Position * 1024) Div 100;
 
    File1 := TFileStream.Create('d:\1.exe',fmCreate);
    File1.Position := $201C6A;
    File1.Write(Value,2);
 
    File1.Free;
  end;
end;

[Paul TOTH]

c'est une question de Boutisme

les processeurs intel sont petits boutistes, donc la valeur 2170 dans un registre 16bits sera effectivement inversée, la fonction Swap() permet de changer le boutisme sur 16bits justement.

[ShaiLeTroll]

Faudrait surtout savoir qui lira ensuite le fichier et comment ?
Si c'est un autre programme sur Windows, il y a de grande chance que cela soit aussi du Little-Endian ou Petit-Boutiste (c'est mignon en français)
Par contre, si le fichier est envoyé à un automate, il faut étudier la documentation pour savoir si il est Big-Endian ou Little-Endian.

Sinon, si c'est pour modifier un Exe, pourquoi ne pas passer par une Ressource ?

[Duffer]

Merci Paul TOTH, tu viens de solutionner mon souci. Je ne connaissais pas cette spécificité.

Merci ShaiLeTroll, c'est un programme windows qui lit lefichier après. Là quand je fais mon test c'est un fichier que je crée mais normalement j'édite un fichier déjà existant.