Discussion :

[HaldriX]

Bonjour a tous et toutes.

Je suis un peu en galère en ce moment sur des notions d'heritage d'un des composants de la Jedi : le TjvftAppt. Ce composant non visuel est un objet type 'rendez vous' à la Outlook qui est connecté au composant grille TjvtfDays (voir la palette JvTimeFrameWork).
Le probleme est le suivant, ayant besoin de rajouter plus de champs a l'objet TjvftAppt, j'ai donc decidé d'en faire un autre (TjvftApptExt) qui hérite de ce dernier et lui ai ajouté mes propres champs. Mais voila, je me retrouve a avoir nombre de corruption memoires a tout bout de champs lorsque j'accede aux propriétés du parent ou du fils, sans vraiment comprendre pourquoi. Je précise que je ne créé pas un autre objet, mais que je caste l'objet original dans l'objet je j'ai redefini. Je n'ai donc pas (par méconnaissance: ) recréé de constructeur ni de destructeur...

ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var 
         RdvOriginal : TjvTfAppt; //objet de la JEDI
         RdvExt : TjvTfApptExt; //le fils redefini
 
 begin
            ScheduleManagerCalendrier.RequestAppt('test', RdvOriginal,Isnew);// implicite RdvOriginal.Create() 
            RdvExt := TjvTfApptExt( RdvOriginal);
            RdvExt.nouvellepropriété:='quelquechose';
           {.....etc}
end;

Il est clair que je maitrise mal le concept j'aurai besoin d'un peu d'eclairage...merci à votre bon coeur...

[Pedro]

Salut
Donne-nous la déclaration de ton TJvTfAppt.

[HaldriX]

Cool deja une reponse !
Tu souhaites plutot la declaration de l'objet dérivé non ? pas l'unité de la Jedi je présume...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
type
  TjvtfApptExt = class(TJvTFAppt)
  private
  FRealId : integer;
  FParentRdvID : integer;
  FCatId : word;
  FTbl_linkName : string;
  FTbl_fieldLinkName  :string;
  FTbl_fieldValue : string;
  FTbl_fieldValue2 : string;
  FRdvSubject : string;
public
    property RealId: integer read FRealID write FRealID;
    property ParentRdvID: integer read FParentRdvID write FParentRdvID;
    property CatId: word read FCatID write FCatId;
    property Tbl_linkName: string read FTbl_linkName write FTbl_linkName;
    property Tbl_fieldLinkName: string read FTbl_fieldLinkName write FTbl_fieldLinkName;
    property Tbl_fieldValue: string read FTbl_fieldValue write FTbl_fieldValue;
    property Tbl_fieldValue2: string read FTbl_fieldValue2 write FTbl_fieldValue2;
    property RdvSubject: string read FRdvSubject write FRdvSubject;
 
end;

Est-ce bien cela que tu souhaitais ?

Al. :

[Pedro]

Tu souhaites plutot la declaration de l'objet dérivé non ? pas l'unité de la Jedi je présume...

Oui effectivement

Est-ce bien cela que tu souhaitais ?

Oui effectivement, Il n'y a pas d'erreur dans cette partie.
En revanche, si tu fais:

Code :

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

1
2
 
  RdvExt:=TjvTfApptExt( RdvOriginal);

et que RdvOriginal n'est pas du type TjvTfApptExt, alors, forcément, il y a des erreurs...
Il te faut créer un TjvTfApptExt et non un TjvTfAppt... Si tu crées un TjvTfAppt, Delphi assigne l'emplacement mémoire que va prendre cet objet. Si tu le cates en TjvTfApptExt (donc avec des propriétés en plus I.E. de la place mémoire en plus), cela va pointer sur des segments mémoire "externes" à ton objet... D'où tes problèmes...

[HaldriX]

Ok je comprends mais le problème est simple, c'est le composant JvTfScheduleManager qui génère un nouvel objet jvtfAppt via la fonction ScheduleManagerCalendrier.RequestAppt('test', objJvtfAppt,Isnew) . Donc cela suppose que je peux fournir a la methode citée plus haut (RequestAppt()... ) mon objet jvtfApptExt ? ou dois-je la redefinir ?

merci .

[Pedro]

Si c'est un objet utilisé par un autre, alors, à moins de redéclarer l'objet "source" avec ta nouvelle définition de l'objet "enfant", il n'ay aucun moyen de le faire... Ou alors je ne sais pas le faire

[HaldriX]

Ok. Ca ne m'arrange pas tout ca...Merci pour les réponses je vais me debrouiller autrement alors...A +

Al.

[HaldriX]

Bon solution retenue, l'objet JvTfAppt de la Jedi lib contient une propriété Data que j'utilise pour stocker un pointeur vers une structure contenant les champs additionnels. Il a fallut remodifier le code en fonction mais ca fonctionne bien.

A+.: 8)