So oder ähnlich könnte es funktionieren:
Delphi-Quellcode:
var
fs: TFileStream;
iSize: cardinal;
da: array of byte;
begin
fs := TFileStream.Create(fileName, fmOpenRead, fmShareDenyWrite);
SetLength(da, fs.Size);
fs.Read(da[0], fs.Size);
fs.Free;
end;
Grüße vom marabu