DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: webb123
今日帖子: 3
在线用户: 2
导航: 论坛 -> 数据库专区 斑竹:liumazi,waterstone  
作者:
男 hq200306 (200306) ★☆☆☆☆ -
普通会员
2019/7/26 22:39:40
标题:
请问哪位会重新编译midas.obj这文件,解决10.3.2的clientdataset统计时有内存泄漏 浏览:1947
加入我的收藏
楼主: 官网上,已经有人提交clientdataset统计时内存泄漏,我测了10.2,10.3版都有这bug,我看的midas的源码是Cpp的,我综合了下之前10.1版的源码,改了后,就没有报错了,可以重新编译出midas.dll。想要重新编译MidasLib.pas,就需要midas.obj,不知怎么编译出这个文件?

----------------------------------------------
-
作者:
男 hq200306 (200306) ★☆☆☆☆ -
普通会员
2019/7/26 23:06:18
1楼: 网友提交的测试例子,我测了是有内存泄漏,附件发不上了,下面是代码段
procedure TForm1.Button1Click(Sender: TObject);
var
  FAgg: TAggregate;
begin
  if not ClientDataSet1.Active then
    ClientDataSet1.LoadFromFile('RY.XML');
  ClientDataSet1.AggregatesActive := False;
  with ClientDataSet1 do
  begin
    FAgg := Aggregates.Find('BasicWage');
    if FAgg = nil then
    begin
      FAgg := Aggregates.Add;
      FAgg.AggregateName := 'BasicWage';
      FAgg.Expression := 'SUM(BasicWage)';
      FAgg.Active := False;
    end;
  end;


  ClientDataSet1.AggregatesActive := True;
  FAgg.Active := True;
  ClientDataSet1.IndexFieldNames := 'Rymc';
  if not VarIsNull(FAgg.Value) and (FAgg.Value <> null) then
    ShowMessage(FloatToStr(FAgg.Value));

  // ClientDataSet1.AggregatesActive := False;
  // FAgg.Active := False;
  // ClientDataSet1.Aggregates.Clear;
  // ClientDataSet1.IndexFieldNames := 'Rymc';
  // ClientDataSet1.First;
  ClientDataSet1.IndexFieldNames := EmptyStr; // 如果执行这个就会导致内存泄露

end;
----------------------------------------------
-
作者:
男 hq200306 (200306) ★☆☆☆☆ -
普通会员
2019/7/26 23:43:38
2楼: 10.3自带的midas.obj,midas.dll是有内存泄露的
----------------------------------------------
-
作者:
男 hq200306 (200306) ★☆☆☆☆ -
普通会员
2019/7/27 10:15:21
3楼: 我找到一贴,EMB没有提供Midas.cpp
https://stackoverflow.com/questions/8731092/how-to-build-midas-obj-from-the-midas-source-code


看来只能等EMB去修复
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行62.5毫秒 RSS