盒子论坛 v2.1

原来没问题，使用XE11版本后服务运行一段时间就出错：Out of memory，调试发现FDQuery查询或执行后内存就增长（变量和控件都Free的），有没有哥们碰到这个问题，使用FastMM内存检测没有检测出来
----------------------------------------------
-

作者：

tuesdays (Tuesday)	▲▲▲▲△	-
	普通会员

2023/7/28 14:24:52

1楼：

代码帖出来看看, 可能是引用的问题.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.

作者：

l_wming (L_Wming)	★☆☆☆☆	-
	普通会员

2023/7/28 16:54:54

2楼：

function TDM.SqlOpen(var aResult: string; aQry: TFDQuery;
  aSql: string; aSqlConn: TFDConnection): Boolean;
var
  mSqlConn: TFDConnection;
begin
  Result:= False;
  mSqlConn:= aSqlConn;
  if not Assigned(mSqlConn) then mSqlConn:= FDConnection;
  if not SqlCheckConn(aResult,mSqlConn) then Exit;
  FDBLocker.Enter;
  try
    Log('[SqlOpen]：'+(aSql),GDMIsSqlLog);
    try
      aQry.FetchOptions.Mode:= fmAll;
      aQry.Connection := mSqlConn;
      aQry.Open(aSql);  //hstmt
      Result := True;
    except
      on e:Exception do
      begin
        aResult := GetErroMessage(e.Message);
        Log('[SqlOpen]'+aResult+sLineBreak+'[SQL]：'+aSql,True);
      end;
    end;
  finally
    //if FUsePool then SqlDisconn; //归还连接
    FDBLocker.Leave;
  end;
end;

function TDM.SqlExists(aSql: string; var aErro: string; aSqlConn: TFDConnection): Boolean;
var
  qry: TFDQuery;
begin
  Result := False;
  qry:= TFDQuery.Create(nil);
  try
    qry.CachedUpdates:= False;
    //qry.FetchOptions.Unidirectional:= True;
    //qry.FetchOptions.Mode := fmOnDemand;
    if SqlOpen(aErro, qry, aSql, aSqlConn) then
    begin
      Result := (qry.RecordCount>0);
    end;
  finally
    if qry.Active then
    begin
      qry.Disconnect(True);
      qry.Close;
    end;
    FreeAndNil(qry);
    if FUsePool then SqlDisconn; //归还连接
  end;
end;

SqlExists('select 1 from tb_order',sResult);

跟踪发现：Prepare 和 Open  都增长内存（这个查出数据增长内存算正常），但是close和free后没有释放内存
----------------------------------------------
-

作者：

chencong5025 (Nicosoft)	▲▲▲△△	-
	普通会员

2023/7/30 12:53:21

3楼：

如果是
TFDQuery 的问题
随便弄个测试程序跑一下就跑出来了。

有这功夫早就测完了
----------------------------------------------
-

信息

登陆以后才能回复