Discussion :

[chuck33]

Qui pourrait m'aider pour traduire ceci de C++ en delphi :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
typedef struct tagMPA_CONFIG
{
  ULONG structLen;
  union
  {
    struct
    {
      // Set the following bits to indicate which parameter(s) are to be
      // set. Parameter value(s) with corresponding bits set to zero are
      // not changed.
      // Tx does not require buffers since pending IRPs provide buffers.
      UCHAR FrameBufferSizeRx : 1;
      UCHAR NumFrameBuffersRx : 1;
      UCHAR BaudRate : 1;
      UCHAR ClockRate : 1;
      UCHAR ClockMode : 1;
      UCHAR InternalLoopback : 1;
      UCHAR RxClockSource : 1;
      UCHAR TxClockSource : 1;
      UCHAR TRXCOutput : 1;
      UCHAR Encoding : 1;
      UCHAR DPLLClockSource : 1;
      UCHAR DPLLMode : 1;
      UCHAR AutoRTSDeact : 1;
      UCHAR CRCPreset : 1;
      UCHAR IdleLineControl : 1;
      ULONG pad : (8*sizeof(ULONG) - 13);
    } bits;
    ULONG all; // Used to clear/set all bits at once.
  } set;
 
  ULONG FrameBufferSizeRx; // In bytes.
  ULONG NumFrameBuffersRx;
  ULONG BaudRate;
  ULONG ClockRate;
  ULONG ClockMode;
  BOOLEAN InternalLoopback;
  CLOCK_SOURCE RxClockSource;
  CLOCK_SOURCE TxClockSource;
  TRXC_OUTPUT TRXCOutput;
  ENCODING Encoding;
  DPLL_CLOCK_SOURCE DPLLClockSource;
  DPLL_MODE DPLLMode;
  BOOLEAN AutoRTSDeact;
  BOOLEAN CRCPreset;
  IDLE_LINE_CONTROL IdleLineControl;
} MPA_CONFIG, *PMPA_CONFIG;

[sjrd]

Bonjour et bienvenue sur Developpez.com

Quelques éléments de réponse :

• typedef struct type TLeType = record
• union record variant (avec un case)
• struct (tout court) record non nommé comme champ
• champ de bits tous de valeur 1 ensemble d'énumération
• ULONG LongWord
• BOOLEAN ByteBool, ou LongBool si le premier ne fonctionne pas
• * ^ (avec un syntaxe légèrement différente)

Ce doit donc donner quelque chose qui ressemble à 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
type
  TMPAConfigOption = (mcoFrameBufferSizeRx, mcoNumFrameBuffersRx, mcoBaudRate,
    mcoClockRate, mcoClockMode, mcoInternalLoopback, mcoRxClockSource,
    mcoTxClockSource, mcoRXCOuput, mcoEncoding, mcoDPLLClockSource, mcoDPLLMode,
    mcoAutoRTSDeact, mcoCRCPreset, mcoIdleLineControl);
  TMPAConfigOptions = set of TMPAConfigOption;
 
  tagMPA_CONFIG = record
    StructLen: LongWord;
    Options: record
      case Boolean of
        False: Options: TMPAConfigOptions;
        True: All: LongWord;
    end;
    FrameBufferSizeRx: LongWord;
    NumFrameBuffersRx: LongWord;
    BaudRate: LongWord;
    ClockRate: LongWord;
    ClockMode: LongWord;
    InternalLoopback: ByteBool; // peut-être LongBool
    RxClockSource: CLOCK_SOURCE;
    RxClockSource: CLOCK_SOURCE;
    TRXCOuput: TRXC_OUTPUT;
    AEncoding: ENCODING; // Delphi est case-insensitive
    DPLLClockSource: DPLL_CLOCK_SOURCE;
    DPLLMode: DPLL_MODE;
    AutoRTSDeact: ByteBool; // peut-être LongBool
    CRCPreset: ByteBool; // peut-être LongBool
    IdleLineControl: IDLE_LINE_CONTROL;
  end;
 
  TMPA_CONFIG = tagMPA_CONFIG;
  TMPAConfig = TMPA_CONFIG;
  PMPAConfig = ^TMPAConfig;

[chuck33]

Ok je vais voir ce que cela donne, merci beaucoup pour les infos.

A plus.

[ShaiLeTroll]

Elegant la technique du set TMPAConfigOptions pour jouer avec chaque bit, un jour j'ai failli adapté une structure à champ de bit en 2003 (je n'avais pas le .h et la fiche technique du protocol laissait imaginer le pire), et je n'aurais pas trouvé cette solution (eux même n'utilisait pas cette syntaxe, utilisant des constantes 1, 2, 4, 8 ... avec un mask dans un simple ULONG), je n'ai découvert le stockage d'un set que l'année dernière en l'écrivant dans un fichier ...

Sinon, pourquoi -13 ? et pk 8*SizeOf, car un j'aurais dis -15 et 8 fois cela me parait peu par rapport au reste de la structure ! comme fonctionne le pad, j'ai eu parfois à adapter ce genre de structure, et le coup de bol est qu'elle n'était pas utile à mon programme ...

[sjrd]

et le coup de bol est qu'elle n'était pas utile à mon programme ...

C'est pas un coup de bol C'est parce que les champs de ce type ne sont jamais utiles. Ils sont là uniquement pour remplir les trous, ce que le Pascal/Delphi fait très bien tout seul.

Sinon, pourquoi -13 ? et pk 8*SizeOf, car un j'aurais dis -15 et 8 fois cela me parait peu par rapport au reste de la structure !

Comme je l'ai dit, c'est uniquement pour remplir les trous. 8*SizeOf(ULONG), c'est le nombre de bits qu'occupe un champ de type ULONG. 13, c'est le nombre d'options, donc de bits déjà utilisés dans le champ de bits. Donc 8*SizeOf(ULONG)-13 c'est le nombre de bits qu'il reste, et qui ne servent à rien

Elegant la technique du set TMPAConfigOptions pour jouer avec chaque bit

Je dirais plutôt : élégant le type de données ensemble mis au point dans le langage Pascal

[ShaiLeTroll]

C'est pas un coup de bol C'est parce que les champs de ce type ne sont jamais utiles. Ils sont là uniquement pour remplir les trous, ce que le Pascal/Delphi fait très bien tout seul.

je ne parlais pas du pad, mais je n'ai jamais eu a utiliser des structures contenant des bits, il est vrai que j'ai écrit mes phrases dans le désordre ...

Comme je l'ai dit, c'est uniquement pour remplir les trous. 8*SizeOf(ULONG), c'est le nombre de bits qu'occupe un champ de type ULONG. 13, c'est le nombre d'options, donc de bits déjà utilisés dans le champ de bits. Donc 8*SizeOf(ULONG)-13 c'est le nombre de bits qu'il reste, et qui ne servent à rien

ah, bon, moi j'avais compté 15 options, donc pour moi, pour remplir un ULONG (je pense à All), il manque 17 bits non ? mais j'ai compris, sur ce coup on parle en bit, lol, je n'ai fait que des pad/Spare sur des octets, 8 car octect = 8 bit, donc 8 * 4 = 32, le pad fait donc 19 ... je me suis trompé avec Delphi, ou tu on aurais a faire un pad dans une structure variable comme 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
15
16
17
type
   TTroisiemeType = record
      case integer of
         0: (
             B1: Byte;
             B2: Byte;
             B3: Byte;
             DummyB: Byte;
            );
         1: (
             A: array[0..2] of Byte;
             DummyA: Byte;
            );
         2: (
             I: Integer;
            );
   end;

Je dirais plutôt : élégant le type de données ensemble mis au point dans le langage Pascal

Je dirais même plus, ... lol, oui l'idée de l'utiliser, et celle de l'avoir créé ainsi c'est excellent