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;