Discussion :

[paulfr]

Bonjour,

Dans une procédure qui lit les octets d'un fichier j'extrait 8 octets successifs
représentant un réel double, dont je veux obtenir la valeur numérique avec le code suivant :

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
type
  TypArray64 =  array[0..63] of byte;  // rectifié
  TabToN8 = record
    case integer  of
    1 : (Val : double; Suit : array[1..56] of byte);
    2 : (Tab : TypArray64);
  end;
  ...
var
  BUFF : array[1..128] of byte;
  ...
  Lig : string;
  ChChamp : string;  // chaîne du champ pour affichage
  ValCh : Double;    // valeur d'un champ numérique
  Champ : TypArray64; 
  Lchamp : TabToN8;
  K, L :byte;
  Lg, Debut, Fin : integer;       // longueur du champ 
   ...    
begin
  ...
  L := 0;           // corrigé
  Lg := TbLgChamp[J];    // longueur du champ
  Fin := Debut + Lg -1;    // fin du champ
  for K := Debut to Fin do    // lecture du contenu d'un champ
  begin
    Champ[L] := Buff[K];
    inc(L)
  end;
  Champ[TbLgChamp[J]] := byte(#0);    // fermeture du champ  Corrigé
  ...
 // traitement d'un champ numérique sans conversion, stocké comme un double
   ...
   LChamp.Tab := Champ;      // affectation de champ lu au TypArray64
   ValCh :=  double(LChamp.Val);    // valeur numérique
   ChChamp := FloatToStr(ValCh);    // résultat PAS correct ????
   Lig := Lig + ChChamp + ' ';
   ...
end;

Le valeur brute du champ obtenu est correcte, mais le valeur numérique ChChamp est fausse.

Y à t'il une solution à ce problème de conversion ?

Merci pour vos réponses.

PL

[ShaiLeTroll]

Que veux dire "Fausse" ? Valeur qui n'a rien à voir, erreur d'arrondi ?

[Montor]

essaie

Code :

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

ValCh := Double(@LChamp.Val)

ou

Code :

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

ValCh := PDouble(@LChamp.Val)^

ou supprime le cast

[ShaiLeTroll]

Montor ? où as-tu vu une histoire de pointeur ?

Sinon, ceci suffit !

Code :

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

 ValCh :=  LChamp.Val;    // valeur numérique

[Montor]

Montor ? où as-tu vu une histoire de pointeur ?

Sinon, ceci suffit !

Code :

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

 ValCh :=  LChamp.Val;    // valeur numérique

c'est un transtypage des données bruts ex: voir la fonction(Math signe)
tu peux dire cela a paulfr

ou supprime le cast

[ShaiLeTroll]

c'est un transtypage des données bruts ex: voir la fonction(Math signe)

De données brutes ? Val est un Double, il est déjà typé par la structure variable ... je ne vois pas ce qu'un transtypage de double en double changera ..., pour la fonction Sign, c'est converti en un Entier sur 8 octets pour tromper le compilateur, car à tous les coups (j'ai pas vérifié), il refuse le transtypage Double -> Int64 directement (un petit erreur genre type incompatible), faut passer par un pointeur et déférencement ...

[paulfr]

Réponse à Shail

Les résultats obtenus sont totalement erronés, sauf pour les valeurs nulles,
du type 1....E272 pour une valeur de 283.

Merci pour votre intêret.

[ShaiLeTroll]

Quelle est la source de données ?
Tu disais que la valeur brute du champ obtenu est correcte, selon quel critère ?
Qui fourni la bonne valeur ? le débogueur ?
es-tu sur si la source en BigEndian ou LittleEndian ?

[paulfr]

La source est un fichier dBase crée avec une application Delphi 2006.
Le fichier dBase est de niveau 7 (Visual dBase d'après internet).
A ce niveau existe des champs de type numérique 'O' double, 8 bits, sans conversion, stocké comme un double.
L'appli cherche à lire et afficher un fichier dBase sans utiliser "dBase" ( un wiever).
Jusqu'au niveau 5 (dbase IV plus ...) c'est sans problème les numériques sont du type 'N' en caractères.

Sous D2006 et Vista une type 'N' se retrouve en 'O' ( sous XP ce n'était le cas) ?

Bigendian ou little indian connais pas (je suis un amateur étant passé de dBase à D3 compilé à titre personnel).

[ShaiLeTroll]

8 Bytes, et non 8 bits ...
DBase, je crois que l'on utile encore du IV au bureau ...

Donc, essaye d'inverser les octets, c'est à dire, si cela ne fonctionne pas vérifier que ce type O, est bien en IEEE 754

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
type
  TypArray64 =  array[0..63] of byte;  // rectifié
  TabToN8 = record
    case integer  of
    1 : (Val : Double; Suit : array[1..56] of byte);
    1 : (A : Array[0..7] of Byte; Dummy : array[1..56] of byte);
    2 : (Tab : TypArray64);
  end;
 
...  
 
  LChamp.Tab := Champ;      // affectation de champ lu au TypArray64
  for K := 0 to 3 do
  begin
    L  := A[7-K];
    A[7-K] := A[K];
    A[K] := L;
  end;
 
  ValCh :=  LChamp.Val;    // valeur numérique

[Montor]

La fonction FloatToStr n'a aucun défaut je viens de tester sous D2006 c'est absurde l' erreur vient d'ailleur tu es sur que la valeur de ValCh est correct

Code :

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

1
2
3
4
5
6
7
8
9
var
   s:TypArray64;
   v: TabToN8 ;
begin
  PDouble(@s)^:=1234567890.123;
  v.Tab:=s;
 
  ShowMessage(FloatToStr(v.Val));
      //1234567890.123;

Mais tu peux ajouter le mot Packed pour secutité

[ShaiLeTroll]

... c'est absurde...

Qu'est ce qui est absurde ?
On a jamais mis en doute la fiabilité de FloatToStr, mais l'encodage du champ dans TypArray64, typiquement l'ordre de stockage dans le fichier, Big ou Little Indian ... ou carrement un type autre que IEEE 754, un type maison, genre BCD !

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
procedure TFrmTestMemory.BtnSwapDoubleClick(Sender: TObject);
 
   function SwapDouble(Value: Double): Double;
   type
      TMapDouble = array[0..7] of Byte;
   var
     I: Integer;
   begin
      for I := 0 to 7 do
        TMapDouble(Result)[I] := TMapDouble(Value)[7 - I];
   end;
 
var
  D, SD: Double;
begin
var
  D, SD, SSD: Double;
begin
  D := 283;
  SD := SwapDouble(D);
  SSD := SwapDouble(SD);
  ShowMessage(FloatToStr(D)); // 283
  ShowMessage(FloatToStr(SD)); // 5,71304311639417E-317
  ShowMessage(FloatToStr(SSD)); // 283
end;

c'est très ressemblant à son problème non ?

[Montor]

Qu'est ce qui est absurde ?

au debut il disait que la valeur brute est correct
désoler j'etait stupide avec (fvExtended,fvCurrency) moi aussi j'essaie d'apprendre
oui c'est semblable mais c'est a lui de confirmer

[paulfr]

Je viens de compléter le programme suivant les indications de ShaiLeTroll.
Le résultat est là.
ci-joint ce que j'obtiens.

Merci pour votre solution et votre aide
PL

[paulfr]

Ma vérification a été un peu rapide (vu l'heure).
Les nombres positifs sont corrects au signe prés ?
Mais les nombres négatifs sont transformés en une valeur nulle, ou presque
exemple : -413.44 donne 0.01
-1973.00 ---> 0.00
-2875.59 ---> 0.00 ...
Le problème n'est donc pas totalement résolu.
A t'il une solution ?
J'ai annulé "Résolu".

Merci à tous.