Discussion :

[Gouyon]

Bonjour à tous

J'utilise le code ci dessous pour sauvegarder des données numériques dans un fichier binaire.

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
 
  ficcrt := TFileStream.Create(nomfic, fmCreate);
  valeur := traces.Count;
  ficcrt.Write(valeur, sizeof(integer));
  for num in traces.Keys do
  begin
    if traces.TryGetValue(num, seg) then
    begin
      ficcrt.Write(num, sizeof(uint64));
      valeurd := seg.minlon;
      ficcrt.Write(valeurd, sizeof(double));
      valeurd := seg.maxlon;
      ficcrt.Write(valeurd, sizeof(double));
      valeurd := seg.minlat;
      ficcrt.Write(valeurd, sizeof(double));
      valeurd := seg.maxlat;
      ficcrt.Write(valeurd, sizeof(double));
      valeur := seg.getNbPoints;
      ficcrt.Write(valeur, sizeof(integer));
      for i := 0 to valeur - 1 do
      begin
        if seg.getLonLat(i, lon, lat) then
        begin
          ficcrt.Write(lon, sizeof(double));
          ficcrt.Write(lat, sizeof(double));
        end;
      end;
    end;    
  end;
  ficcrt.Free;

Pas de problème pour le relire ensuite en pascal
Par contre j'ai eu besoin de le relire avec un programme en C (Compilateur visual studio) et là grosse surprise je lis bien tous les entiers par contre les réel c'est n'importe quoi.
Et pour cause quand j'ai analysé le fichier binaire je me suis aperçu que les entiers sont sauvegardé en littleEndian et les réels en bigEndian
Y a t'il quelque part une option de compilation qui impose ça???

[ShaiLeTroll]

C'est avant tout lié à l'architecture du processeur et de l'OS
Si cela se trouve cela a pu changer entre du x86 32bits et le 64bits, par exemple le type Extended 32Bits est réduit à un Double en 32Bits (et c'est un 64bits sur Linux)
Echanger du binaire c'est toujours périlleux, il faut définir précisément chaque champ, un par un, avec des machines, je n'ai échangé que des entiers et des caractères avec un charset spécifique, je me suis pas intéressé au double, j'avais même pas penser que lui aussi était sous l'influence du Endianness.

Tenter un SWAP processeur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function ByteSwap(const a : Int64) : int64;
asm
{$IFDEF CPUX64}
  BSWAP RCX;
  MOV RAX, RCX;
{$ELSE}
  MOV EDX,[EBP+$08];
  MOV EAX,[EBP+$0C];
  BSWAP EAX;
  BSWAP EDX;
{$ENDIF CPUX64}
end;

tente une variante function ByteSwap(const a : Double) : Double; en espérant que le type Double passe en registre directement sinon ça demande quelques efforts de plus.


Converting Double Types from Little Endian to Big Endian Using Variant Record

Sans passer par un SWAP asm, essaye ceci :

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
type
  //enumeration used in variant record
  BytePos = (EndVal, ByteVal);
 
  PEndianCnvRec = ^EndianCnvRec;
 
  EndianCnvRec = packed record
    case pos: BytePos of
       //The value we are trying to convert
      EndVal: (EndianVal: double);           
       //Overlapping bytes of the double
      ByteVal: (Bytes: array[0..SizeOf(Double)-1] of byte); 
  end;
 
//A gets B's values swapped
procedure SwapBytes( A, B: PEndianCnvRec );
var
  i: integer;
begin
  for i := high(A.Bytes) downto low(A.Bytes) do
    A.Bytes[i] := B.Bytes[High(A.Bytes) - i];
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c: EndianCnvRec;
begin
  a.EndianVal := 23344.55555;
  SwapBytes(@b,@a);
  ShowMessage(FloatToStr(b.EndianVal));
  SwapBytes(@c,@b);
  ShowMessage(FloatToStr(c.EndianVal));
end;

[Paul TOTH]

je suis surpris de ta problématique...pour un même processeur Delphi ou C ça doit donner le même boutisme.

[Gouyon]

je suis surpris de ta problématique...pour un même processeur Delphi ou C ça doit donner le même boutisme.

Oui moi aussi j'ai été très surpris. Mais les faits sont là. Pour préciser je suis effectivement en 64bits des 2 cotés.
Maintenant que je le sais je vais faire l'inversion coté C ou passer mes double en entier ce qui serait faisable étant donné la précision dont j'ai besoin