Discussion :

[castorcharly]

Bonjour,

Je cherche à utiliser un type déclaré en C, à partir d'une doc pour une DLL, mais je pêche depuis un bon moment,
pour mettre ça sous Delphi XE7.
Y aurait il un ame avertie qui pourrait m'aider là dessus:
C'est bien sur le union {...} qui me pose problème

Code c++ :

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
typedef struct {
 
 
    int             iSize;
    int             iVersion;
    int             iRet;
    DWORD           dwNotifyType;
    DWORD           dwTimeout;
    union {
        LPHANDLE        lphNotifyEvent;
        HWND            hNotifyWnd;
    } uNotifyHandle;
    HWND            hProgressWnd;
    WORD            wErrorEject;
    BYTE            bBuzzerHz[MF_BUZZER_TYPE_MAX];
    BYTE            bBuzzerCount[MF_BUZZER_TYPE_MAX];
    BYTE            bUseNVMemory;
    char            cPortName[256];
    WORD            wSuccessEject;
} ABASE, *LP_ABASE;

Merci

[Papy214]

J'avais entendu parler de http://rvelthuis.de/programs/convertpack.html
mais je n'ai pas testé.

[foetus]

Tu t'en fiches de l'union

Parce qu'il sert à regrouper dans un espace (du type le plus long) plusieurs types.
Donc:

• Soit tu crées 2 variables
• Soit tu crées 1 seule variable de type long (parce qu'il me semble que HWND c'est un unsigned long) qui aura une double signification (mais 1 seule à la fois)

[Delias]

Bonsoir

L'union en C est repris en tant que partie variable des enregistrement en Delphi: Le case dans la structure record.
Voir l'aide pour les détails.

De ma compréhension des deux langages, le principe du stockage en mémoire est le même. Faut faire attention aux points classiques (que je maîtrise mal).

Bonne soirée

Delias

[tourlourou]

Hormis les solutions proposées, fort judicieuses, je ne suis pas sûr que Delphi permette une déclaration en un seul temps.
Pour coller au plus près au code C, il faudrait créer un premier type enregistrement à partie variable :

Code :

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

1
2
3
4
5
6
7
type 
  TNotifyHandle = record
    case Boolean of
      True:  ( lphNotifyEvent: LPHANDLE );
      False: ( hNotifyWnd:     HWND );
    end;
  end;

puis l'intégrer dans le second :

Code :

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

1
2
3
4
5
6
7
8
9
type 
  LP_ABASE = ^ABASE;
  ABASE = record
     iSize : int;
     //...
     uNotifyHandle: TNotifyHandle; // ici !
     hProgressWnd: HWND;
     //...
   end;

[castorcharly]

Merci à tous, pour votre aide.

La solution via un "case" m'a permis de me rappeler la doc papier de Delphi 6
et la proposition de Tourlourou colle parfaitement aux explications.

Je vais tenter ça, dans ce sens pour "coller" au C.

D'autre part,
Ce type de déclaration:

Code :

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

1
2
3
4
5
// en C
BYTE            bBuzzerCount[MF_BUZZER_TYPE_MAX];
//ou en VB
bBuzzerCount(1 To MF_BUZZER_TYPE_MAX) As Byte

Vous la voyez comment en Delphi ?
Parce que tout ce que je tente est rejeté par le compilateur.

[tourlourou]

Code :

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

1
2
3
bBuzzerCount: array[0..MF_BUZZER_TYPE_MAX-1] of byte;
// ou
bBuzzerCount: array[1..MF_BUZZER_TYPE_MAX] of byte;