C Unions in Delphi

Question

Я хотел бы перевести некоторые определения типов из winnt.h, которые содержат некоторые объединения с битовыми полями. Однако, это правильный способ сделать это? Я особенно не уверен в союзе в _TP_CALLBACK_ENVIRON_V3.

typedef struct _UMS_SYSTEM_THREAD_INFORMATION { 
     ULONG UmsVersion; 
     union { 
      struct { 
       ULONG IsUmsSchedulerThread : 1; 
       ULONG IsUmsWorkerThread : 1; 
      } DUMMYSTRUCTNAME; 
      ULONG ThreadUmsFlags; 
     } DUMMYUNIONNAME; 
    } UMS_SYSTEM_THREAD_INFORMATION, *PUMS_SYSTEM_THREAD_INFORMATION; 

    typedef struct _TP_CALLBACK_ENVIRON_V3 { 
    TP_VERSION       Version; 
    PTP_POOL       Pool; 
    PTP_CLEANUP_GROUP     CleanupGroup; 
    PTP_CLEANUP_GROUP_CANCEL_CALLBACK CleanupGroupCancelCallback; 
    PVOID        RaceDll; 
    struct _ACTIVATION_CONTEXT  *ActivationContext; 
    PTP_SIMPLE_CALLBACK    FinalizationCallback; 
    union { 
     DWORD       Flags; 
     struct { 
      DWORD      LongFunction : 1; 
      DWORD      Persistent : 1; 
      DWORD      Private  : 30; 
     } s; 
    } u; 
    TP_CALLBACK_PRIORITY    CallbackPriority; 
    DWORD        Size; 
} TP_CALLBACK_ENVIRON_V3; 

type 
    UMS_SYSTEM_THREAD_INFORMATION = record 
    UmsVersion: ULONG; 
    ThreadUmsFlags: ULONG; 
    case Integer of 
     0:(IsUmsSchedulerThread : ULONG); 
     1:(IsUmsWorkerThread : ULONG); 
    end; 
    PUMS_SYSTEM_THREAD_INFORMATION = ^UMS_SYSTEM_THREAD_INFORMATION; 

    TP_CALLBACK_ENVIRON_V3 = record 
    Version: TP_VERSION; 
    Pool: PTP_POOL; 
    CleanupGroup: PTP_CLEANUP_GROUP; 
    CleanupGroupCancelCallback: PTP_CLEANUP_GROUP_CANCEL_CALLBACK; 
    RaceDll: PVOID; 
    ActivationContext: PACTIVATION_CONTEXT; // Pointer 
    FinalizationCallback: PTP_SIMPLE_CALLBACK; 
    case Flags: DWORD of 
     1: (LongFunction: DWORD) 
     1: (Persistent: DWORD) 
     30: (Private: DWORD) 
    end; 
    CallbackPriority: TP_CALLBACK_PRIORITY; 
    Size: DWORD; 
    end; 
    PTP_CALLBACK_ENVIRON = ^TP_CALLBACK_ENVIRON_V3; 

Answer 1

Те : something нотации битовые поля. Нет прямого эквивалента Паскаля.

Однако, так как три битовые в сочетании являются полный DWORD, общая схема для эквивалента становится чем-то вроде этого:

type 
    _TP_CALLBACK_ENVIRON_V3 = record 
    ... 
    FinalizationCallback: PTP_SIMPLE_CALLBACK; 
    case Integer of 
    1: (Flags: DWord); 
    2: (LongFunctionPersistentPrivate: DWord) 
    end; 

Answer 2

Как уже отмечалось, «:» нотации битовые поля. Прямого решения нет, но есть простой способ перевести их, что делает их полезными снова. См. Мою статью, которая описывает это. Он использует простой набор функций, чтобы получить или установить несколько бит и сдвинуть их на место, и умный способ (я его не изобрел, BTW) объявить их, используя довольно неизвестный индекс свойств.

Посмотрите здесь: Pitfalls of converting

Идея пришла из Stack Overflow answer.

FWIW, статья также описывает how to handle unions в таких переводах.