Имеет ли этот код 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; 

Client Service:

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 и результат возвращается в общий список класса TLogInClass с помощью TDSServer.

Answer 1

Как уже упоминалось, вы не показывают, как «результат» функции на стороне клиента является Memory- удалось.

Я подозреваю, что клиент 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;