DataModule da Aplicação

Um datamodule de aplicação é um datamodule que recebe suporte adicional pelo tempo de execução do uniGUI:

• ele é registrado no tempo de execução do uniGUI durante a inicialização da aplicação

• ele é criado no início de cada sessão, ou sob demanda (de acordo com a propriedade MainModule.ApplicationDataModuleOptions.CreateOnDemand)

• se não for liberado pelo usuário (usando Free), ele é automaticamente liberado ao fechar a sessão

AppDMOnDemand

Pequenas aplicações que requerem datamodules adicionais (isto é, mais do que o MainModule), provavelmente usarão o padrão (CreateOnDemand = False), mas aplicações grandes terão melhor gerenciamento de memória criando os datamodules sob demanda (e liberando-os o mais cedo possível).

Este é o código gerado automaticamente para um Application DataModule:

_AppDM1.pas

unit _AppDM1;

interface

uses
  SysUtils, Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
  Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, FireDAC.Stan.StorageBin;

type
  TAppDM1 = class(TDataModule)
    tblList: TFDMemTable;
    tblListID: TAutoIncField;
    tblListText: TStringField;
    dsList: TDataSource;
  private
    { Declarações privadas }
  public
    { Declarações públicas }
  end;

function AppDM1: TAppDM1;

implementation

{$R *.dfm}

uses
  UniGUIVars, uniGUIMainModule, MainModule;

// Esta função retorna uma instância do datamodule TAppDM1.
// Quando MainModule.ApplicationDataModuleOptions.CreateOnDemand é verdadeiro e a instância do datamodule ainda não foi criada,
// esta função criará uma instância e a retornará, caso contrário retornará a instância previamente criada.
// Quando MainModule.ApplicationDataModuleOptions.CreateOnDemand é falso, esta função retornará a mesma instância do datamodule que é criada quando a sessão é iniciada.
function AppDM1: TAppDM1;
begin
  Result := TAppDM1(UniMainModule.GetModuleInstance(TAppDM1));
end;

initialization
  RegisterModuleClass(TAppDM1);

end.

Observe como este código é semelhante ao do Formulário da Aplicação.

Se o parâmetro CreateOnDemand for alterado para true, veja como um formulário usará o datamodule da aplicação.

_TestForm.pas

unit _TestForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm,
  _AppDM1, uniGUIBaseClasses, uniBasicGrid, uniDBGrid;

type
  TTestForm = class(TUniForm)
    UniDBGrid1: TUniDBGrid;
    procedure UniFormDestroy(Sender: TObject);
  private
    { Declarações privadas }
  public
    { Declarações públicas }
  end;

function TestForm: TTestForm;

implementation

{$R *.dfm}

uses
  MainModule, uniGUIApplication;

function TestForm: TTestForm;
begin
  Result := TTestForm(UniMainModule.GetFormInstance(TTestForm));
end;

procedure TTestForm.UniFormDestroy(Sender: TObject);
begin
  AppDM1.Free; // este código é opcional. pode ser usado para liberar recursos quando o formulário associado for liberado e o datamodule não for mais necessário.
               // você não deve chamar este método se o datamodule for reutilizado várias vezes ou for usado por vários outros formulários na mesma sessão
  // se Free não for chamado aqui, o datamodule será liberado quando a sessão for encerrada.
end;

end.

O datamodule é explicitamente liberado ao destruir o formulário (isto é, assim que o formulário não precisar mais dele). Mas não há código vinculando o UniDBGrid ao datamodule. O arquivo DFM mostra a ligação em tempo de design:

TestForm.dfm

object TestForm: TTestForm
  Left = 0
  Top = 0
  ClientHeight = 246
  ClientWidth = 477
  Caption = 'Test (using App DM On Demand)'
  OldCreateOrder = False
  MonitoredKeys.Keys = <>
  OnDestroy = UniFormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object UniDBGrid1: TUniDBGrid
    Left = 0
    Top = 0
    Width = 477
    Height = 246
    Hint = ''
    DataSource = AppDM1.dsList
    LoadMask.Message = 'Loading data...'
    Align = alClient
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
  end
end

A ligação também é visível no designer do formulário:

AppDMOnDemand-Design-time

O datasource foi vinculado em tempo de design ao datamodule. Não há necessidade de fazê-lo em tempo de execução.

Executar a aplicação prova que ela realmente funciona sem vazamentos de memória.

AppDMOnDemand-Run-time