Conversion type C vers Delphi

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:

---

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

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

Tu t'en fiches de l'union :mrgreen:

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)

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

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:

---

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:

---

1 2 3 4 5 6 7 8 9

type LP_ABASE = ^ABASE; ABASE = record iSize : int; //... uNotifyHandle: TNotifyHandle; // ici ! hProgressWnd: HWND; //... end;

---

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:

---

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.

Code:

---

1 2 3

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

---

Citation:

---

Envoyé par tourlourou

Code:

---

1 2 3

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

---

---

Merci, j'avais trouvé ce type de déclaration, mais je n'étais pas certain de l'équivalence.
D'ailleurs en cherchant dans les sources, je suis tombé sur des structures que je n'avais jamais vu et qui me laissent bouche bée d'ignorance...8O

Merci encore,

Cher Maitre Castor



Ne pas oublier de vérifier l'alignement entre le struct de la DLL en C et le record Delphi !
Cela se verra surtout à partir de wErrorEject et bUseNVMemory si c'est un alignement à 0 (packed), 4 ou 8

Idem pour le char a mapper en AnsiChar : cPortName: array[0..255] of AnsiChar;



Votre éternel apprenti

Citation:

---

Envoyé par ShaiLeTroll

Cher Maitre Castor



Ne pas oublier de vérifier l'alignement entre le struct de la DLL en C et le record Delphi !
Cela se verra surtout à partir de wErrorEject et bUseNVMemory si c'est un alignement à 0 (packed), 4 ou 8

Idem pour le char a mapper en AnsiChar : cPortName: array[0..255] of AnsiChar;



Votre éternel apprenti

---

Monsieur est trop bon :mouarf: