Encore un problème de traduction C++ delphi

Version imprimable

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

Code:

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;

Bonjour et bienvenue sur Developpez.com :D

Quelques éléments de réponse :

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

Ce doit donc donner quelque chose qui ressemble à ceci :

Code:

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;

11/09/2007, 18h19
chuck33

Merci pour la réponse

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

A plus.
11/09/2007, 20h13
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 ...
12/09/2007, 00h04
sjrd

Citation:

Envoyé par ShaiLeTroll

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

C'est pas un coup de bol :aie: 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.

Citation:

Envoyé par ShaiLeTroll

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 :P

Citation:

Envoyé par ShaiLeTroll

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 ;)

Citation:

Envoyé par sjrd

C'est pas un coup de bol :aie: 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 ...

Citation:

Envoyé par sjrd

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 :P

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:

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;
Citation:

Envoyé par sjrd

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