Discussion :

[phoenixgreg]

Bonjour tout le monde,

J'ai des valeurs que me renvoi une DLL en C++ via un callback dans mon application en Delphi XE8, des valeurs de type Byte, Integer, et Word. Pas de soucis les valeurs sont celles attendues.

Sauf que je dois passer cela en Delphi 2007, les valeurs de type Byte sont bonnes mais celles de type Word sont erronées.
Il y a forcément entre delphi 2007 et XE.. une différence avec le type Word mais laquelle ? Dois-je passer par autre chose comme type ?

Merci pour votre soutient et bonne journée !

Greg

[Paul TOTH]

non le type Word reste sur 16bits, pas de changement de ce côté là

[phoenixgreg]

Ok merci Paul, donc ça vient d'ailleurs, je pense que ma fonction callback est mal implémentée.

[guillemouze]

peut etre un probleme de cdecl ou stdcall, mais tu aurai aussi eu le problème avant théoriquement ...

[phoenixgreg]

nan ça doit être autre chose, comme dit les valeurs de type Word sont bien retournées sous Delphi XE8 mais sous Delphi 2007 elles ne le sont pas, ça ressemble à ça :

Code :

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

1
2
3
4
5
6
7
8
 
stTMessGeneric = Packed record
    by_sop_address: byte;
    dw_e_equ_type: word;
    dw_e_type_msg: word;
    aby_mid:Array[0..5] of byte;
    dw_num_synch: word;
end;

La valeur pour by_sop_address est bonne (Byte) mais les autres dw_e_equ_type, dw_e_type_msg, dw_num_synch (Word) me donnes des valeurs incohérentes..
Pourtant du côté Visual Studio (là où est développée ma dll en C++), quand je joue avec mes petits breakpoints, les valeurs sont pourtant bonnes.
Logiquement ça vient du côté de Delphi 2007 !

Greg

[Andnotor]

Et tu es sûr que ces données sont compactées (packed) et non alignées ?
Si aligné, le premier byte sera juste (little-endian) mais le reste décalé de N bytes (1 ou 3).

[phoenixgreg]

oui normalement, le mot clé "packed" est bien déclaré et j'ai même mis {$ALIGN OFF} avant mon record pour être sûr.

[Andnotor]

Ça c'est de ton côté mais que renvoit la DLL ?

Pour essai, ajoute des information bidons pour aligner sur un mot :

Code :

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

1
2
3
4
5
6
7
8
stTMessGeneric = Packed record
    by_sop_address: byte;
    Dummy :byte;
    dw_e_equ_type: word;
    dw_e_type_msg: word;
    aby_mid:Array[0..5] of byte;
    dw_num_synch: word;
end;

[phoenixgreg]

Ah on se rapproche ! Il faut que je regarde en effet du côté C++ si les bytes sont bien compactées.
J'ai rajouté Dummy en effet, maintenant les valeurs suivantes dw_e_equ_type, dw_e_type_msg de type word sont bonnes.
Donc il y a quelque chose à faire du côté C++.

Merci Andnotor

[phoenixgreg]

Et bien voilà ce n'était pas du côté Delphi mais côté C++, j'ai rajouté la directive #pragma pack(push, 1) qui permet de ne pas ajouter de padding :

#pragma pack(push[,n]) pushes the current alignment setting on an internal stack and then optionally sets the new alignment.

et à la fin du struct #pragma pack(pop) revient à la version d'alignement précédente :

#pragma pack(pop) restores the alignment setting to the one saved at the top of the internal stack (and removes that stack entry)

Voilà merci à vous !

[guillemouze]

J'ai eu un problème ressemblant une fois, je ne pense pas que ca change quelque chose dans ton cas, mais ca pourra peut etre t'aider plus tard, ou pour d'autres.
Dans mon cas, c'était à cause d'un enum, qui n'a pas la même taille en Delphi et en C++.
Si ta fonction contient un enum, du style

Code :

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

1
2
TPenStyle = (psSolid, psDot, psDashDot);
procedure GetPenStyle(Handle: THandle; var ps: TPenStyle; xxx: integer); stdcall; external 'maDllCpp.dll';

tu aura le même décalage car l'enum est codé sur un byte en Delphi, 4 en C++. Il faut donc forcer l'enum à être sur 4 octets :

Code :

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

1
2
3
{$Z4}
TPenStyle = (psSolid, psDot, psDashDot);
{$Z1}

(je crois qu'il y a aussi $Z+ zr $Z-, mais j'en suis plus sur)