Zitat von
Pseudemys Nelsoni:
Kann jemand den Fehler nachvollziehen?
Mit Delphi 6 nicht nachvollziehbar...
Delphi-Quellcode:
type
PBE_CONFIG = ^BE_CONFIG;
BE_CONFIG = record
dwConfig: DWORD;
format : record
case Integer of
0: (
mp3: record
dwSampleRate: DWORD;
byMode : BYTE;
wBitrate : WORD;
bPrivate : BOOL;
bCRC : BOOL;
bCopyright : BOOL;
bOriginal : BOOL;
end);
1: (
LHV1: record
dwStructVersion: DWORD;
dwStructSize : DWORD;
dwSampleRate : DWORD;
dwReSampleRate : DWORD;
nMode : UINT;
dwBitrate : DWORD;
dwMaxBitrate : DWORD;
nPreset : UINT;
dwMpegVersion : DWORD;
dwPsyModel : DWORD;
dwEmphasis : DWORD;
bPrivate : BOOL;
bCRC : BOOL;
bCopyright : BOOL;
bOriginal : BOOL;
bWriteVBRHeader: BOOL;
bEnableVBR : BOOL;
nVBRQuality : Integer; // INT
dwVbrAbr_bps : DWORD;
bNoRes : BOOL;
btReserved : array [0..255 - 2 * SizeOf(DWORD) - 1] of BYTE;
end);
2: (
aac: record
dwSampleRate : DWORD;
byMode : BYTE;
wBitrate : WORD;
byEncodingMethod: BYTE;
end);
end;
end;
Du solltest dir abgewöhnen Tabulatoren in deinem Quellcode zu verwenden...