mein quelltext sieht wie folgt aus:
Delphi-Quellcode:
uses
windows;
var
a: array of byte;
hFile: LongWord;
fSize: LongWord;
bRead: LongWord;
begin
hFile := CreateFile('C:\miep.mp3',
GENERIC_READ,
FILE_SHARE_READ or FILE_SHARE_DELETE or FILE_SHARE_WRITE,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
fSize := GetFileSize(hFile, nil);
SetLength(a, fSize);
ReadFile(hFile,
a,
fSize,
bRead,
nil);
ansich funktioniert alles wie gewuenscht. alerdings nur mit einem array statischer groeße. da aber meine datei aber immer eine unterschiedliche groeße haben wird, klappt das mit einem statischen buffer nicht. also tauschte ich mein statisches gegen ein dynamisches, welches ich mit SetLength() dimensioniere. jetzt bekomme ich aber bei ReadFile() einen fehler.
bRead ( = gelesene bytes) enthaelt dann 0 und GetLastError() liefert mir 998 (Unzulässiger Zugriff auf einen Speicherbereich). auch wenn ich einen pointer nehme und mir dann einfach speicher reserviere, funktioniert das ebenso nicht.
weiß jemand, woran das liegt und wie ich das unterbinde bzw loesen kann? :)