uniMainModule

[MSMK]

как правильно подчищать объекты, созданные в разделе MainModule, если сессия закончилась или был вызван UniSession.Logout?

[Sherzod]

Здравствуйте,

Вам стоит позаботиться об уничтожении этих объектов в событии OnDestroy

[MSMK]

On 2/7/2019 at 9:24 PM, Sherzod said:

Здравствуйте,

Вам стоит позаботиться об уничтожении этих объектов в событии OnDestroy

не могу понять жизненный цикл сессии, сначала отрабатывает событие UniGUIMainModuleCreate, потом UniGUIMainModuleBeforeLogin и после почему то UniGUIMainModuleDestroy

[MSMK]

Just now, =GGG= said:

не могу понять жизненный цикл сессии, сначала отрабатывает событие UniGUIMainModuleCreate, потом UniGUIMainModuleBeforeLogin и после почему то UniGUIMainModuleDestroy

procedure TClient.UniGUIMainModuleCreate(Sender: TObject);
begin
       Settings := TSettings.Create;     

end;

procedure TClient.UniGUIMainModuleBeforeLogin(Sender: TObject;
  var Handled: Boolean);
begin
        Settings.CurrentUserInfo.Clear;
end;

procedure TClient.UniGUIMainModuleDestroy(Sender: TObject);
begin  

        if Assigned(Settings) then

                  Settings.Free;

end;

 

[MSMK]

6 minutes ago, =GGG= said:

procedure TClient.UniGUIMainModuleCreate(Sender: TObject);
begin
       Settings := TSettings.Create;     

end;

procedure TClient.UniGUIMainModuleBeforeLogin(Sender: TObject;
  var Handled: Boolean);
begin
        Settings.CurrentUserInfo.Clear;
end;

procedure TClient.UniGUIMainModuleDestroy(Sender: TObject);
begin  

        if Assigned(Settings) then

                  Settings.Free;

end;

 

 public
    { Public declarations }

    Settings: TSettings;
 
  end;