注意添加：uses Types;
function FileToByteArray(const FileName:string; var ByteBuffer:TByteDynArray):Boolean;
var
iFileHandle:Integer;
iFileLength:Integer;
begin
iFileHandle := FileOpen(FileName, fmOpenRead);
if iFileHandle = -1 then
begin
Result := False;
end
else
begin
iFileLength := FileSeek(iFileHandle, 0, 2);
FileSeek(iFileHandle, 0, 0);
SetLength(ByteBuffer, iFileLength);
FileRead(iFileHandle, ByteBuffer[0], iFileLength);
FileClose(iFileHandle);
Result := True;
end;
end;