Zitat von
nitschchedu:
Und wieder habe ich eine Frage !
Habe ich das Richtig Übersetzt ?
Delphi-Quellcode:
#
if defined(__midl)
typedef struct
{
unsigned long Data1;
unsigned short Data2;
unsigned short Data3;
byte Data4[ 8 ];
} GUID;
#
else
typedef struct _GUID
{
unsigned long Data1;
unsigned short Data2;
unsigned short Data3;
unsigned char Data4[ 8 ];
} GUID;
Delphi-Quellcode:
TnduGuid = record
Data1: Longint;
Data2: Shortint;
Data3: Shortint;
Data4: array [0..8] of Byte;
end;
Zitat von
Klaus01:
Ich würd unsigned short eher mit Byte übersetzen
und unsigned long mit LongWord.
Grüße
Klaus
GUID ist schon für delphi übersetzt:
Delphi-Quellcode:
PGUID = ^TGUID;
TGUID = packed record
D1: LongWord;
D2: Word;
D3: Word;
D4: array[0..7] of Byte;
end;
unsigned short ist zwei Byte gross.
