Bom, a coisa agora começa a ficar mais interessante, para isso vamos usar uma coisa muito pouco conhecida que e a BPL. Sabemos que e uma DLL modificada pela Borland para uso do Delphi, legal, mas o que ela tem de especial que uma DLL não faz? Pois bem, alem do fato de não precisar declarar os métodos que estão dentro do BPL você ainda tem um recurso bem interessante, que são as seções "Inicialization" e "Finalization" que são automaticamente chamadas quando damos um "Loadpackage" nesse modulo ou um "Unloadpackage". Neste ponto nos podemos enxergar a Instancia da nossa aplicação e com um pouco de pensamento lógico podemos inserir a classe deste modulo dentro do Aplicativo sem que seja necessário o Aplicativo se preocupar com o processo.

   Aplicativo -> Nucleo.BPL <-+-> Modulo1.BPL
                              |-> Modulo2.BPL
                              +-> Modulo3.BPL

O que temos em comum em todo o processo e que o Nucleo.BPL e visto por todos os módulos envolvidos no processo, e como esta dentro de um BPL esta Unit não será compilada dentro do executável, mas sim será carregada no momento que o executável for aberto, mas não ira carregar os módulos, apenas o Nucleo, já os módulos carregaremos mais adiante quando forem necessários.

Abaixo veremos a seção de tipos da Unit presente em Nucleo.BPL:

Type
  ICalculo = Interface
    procedure Somar(Valor: Real; Data: TDateTime);
    function Apurado: Real;
  end;

  TCalculo = Class(TInterfacedObject, ICalculo)
  public
    procedure Somar(Valor: Real; Data: TDateTime); virtual; abstract;
    function Apurado: Real; virtual; abstract;
  end;

  TFechamento = class
  public
    function SaldoCliente(Dataset: TDataset; Modulo: string): Real;
  end;

Aqui temos a Interface dos Objetos o esqueleto da classe com os seus métodos como Abstract, sendo assim não será preciso declará-los, já que esta classe não será usada e só servira de estrutura para o delphi saber com o que ele estará lidando e a mesma será herdada pelos módulos e nestes então será implementada.
A Classe TFechamento é a unida coisa que a aplicação vai realmente ver e ela que fará o carregamento dos módulos, veja que ha. ate um parâmetro para o nome do modulo que ela vai operar.

function TFechamento.SaldoCliente(Dataset: TDataset; Modulo: string):    Real;
var
  Hnd: Cardinal;
begin
  Result := 0;
  Hnd := LoadPackage(Modulo);
  try
    if not Assigned(fCalculo) then
    raise Exception.Create('Classe de calculo do saldo não foi carregada.');
    with Dataset do
    begin
      first;
      while not Eof do
      begin
        fCalculo.Somar(FieldByName('Valor').AsFloat, FieldByName('Data').asDateTime);
        Next;
      end;
      Result := fCalculo.Apurado;
    end;
    finally
      UnloadPackage(Hnd);
    end;
  end;
end;

Nos módulos existem dois detalhes importantes, primeiramente no uses da unit principal do modulo existe uma chamada para a Unit do Nucleo e para que esta não seja compilada dentro da BPL precisamos dizer que este modulo e dependente de um outro BPL, para isto na fonte do DPK na seção "Required" iremos adicionar "Nucleo", com isto ele saberá que não precisa compilar este código, ficando assim dependente deste modulo, como explicado acima eles se enxergarão mutuamente.

requires
   rtl,
   dbrtl,
   Nucleo;

Agora já dentro da Unit do modulo definiremos a classe:

type
  TCalculoNormal = Class(TCalculo, ICalculo)
  private
    FTotal: Real;
  public
    constructor Create;
    procedure Somar(Valor: Real; Data: TDateTime); override;
    function Apurado: Real; override;
  end;

Implementamos os métodos e em seguida adicionamos ao final da fonte as diretivas que farão à mágica acontecer:

initialization
   fCalculo := TCalculoAlterado.Create;

finalization
   FreeAndNil(fCalculo);

Veja que como a "Unit2" esta presente no "uses" deste modulo    nos conseguimos
   ver a variável fCalculo e então criar a classe nela.
   E no momento de descarregar o Modulo então e limpa a variável.

Vejamos agora o código que foi implementado no executável para que este carregasse Nucleo.BPL:

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
var
  fFechamento: TFechamento;
begin
  fFechamento := TFechamento.Create;
  Label2.Caption := 'Saldo: '+FormatFloat('#0.00', 
 fFechamento.SaldoCliente(ClientDataSet1,    Edit1.Text));
  FreeAndNil(fFechamento);
end;

Arquivos do Artigo

Um grande abraço a todos e até o próximo artigo.

Marcelo Welter
Coordenador do Projeto Sultan
http://www.welter.pro.br/sultan