CRÈATION D'UN SINGLETON

Commentaire de MoveX le 28/10/2004 15:38:12

singleton?? what is this?

Commentaire de MHI le 28/10/2004 18:22:10

Effectivement j'aurai du expliquer ce qu'était un Singleton. Il s'agit bien d'un Design Patterns. Un singleton doit etre unique tous au long de son cycle de vie.

Pour plus d'info sur le Singleton : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnpatterns/html/DesSingleton.asp

Commentaire de Delphiprog le 28/10/2004 19:36:51 administrateur CS

Le modèle de code donné par MHI n'est pas tout à fait conforme au design pattern Singleton.
En effet, un appel à la méthode Create (héritée de TObject ici) contourne complètement l'effet recherché, à savoir une seule et unique instance de la classe en mémoire.
ModelMaker respecte le design pattern singleton et produit automatiquement le code ci-dessous  :
unit USingleton;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs;

type
  TSingleton = class (TObject)
  protected
    constructor CreateInstance;
    class function AccessInstance(Request: Integer): TSingleton;
  public
    constructor Create;
    destructor Destroy; override;
    class function Instance: TSingleton;
    class procedure ReleaseInstance;
  end;
  

procedure Register;

implementation

procedure Register;
begin
end;

{
********************************** TSingleton **********************************
}
constructor TSingleton.Create;
begin
  inherited Create;
  raise Exception.CreateFmt('Access class %s through Instance only',
          [ClassName]);
end;

constructor TSingleton.CreateInstance;
begin
  inherited Create;
end;

destructor TSingleton.Destroy;
begin
  if AccessInstance(0) = Self then AccessInstance(2);
  inherited Destroy;
end;

class function TSingleton.AccessInstance(Request: Integer): TSingleton;
  
  const FInstance: TSingleton = nil;
  
begin
  case Request of
    0 : ;
    1 : if not Assigned(FInstance) then FInstance := CreateInstance;
    2 : FInstance := nil;
  else
    raise Exception.CreateFmt('Illegal request %d in AccessInstance',
            [Request]);
  end;
  Result := FInstance;
end;

class function TSingleton.Instance: TSingleton;
begin
  Result := AccessInstance(1);
end;

class procedure TSingleton.ReleaseInstance;
begin
  AccessInstance(0).Free;
end;


end.
---------------
Pour ceux qui ont la chance de disposer de ce logiciel (livré avec Delphi 7), je vous recommande de lire le document "Design pattern Reference's guide" au format pdf (mmdesignpatterns.pdf).
Pour les allergiques à la langue anglaise, vous trouverez également sur http://hcesbronlavau.developpez.com/DesignPatterns/ un très bon didacticiel.

Commentaire de MHI le 28/10/2004 23:38:58

Lorsque l'on fait un create sur mon singleton il renvoie la même instance que pour un create précédent. Car le newinstance renvoie l'instance de l'objet précédement créé.

Commentaire de MoveX le 29/10/2004 19:08:21

ok ! thanks delphiprog !

Commentaire de Delphiprog le 29/10/2004 22:58:26 administrateur CS

Autant pour moi, tu as mille fois raison.
J'étais persuadé qu'il fallait surcharger la méthode Create.
Et cela est d'autant plus déroutant que la méthode create de TObject est ainsi implémentée :
constructor TObject.Create;
begin
end;
Rien de plus...