这个delphi代码有内存泄漏吗？

Question

有两个用 Delphi 编写的服务。一项服务在服务器上运行，而另一项服务在客户端上运行。这两个服务进行通信以在客户端和服务器之间交换数据。在这种情况下，服务器服务要求客户​​端发送数据，但是大约一天后，服务器上分配的内存超过了它的物理大小。经过一番研究，我发现下面这两个函数有问题。

以下代码是否存在内存泄漏？

服务器服务：

function TServerMethods.LogInMngr_GetAllUsers(): TList<TLogInClass>;
Var
  C: TDBXCommand;
Begin
  C := CreateCommand('LogInMngr_GetAllUsers');
  try
    C.ExecuteUpdate;
    Result := GetValue<TList<TLogInClass>>(C.Parameters[RP]);
  finally
    C.Free;
  end;
end;

客户服务：

function TLogInMngrClass.GetAllUsers(status: TLogInStatus = lisUnknown): TList<TLogInClass>;
var
  LogIn: TLogInItem;
  LogInTemp: TLogInClass;
  UsedProg:  TUsedItem;
begin
  Result := TList<TLogInClass>.Create;

  for LogIn in LogInList do
    if (status = lisUnknown) or (LogIn.Status = Integer(status)) then
      for UsedProg in LogIn.UsedProgList do
      begin
        LogInTemp:=TLogInClass.Create(LogIn.ClientID, LogIn.ComputerName, LogIn.UserName, '', '');
        LogInTemp.LogInTime := DateTimeToFileTime(UsedProg.AccessTime);
        LogInTemp.Status := LogIn.Status;
        LogInTemp.ProgName := UsedProg.ItemName;
        LogInTemp.ProgVersion := UsedProg.ItemInfo;

        Result.Add(LogInTemp);
      end;
end;

数据在TLogInClass 类中，结果使用TDSServer 作为TLogInClass 类的通用列表返回。

Answer 1

正如其他人所提到的，您没有展示客户端函数的“结果”是如何进行内存管理的。

我怀疑 GetAllUsers 作为客户端被多次调用，这反过来又会触发 Create 多次，这会增加内存消耗。

除此之外，我总是发现很难管理函数返回的对象。很难确定应该如何以及何时释放“结果”以及它们是否被释放。

目前，服务器端功能不“知道”谁负责管理结果。

我会将该函数重写为具有如下参数的过程：

procedure TServerMethods.LogInMngr_GetAllUsers (var userList: TObjectList<TLogInClass>);
begin
  if not assigned(userList) then 
    raise Exception.Create('userList not instantiated');
  ...
end;

然后调用这个过程：

var     
  tmpUsers: TObjectList<TLogInClass>;
begin
 tmpUsers:=TObjectList<TLogInClass>.Create;
 try
   ServerMethods.LogInMngr_GetAllUsers(tmpUsers); <--- or whatever you call the ServerMethods class
   .....
 finaly
   tmpUsers.Free;
 end;

结束；

这样您可以清楚地管理列表的生命周期。

也许我没有遵循您的设计或遗漏了一些内容，但我认为您明白了使用过程而不是函数来管理对象的意义。

Answer 2

你可以用这个轻松找到...

Memory Leak Notification in Delphi

  ReportMemoryLeaksOnShutdown := DebugHook <> 0;