Discussion :

[skywaukers]

bonsoir,

désolé de vous embêter à nouveau avec du pascal basique, mais voilà : j'ai essayé 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
 
KN_OBJ = record
              ObjType   : Integer; // object type
              AddrHigh  : Integer; // object address - high byte
              AddrLow   : Integer; // object address - low byte
              Index     : Integer; // index address for object arrays
              Val : record
                     case Integer of
                      0 : (I : LongInt); // object value - integer
                      1 : (D : Double);  // object value - double/single
                    end;
              Exponent  : Integer; // object value - exponent
              BitNumber : Integer;// specific bit number
             end;

une variable de ce type est envoyée à une dll. Si je renseigne val.I, cela fonctionne, mais elle ne veut rien prendre si je renseigne val.D

pourtant la dll fonctionne correctement avec un pgm VB

merci,
Dany

[droggo]

Foa,

Ben oui, tu voulais une structure en Delphi qui corresponde à une union pour les champs I et D (pour toi Val.I et Val.D).

C'est le cas, et ces 2 champs utilisent la même zone mémoire.

Sinon, je ne vois pas ce que tu veux dire.

ps : pourquoi un nouveau sujet, tu pouvais continuer dans l'autre.

[skywaukers]

bonsoir et merci,

j'ai fait un nouveau sujet car j'avai mis le précédent résolu, pensant que effectivement cela était la solution, bien que j'avais déjà éssayé la solution de Paul Toth à vrai dire.
En fait mon problème est le suivant :
je cherche à dialoguer avec une dll de control technic qui permet d'écrire des paramètres dans un variateur électronique. Cette dll exporte pleins de functions, dont une fonction readobject et une fonction writeobject qui prennent en paramètre entre autre un pointeur vers une variable de ce fameux type. Hors c ok pour les paramètres entier, mais il refuse de prendre les valeurs décimales. La raison est surement ailleurs, mais je voulait au moins éliminer cette piste, ce qui semble être le cas.

Encore merci,
Dany

[ShaiLeTroll]

en général mes cases structure sont à la fin, mais ceci SANS val fonctionne peut-être mieux ? En deplhi, l'union n'est pas nommé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type
    KN_OBJ = record
        ObjType   : Integer; // object type
        AddrHigh  : Integer; // object address - high byte
        AddrLow   : Integer; // object address - low byte
        Index     : Integer; // index address for object arrays
        case Integer of
            0 : (I : LongInt); // object value - integer
            1 : (D : Double);  // object value - double/single
        end;
        Exponent  : Integer; // object value - exponent
        BitNumber : Integer;// specific bit number
   end;

un exemple flagrant, la Structure _LDT_ENTRY contient l'union Bytes et Bits

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
 
typedef struct _LDT_ENTRY { // ldte  
    WORD LimitLow;  
    WORD BaseLow; 
    union { 
        struct { 
            BYTE BaseMid; 
            BYTE Flags1; 
            BYTE Flags2; 
            BYTE BaseHi; 
        } Bytes; 
        struct { 
            DWORD BaseMid : 8; 
            DWORD Type : 5; 
            DWORD Dpl : 2; 
            DWORD Pres : 1; 
            DWORD LimitHi : 4; 
            DWORD Sys : 1; 
            DWORD Reserved_0 : 1; 
 
            DWORD Default_Big : 1; 
            DWORD Granularity : 1; 
            DWORD BaseHi : 8; 
        } Bits; 
    } HighWord; 
} LDT_ENTRY, *PLDT_ENTRY;

en Delphi, ce n'est pas nommé (bon en plus nous n'avons pas la possibilité de manipulé de bit comme des Entiers, car cela cache un mask et un shr)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  _LDT_ENTRY = record
    LimitLow: Word;
    BaseLow: Word;
    case Integer of
      0: (
        BaseMid: Byte;
        Flags1: Byte;
        Flags2: Byte;
        BaseHi: Byte);
      1: (
        Flags: Longint);
  end;

[droggo]

Die,

en général mes cases structure sont à la fin, mais ceci SANS val fonctionne peut-être mieux ? En deplhi, l'union n'est pas nommé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type
    KN_OBJ = record
        ObjType   : Integer; // object type
        AddrHigh  : Integer; // object address - high byte
        AddrLow   : Integer; // object address - low byte
        Index     : Integer; // index address for object arrays
        case Integer of
            0 : (I : LongInt); // object value - integer
            1 : (D : Double);  // object value - double/single
        end;
        Exponent  : Integer; // object value - exponent
        BitNumber : Integer;// specific bit number
   end;

Non, les champs variants ainsi déclarés doivent être les derniers dans le record, et deplus les case of ne doit pas être fermé par un end.

il faudrait donc faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
type
    KN_OBJ = record
        ObjType   : Integer; // object type
        AddrHigh  : Integer; // object address - high byte
        AddrLow   : Integer; // object address - low byte
        Index     : Integer; // index address for object arrays
        Exponent  : Integer; // object value - exponent
        BitNumber : Integer;// specific bit number
        case Integer of
            0 : (I : LongInt); // object value - integer
            1 : (D : Double);  // object value - double/single
   end;

Mais ça risque de poser des problèmes à skywaukers, la structure étant apparemment imposée par sa dll ?


pour skywaukers : es-tu sûr que ta dll travaille avec un double ?

Ton problème semble indiquer une erreur dans la taille des champs déclarés.

Il faut donc que tu vérifies leur taille effective pour la dll, et que tu déclares les types en fonction de cela.

[ShaiLeTroll]

Non, les champs variants ainsi déclarés doivent être les derniers dans le record, et deplus les case of ne doit pas être fermé par un end.

Je n'étais pas sure, effectivement, tous mes records variables sont à la fin ... sinon ceci est possible ...

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
type
    KN_OBJ = record
        ObjType   : Integer; // object type
        AddrHigh  : Integer; // object address - high byte
        AddrLow   : Integer; // object address - low byte
        Index     : Integer; // index address for object arrays
        case Integer of
            0 : (
                 I : LongInt;// object value - integer
                 );             
            1 : (
                 D : Double;  // object value - double/single
                 Exponent  : Integer; // object value - exponent
                 BitNumber : Integer; // specific bit number
                );
   end;

Après si il y a avait une confusion de Double / Single, n'y aurait-il pas un problème avec le champ Exponent (j'ignore comment le C++ aligne un champ variable de longueur différent Integer et Double (4 et 8)) mais cela doit être assez standard, ...
Attention, il faut bien initialisé sa structure car dans une variable locale, la structure contient ce qui se trouvait à la mémoire, un ZeroMemory peut-être prudent à faire ... si c'est par pointer, via New, normalement la mémoire est "nullifiée"

[sjrd]

La structure utilisée pour le case a déjà été discutée et approuvée dans l'autre thread. Ce que donne skywaukers est correct.

Par contre, comme l'a fait remarquer droggo, il est fort possible que la DLL ne travaille pas avec un Double, mais bien avec un Single, qui a la même taille que le Integer.

Je donnerais donc ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
KN_OBJ = record
  ObjType   : Integer; // object type
  AddrHigh  : Integer; // object address - high byte
  AddrLow   : Integer; // object address - low byte
  Index     : Integer; // index address for object arrays
  Val : record
    case Integer of
      0 : (I : LongInt); // object value - integer
      1 : (S : Single);  // object value - single
  end;
  Exponent  : Integer; // object value - exponent
  BitNumber : Integer; // specific bit number
end;