C- union Struktur in Delphi

[Mephistopheles]

Zitat von Christian Seehase:

das Problem ist, dass in der Originalstruktur die Union am Anfang steht, die kannst Du jetzt also nicht einfach an das Ende setzen.

Du darfst den varianten Teil aber auch nicht einfach an den Anfang setzen ... mein Delphi verweigert sich jedenfalls dieser Syntax

Siehe hier:

Zitat von Christian Seehase:

Ein gravierendes Problem gibt es allerdings auf jeden Fall:
Der variante Teil muss am Ende der Record-Deklaration stehen, so dass man ziemliche Verrenkungen machen muss, wenn man so eine Struktur mittendrin braucht.

Zitat von Christian Seehase:

Ich denke mal so müsste es gehen:

Code:

  PIP_ADAPTER_ADDRESSES = ^TIP_ADAPTER_ADDRESSES;
  TIP_ADAPTER_ADDRESSES = packed record
    case byte of
      0 : (Alignment : int64;
           Next : P_IP_ADAPTER_ADDRESSES;
           AdapterName: PChar;
           FirstUnicastAddress: PIP_ADAPTER_UNICAST_ADDRESS;
           FirstAnycastAddress: PIP_ADAPTER_ANYCAST_ADDRESS;
           FirstMulticastAddress: PIP_ADAPTER_MULTICAST_ADDRESS;
           FirstDnsServerAddress: PIP_ADAPTER_DNS_SERVER_ADDRESS;
           DnsSuffix: PWCHAR;
           Description: PWCHAR;
           FriendlyName: PWCHAR;
           PhysicalAddress: [color=red]array [0..MAX_ADAPTER_ADDRESS_LENGTH-1] of byte;[/color]
           PhysicalAddressLength: DWord;
           Flags: DWord;
           Mtu: DWord;
           IfType: DWord;
           OperStatus: IF_OPER_STATUS;
           Ipv6Index: DWord;
           ZoneIndices: [color=red]array [0..15] of DWORD;[/color]
           FirstPrefix: PIP_ADAPTER_PREFIX;);
      1 : (length  : DWORD;
           IfIndex : DWORD;)
    end;

Definitiv nicht! Der variante Teil ist falsch plaziert.

Zitat von Christian Seehase:

Nicht zu vergessen die Arrays auch in Delphi-Konvention einzubauen. (rot markiert)

Okay, die Arrays waren deswegen ein Problem bei mir. Hast recht. Ich beschäftige mich eindeutig zuviel mit C und C++

So ist es komplett korrekt:

Code:

type
  PIP_ADAPTER_ADDRESSES = ^TIP_ADAPTER_ADDRESSES;
  TIP_ADAPTER_ADDRESSES = packed record
    case Integer of
      [color=red]1: (Alignment: ULONGLONG);
      2: (Length: ULONG;
        IfIndex: DWORD;[/color]
        [color=green]Next: PIP_ADAPTER_ADDRESSES;
        AdapterName: PChar;
        FirstUnicastAddress: PIP_ADAPTER_UNICAST_ADDRESS;
        FirstAnycastAddress: PIP_ADAPTER_ANYCAST_ADDRESS;
        FirstMulticastAddress: PIP_ADAPTER_MULTICAST_ADDRESS;
        FirstDnsServerAddress: PIP_ADAPTER_DNS_SERVER_ADDRESS;
        DnsSuffix: PWCHAR;
        Description: PWCHAR;
        FriendlyName: PWCHAR;
        PhysicalAddress: array[0..MAX_ADAPTER_ADDRESS_LENGTH - 1] of Byte;
        PhysicalAddressLength: DWORD;
        Flags: DWORD;
        Mtu: DWORD;
        IfType: DWORD;
        OperStatus: IF_OPER_STATUS;
        Ipv6Index: DWORD;
        ZoneIndices: array[0..15] of DWORD;
        FirstPrefix: PIP_ADAPTER_PREFIX;[/color]
        )
  end;