delphi 中关于 The DecisionCube capacity is low. Please deactivate dimensions or change the data set 错误的处理

最新推荐文章于 2018-06-08 13:54:26 发布

原创最新推荐文章于 2018-06-08 13:54:26 发布 · 4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #exception #windows #file #存储

本文解决了当物理内存与页面文件可用空间总和超过2GB时，DecisionCube出现的内存容量不足异常。通过修改GetAvailableMem函数来适配不同版本的Delphi编译器，并提供了一段具体的实现代码。

描述

when the sum of the physical memory and the available page file memory exceeds 2 GBytes, then the DecisionCube raises the following exception: 当总和的物理内存和页面文件可存储超过2 GBytes ，然后DecisionCube提出了以下异常：
The DecisionCube capacity is low. 该DecisionCube能力低。 Please deactivate dimensions or change the data set. 请停用层面或更改数据集。

这个问题是在使用整数的函数GetAvailableMem ，我解决这个，这个单位加入到该项目中。

*********************************************************************************************************************************
unit DecisionCubeBugWorkaround;

interface

uses Windows, Mxarrays;

implementation

function GetAvailableMem: Integer;
const
  //MaxInt: Int64 = High(Integer); if Upper than 3 Delphi Version
  MaxInt = High(Integer);
var
  MemoryStatus: TMemoryStatus;
  //AvailableMem: Int64; if Upper than 3 Delphi Version
  AvailableMem: LongInt;
begin
  MemoryStatus.dwLength :=SizeOf(MemoryStatus);
  GlobalMemoryStatus(MemoryStatus);
  AvailableMem:= MemoryStatus.dwAvailPhys;
  if AvailableMem >= 0 then
     AvailableMem:= AvailableMem + MemoryStatus.dwAvailPageFile;

  if AvailableMem < 0 then
     Result := MaxInt
  else
     Result := AvailableMem;
end;

initialization
  Mxarrays.SetMemoryCapacity(GetAvailableMem);
end.