R
Renping_zhang
Unregistered / Unconfirmed
GUEST, unregistred user!
由于需要连接ADO数据源,好不容易在网上下载一套Decision Cube2组件。但是使用之后出现“The DecisionCube capacity is low. Please deactivate dimensions or change the data set”的问题,按照高手的解决办法将下面单元加入工程中,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.
如果用delphi7自带的Decision Cube组件,确实能解决问题,但是用Decision Cube2组件,却报“duplicate resources”错误!!! 不知如何解决,请各位高手指点!!万分感谢!
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.
如果用delphi7自带的Decision Cube组件,确实能解决问题,但是用Decision Cube2组件,却报“duplicate resources”错误!!! 不知如何解决,请各位高手指点!!万分感谢!