Discussion :

[WebPac]

Salut tout le monde.

Je désire créer une API. J'ai déjà tout le code des objets métiers qui sert dans une application. Le but est de faire une API sur cette application.

J'ai suivi quelques tutoriels et je suis en train de prendre en main le biniou.

Je me heurte sur un problème d'architecture.
Comment faire coller les objets COM aux objets métiers ?

J'ai par exemple 2 objets métiers : TMyComposant et TMyComposantList.
TMyComposantList possède une méthode GetByNom qui prend le nom du TMyComposant en paramètre et renvoie le TMyComposant correspondant. Rien de bien sorcier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
function GetByNom( aNom : string ) : TMyComposant;
var
  i : Integer;
begin
  Result := nil;
  for i := 0 to Count - 1 do
    if Items[ i ].Nom = aNom then
    begin
      Result := Items[ i ];
      Break;
    end;
end;

Dans l'API, je crée 2 interfaces IComMyComposant et IComMyComposantList avec leurs objets implémentés associés.

J'ai défini une propriété ByNom prenant un WideString en paramètre et retournant un IComMyComposant.

Mais ensuite, je ne peux pas mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function TComMyComposantList.Get_ByNom( const aNom : WideString ) : IComMyComposant;
begin
  Result := FMyComposantList.GetByNom( aNom );
end;

Avec FMyComposantList étant un TMyComposantList mis en private.
Je ne peux pas faire ainsi car ça va retourner un TMyComposant et non pas un IComMyComposant.

Je ne voudrais pas non plus devoir redévelopper chacune des méthodes mais pouvoir les réutiliser.

Je me suis dit que peut-être serrait-il mieux d'intégrer l'un dans l'autre. C'est-à-dire faire dériver mes composants directement TAutoObject et non plus de TObject, mais le soucis est que les composant dérivent pour l'instant de TComponent et qu'il n'existe pas de TAutoComponent.

J'ai aussi des objets qui dérivent de TList et si je veux faire dériver de TAutoObject, je suis coincé car on ne peut pas faire d'héritage multiple en Delphi.

En fait, je ne sais pas très bien qu'elle architecture choisir pour développer une API. Et je ne trouve que de l'aide théorique sur les objets COM et pas de conseils sur leur utilisation.

Merci pour votre aide, j'espère que j'ai pas été trop confus.

[WebPac]

Je réfléchis à la question et je me dis qu'il faudrait que j'arrive à faire dériver un objet de l'autre, soit mes objets métiers deviennent des objets COM, soit les objets dérivant des interfaces COM héritent aussi de mes objets métiers.

Le soucis vient du fait qu'on ne peut pas faire d'héritage multiple, il faudra sûrement que je refasse les méthodes.

[WebPac]

A priori, il n'y aurrait pas de solution miracle, je vais devoir repenser tous mes objets et refaire une partie des méthodes.
Dommage.

Je laisse quand même la question ouverte pour récupérer le retour d'expérience de ceux qui sont déjà passés par là.

[flash_math]

Bonjour,

Essaie d'utiliser un énumérateur de collection pour gérer ta liste plutot qu'un objet liste. Ton objet devra implémenter IEnumVariant ou une interface de même type.

La méthode Next devrait renvoyer un objet du type IComMyComponent qui sera créer à chaque fois avec ton objet métier comme champ privé.

J'espère que j'ai été assez clair

[WebPac]

Bonjour,

Essaie d'utiliser un énumérateur de collection pour gérer ta liste plutot qu'un objet liste. Ton objet devra implémenter IEnumVariant ou une interface de même type.

La méthode Next devrait renvoyer un objet du type IComMyComponent qui sera créer à chaque fois avec ton objet métier comme champ privé.

J'espère que j'ai été assez clair

Ben pas trop.
En gros, tous mes objets métiers serraient instanciés et je n'instancierait les objets COM qu'au moment de leur appel et je les relierait à mes objets métiers ?

Si je passe pas un énumérateur, est-ce que c'est toujours indexé et je pourrais récupérer un élément sans devoir repasser toute la liste ?

[flash_math]

Pour l'instanciation oui.

Bon c'est un peu vieux pour moi, mais je penses à ça :

La méthode Next donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Inc(FIndex);
  FObjet:=nil;

Et la méthode GetCurrent donnerait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if FObjet=nil then
  FObjet:=TMyComComponent.create(FList.items[FIndex] as IMyComComponent;
result:=FObjet;

Mais cette méthode t'obligera bien sur à instancier un objet à chaque fois.

De plus, en effet, comme pour tous les énumérateurs, il te faudra repasser la liste à chaque fois ou utiliser la méthode Skip.

Bon c'est une idée comme ça car j'ai des problèmes avec mon pc et donc j'ai pas acces à l'aide de Delphi pour l'instant.

[WebPac]

Merci, pour ces infos.
Dès que je rebosse dessus (vendredi) et que j'avance je dirai si ça marche ou ça pose problème.

[fred_malette]

Salut,

Les énumérateurs en COM marchent très bien

Ta classe liste se déclare comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  TPipo = class(TAutoIntfObject, IPipo, IEnumVARIANT)

Et doit implémenter les méthodes suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    function Clone(out ppenum: IEnumVARIANT): HResult; stdcall;
    function Next(celt: LongWord; var rgvar: OleVariant;
      out pceltFetched: LongWord): HResult; stdcall;
    function Reset: HResult; stdcall;
    function Skip(celt: LongWord): HResult; stdcall;

A+