Discussion :

[Harry]

Bonjour,

J'ai un logiciel qui mémorise ses paramètres dans un 'record' composé de variables de plusieurs types, en tout 167champs. On à du String[de 3 à 250] du Real48, Byte, Integer, Boolean, Double, Real et même des array[1..6] of real

Ce logiciel est developpé en Delphi4 et le Record est enregistré et lu avec des Read / write.

Je voudrais le lire avec la même technique avec un programme developpé en delphi7 qui à pour but de venir optionnellement se greffer sur l'ancien logiciel. Manque de bol lorsque je lis le record (avec le même code que sous delphi4) les éléments sont chamboulés, je suppose que la taille de certaines variables à changé ?

Y à t'il moyen de forcer la compatibilité ?

Merci,

Harry

[qi130]

Les integers changent de format....(au moins ça)

Quant à renforcer la compatibilité...tu sous-entends sans changer le code, je suppose ?

Peut-être avec des IFDEF basés sur la version du compilo ? permettant d'utiliser alternativement une description dédiée de ton record.

Charge à toi de redécrire ce record avec les types qui vont bien (integer->byte)

[Harry]

Les integers changent de format....(au moins ça)

Quant à renforcer la compatibilité...tu sous-entends sans changer le code, je suppose ?

Peut-être avec des IFDEF basés sur la version du compilo ? permettant d'utiliser alternativement une description dédiée de ton record.

Charge à toi de redécrire ce record avec les types qui vont bien (integer->byte)

Oui, c'est bien quelquechose comme une condition de compilation qu'il me faut. Je ne crois pas que ce soit IFDEF ? (Compile le texte source Delphi qui suit si nom est défini.)

Reécrire ce record ce n'est pas possible sinon le logiciel originel va voir ses 167 paramètres chamboulés justement ! Il faudrais plustôt que j'adapte le nouveau logiciel pour fonctionner avec l'ancien que l'inverse.

[e-ric]

Salut

Une idée me vient : vérifie l'alignement des champs d'enregistrement et aussi l'utilisation éventuelle des directives de compilation {$A-}, {$A1}, {$A2}, {$A4} et {$A8} ou {$A+}, fais une recherche dans le code du projet sous D4.

Ces directives permettent de jouer sur la taille des records sans passer par la directive packed (compulse l'aide en ligne pour le détail).

Ces options pourraient expliquer le chamboulement observé si tes deux Delphi ne sont pas configurés de la même façon.

cdlt

e-ric

[qi130]

Je viens de "chopper" ça dans la jvcl:

Code :

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

1
2
3
4
5
6
7
{$IFDEF DELPHI6}
 {$I jvcld6.inc}
 {$DEFINE JVCL_CONFIGURED}
{$ENDIF DELPIH6}
{-----------------------------------------------------------------------------}
{$IFDEF DELPHI7}
 {$I jvcld7.inc}

Il "suffit" d'avoir une description pour chaque version de compilo...

[Harry]

Salut

Une idée me vient : vérifie l'alignement des champs d'enregistrement et aussi l'utilisation éventuelle des directives de compilation {$A-}, {$A1}, {$A2}, {$A4} et {$A8} ou {$A+}, fais une recherche dans le code du projet sous D4.

Ces directives permettent de jouer sur la taille des records sans passer par la directive packed (compulse l'aide en ligne pour le détail).

Ces options pourraient expliquer le chamboulement observé si tes deux Delphi ne sont pas configurés de la même façon.

cdlt

e-ric

Merci E-ric, je n'ai pas trouvé de directives de compilation particulières dans le logiciel Delphi4.

Il doit sagir de différences entre delphi4 et 7.
Je continue mes recherches.

[Harry]

Je viens de "chopper" ça dans la jvcl:

Code :

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

1
2
3
4
5
6
7
{$IFDEF DELPHI6}
 {$I jvcld6.inc}
 {$DEFINE JVCL_CONFIGURED}
{$ENDIF DELPIH6}
{-----------------------------------------------------------------------------}
{$IFDEF DELPHI7}
 {$I jvcld7.inc}

Il "suffit" d'avoir une description pour chaque version de compilo...

le IFDEF permet de dire si tu compile ou non un morceau de code.

dans ton exemple ca permet de dire que si tu est dans delphi6 tu utilise jvcld6.inc et si tu est dans Delphi7 jvcld7.inc.

[Yurck]

Bonjour,

Attention la JVCL défini ses propres variables de compilation à l'installation

Tu devrais plutôt utiliser ceux du compilateur
Ainsi de mémoire

{$ifdef VER130} //Delphi 5
{$IFDEF VER140} c'est pour delphi 6
etc...


a+

[e-ric]

Merci E-ric, je n'ai pas trouvé de directives de compilation particulières dans le logiciel Delphi4.

Il doit sagir de différences entre delphi4 et 7.
Je continue mes recherches.

As-tu vérifié les options du projet sous D4 ?
Je suis très étonné d'apprendre que les types de données aient pu changer entre deux versions de Delphi Win 32. La plupart des types dépendent directement du matériel, donc les révolutions sont assez rares en ce domaine.

Peux-tu déterminer la taille (en nombre d'octets) de ton enregistrement sous D4 et celle sous D7 ?

Tu as bien repris rigoureusement le record du projet sous D4 ?

Montre la description du record.

cdlt

e-ric

[Harry]

As-tu vérifié les options du projet sous D4 ?
Je suis très étonné d'apprendre que les types de données aient pu changer entre deux versions de Delphi Win 32. La plupart des types dépendent directement du matériel, donc les révolutions sont assez rares en ce domaine.

Peux-tu déterminer la taille (en nombre d'octets) de ton enregistrement sous D4 et celle sous D7 ?

Tu as bien repris rigoureusement le record du projet sous D4 ?

Montre la description du record.

cdlt

e-ric

Pour la taille sous D7 oui, il faudrait que je fasse un enregistrement sur le disque. Mais je crois que ce ne sera pas nécessaire : j'ai affiché dans des showmessage chaque élément jusqu'a trouver celui qui fera foirer et le coupable c'est... le Real48 le premier Real48 auquel 19.6 est affecté (taux de TVA) s'affiche 19.6000000000058
et le taux de conversion franc/euro de 6.55957 se transforme en 4.5479342439577E-13

Reste à savoir pourquoi car Delphi4 incluais deja la gestion des real48 en Double... c'est marqué dans l'aide.

[e-ric]

je ne suis pas sûr mais les équivalences de types réels ont varié avec les version de Delphi. Il me semble qu'avant Real était équivalent à Real48 mais plus sous D7 (Real est dorénavant un double, grosse différence). Real48 est juste là pour la compatibilité avec Turbo Pascal.

Si tu dispose de l'aide de Delphi pour les deux versions, il y a un chapitre consacré à la gestion de la mémoire dédié aux nombres réels (leur représentation en mémoire est abordé).

A partir de l'examen de ces types, tu peux en déduire la bonne structure de ton record sous D7.

Autre élément d'appréciation (issu de l'aide)

Type Bascule
Syntaxe {$REALCOMPATIBILITY ON} ou {$REALCOMPATIBILITY OFF}
Défaut {$REALCOMPATIBILITY OFF}
Portée Locale
Remarque

Dans l'état par défaut {$REALCOMPATIBILITY OFF}, le type réel générique est équivalent à Double.
Dans l'état {$REALCOMPATIBILITY ON}, Real est équivalent à Real48.
La bascule REALCOMPATIBILITY offre une compatibilité pour du code existant dans lequel Real est utilisé pour représenter le type réel sur 6*octets, appelé aujourd'hui Real48. Dans du nouveau code, utilisez Real48 lorsque vous voulez spécifier un réel sur 6*octets.
Double est le type réel préféré dans la plupart des cas.

En utilisant cette directive localement, tu peux peut-être résoudre ton problème.

cdlt

e-ric

[Harry]

je ne suis pas sûr mais les équivalences de types réels ont varié avec les version de Delphi. Il me semble qu'avant Real était équivalent à Real48 mais plus sous D7 (Real est dorénavant un double, grosse différence). Real48 est juste là pour la compatibilité avec Turbo Pascal.

Si tu dispose de l'aide de Delphi pour les deux versions, il y a un chapitre consacré à la gestion de la mémoire dédié aux nombres réels (leur représentation en mémoire est abordé).

A partir de l'examen de ces types, tu peux en déduire la bonne structure de ton record sous D7.

Autre élément d'appréciation (issu de l'aide)

En utilisant cette directive localement, tu peux peut-être résoudre ton problème.

cdlt

e-ric

Oui, c'est depuis Delphi4 que le Real48 à été introduit pour compatibilité avec le Real de delphi3 et plus ancien et le nouveau Real correspond à un double.

Le Real48 n'aurais donc pas du changer entre delphi 4 et 7, pourtant c'est le cas.
La directive {$REALCOMPATIBILITY ON} permet de faire passer les Real en Real48 mais ne change pas la gestion des Real48.

Dailleurs on vois bien que Sous Delphi7 le Real48 n'est pas confondu avec le 'Real' (double) car sur le premier chiffre on obtiens presque le même résultat. Vu que la gestion mémoire des Real48 et des Double est radicalement différente il n'y à aucune chance d'obtenir quelquechose de ressemblant.

Au cas ou j'ai testé en remplacant les Real48 par des Double/real pour voir et c'était effectivement une toute autre affaire.