Discussion :

[philippe-24]

Bonjour

J'ai des fichiers écrit en java :

La structure écrite en JAVA :

Code java :

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

1
2
3
4
5
6
7
8
    public void toBytes(byte[] buff, int off) {
        off = putLong(buff, off, time);
        off = putDouble(buff, off, open);
        off = putDouble(buff, off, close);
        off = putDouble(buff, off, low);
        off = putDouble(buff, off, high);
        putDouble(buff, off, vol);
    }

Quand je lis en Delphi avec : int64,Double,Double,Double,Double,Double j'ai n'importe quoi.
L'ordre des octets ne dois pas être les mêmes.

Quelqu'un a t'il une idée

Merci
PHIL

[Paul TOTH]

putLong n'est pas sur 32 bits ?

[philippe-24]

putLong n'est pas sur 32 bits ?

La doc :
Every field, excepting time, is 8-bytes long doubles, and time is 8-bytes long "long". The Total size of every block is 6 * 8 = 48 bytes.
Le long est bien sur 64bits c'est une date avec des Millisecondes.

Pour les doubles je pense qu'il faut inverser les quatre premier et dernier octets mais je ne sais comment faire pour retrouver mon double.

[Paul TOTH]

ok Java étant Big-Endian et Windows Little, il faut inverser les octets en effet

[philippe-24]

ok Java étant Big-Endian et Windows Little, il faut inverser les octets en effet

Merci pour l'info, cela marche bien pour les int64 mais pas pour les doubles, il faut inverser les 4 premier et 4 dernier octets (malgré 25ans d'informatique je suis nul en ASM et Pointer).

PHIL

[philippe-24]

Voici la fonction pour la conversion d'un double Big endian <> Little Endian

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function SwapDouble(var a:Double):double;
var
  hold:double;
asm
  mov edx,dword ptr[eax]
  mov ecx,dword ptr[eax+4]
  bswap edx
  bswap ecx
  mov dword ptr [hold],ecx
  mov dword ptr [hold+4],edx
  fld hold;
end;

Merci à Paul Toth pour s'être penché sur mon problème, cela me rappelle mes débuts en Pascal et Delphi 1 en 1996 sur un forum dont je ne me souviens plus du nom auquel j'ai participé et dont Paul était un des principaux animateur.

Bonsoir

PHIL