property array sous delphi

Version imprimable

Bonjour,
mon probleme est le suivant :
j'ai deux classes :1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
msgLicClass = class(TRemotable)
  private
    FmsgCdTypLic: string1Type;
    FmsgContLic: string80Type;
    FmsgVatLicMc: int1Type;
  public
    constructor Create; override;
  published
    property msgCdTypLic: string1Type read FmsgCdTypLic write FmsgCdTypLic stored AS_ATTRIBUTE;
    property msgContLic: string80Type read FmsgContLic write FmsgContLic stored AS_ATTRIBUTE;
    property msgVatLicMc: int1Type read FmsgVatLicMc write FmsgVatLicMc stored AS_ATTRIBUTE;
  end;
 
  msgLicArray = array of msgLicClass;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 inDemandeType = class(TRemotable)
  private
    FmsgLic : msgLicArray;
  //  FmsgLic : String_Array;
    FmsgCdAction: string1Type;
    FmsgCdBranche: string1Type;
    FmsgCdCircuit: int4Type;
    FmsgCdIntermed: string6Type;
    FmsgCdNatCmc: int2Type;
    FmsgCdOrigine: string1Type;
    FmsgCdSite: string3Type;
    FmsgCdStr: int2Type;
    FmsgCdTrtInfo: string10Type;
    FmsgCdTypDem: int4Type;
    FmsgCdTypRcc: string2Type;
    FmsgCdUntOff: string6Type;
    FmsgComment: string10000Type;
    FmsgDateRecep: string;
    FmsgHeureRecep: string;
    FmsgNbCag: int1Type;
    FmsgNbCle: int1Type;
    FmsgNbCli: int1Type;
    FmsgNbFam: int1Type;
    FmsgNbInt: int1Type;
    FmsgNbLic: int1Type;
    FmsgNbRcc: int1Type;
    FmsgNbRefFonc: int1Type;
    FmsgNbTyd: int1Type;
    FmsgNbVcr: int1Type;
    FmsgNbdoc: int1Type;
    FmsgNbres: int1Type;
    FmsgNuRcc: string16Type;
    FmsgTopAffGest: string1Type;
    FmsgTopDebug: string1Type;
    FmsgTopMajLic: string1Type;
    FmsgVatixint: int1Type;
    FmsgVatixrcc: int1Type;
    FmsgVatixtyd: int1Type;
  public
    constructor Create; override;
    destructor Destroy; override;
  published
    property msgLic:msgLicArray read FmsgLic write FmsgLic;
    property msgCdAction: string1Type read FmsgCdAction write FmsgCdAction stored AS_ATTRIBUTE;
...

mon besoin est de récupérer l'ensemble des données de ma premier classe dans une variable

Code:

property msgLic:msgLicArray read FmsgLic write FmsgLic;

de la deuxième

comment faire svp

Cordialement,

19/10/2011, 13h57
popo

Quel résultat attendu ? Quel résultat obtenu ?

A priori en survolant très rapidement ton code. Tu dois récupérer une variable de type msgLicArray. Alors après ce tableau est peut-être vide dans ton instance d'objet inDemandeType.

Ici tu déclare un array of msgLicClass. Donc dans ton cas pour le remplir, il faut en premier lieu effectuer un SetLength, sinon ça ne remplit rien

Personnellement je préfère l'utilsation des TList qui contiennent déjà pas mal de méthode pour gérer ce genre de cas et que tu peux surcharger au besoin
19/10/2011, 14h00
ShaiLeTroll

ne confond pas la balise QUOTE et CODE :tagcode:

Est-ce du code généré par l'importateur WSDL ou la partie serveur d'un WS ?

Même dans le code généré, n'hésite pas à ajouter des propriétés supplémentaires ou méthodes en public (pas published) pour aider à l'utilisation des Array comme property, c'est ce que je fais personnellement, souvent une Méthode Addxxx gérant le SetLength en interne
- soit directement si je sais qu'il n'y a pas de regénération,
- soit par héritage si il y a un gros risque d'évolution, cela nécessiste de passer private en protected, c'est seule modification du fichier généré, et facile à reprendre après chaque regénération
19/10/2011, 14h16
nah_wah

Re bonjour,
pour quote et code j'ai pas fais attention merci pour la remarque .
Merci pour vos réponses oui effectivement c'est du code générer à la suite d'un wsdl (je suis sous delphi 6).

mon souci c'est comme mapper l'ensemble d'info de la classe 1 dans une seule variable tableau de la deuxième classe

c'est faisable ou pas ;

Cordialement,

C'est un paramètre ou un retour de fonction ?
Je ne vois pas ce qui te pose problème !

Si c'est un passage de paramètre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 var ObjDemande : inDemandeType; ObjLic : msgLicClass; TmpArray : msgLicArray; begin SetLength(TmpArray, 2); ObjLic := msgLicClass.Create(); ObjLic.msgCdTypLic ... TmpArray[0] := ObjLic; ObjLic := msgLicClass.Create(); ObjLic.msgCdTypLic ... TmpArray[1] := ObjLic; ObjDemande.msgLic = TmpArray; // Copie le tableau, cela conserve les mêmes références sur les objets
Pense qu'il faut libérer tout ce qui a été alloué !

Si c'est un retour et que tu veux faire une lecture du tableau, le code ressemble à
Code:

1 2 3 4 5 6 7 8 9 var ObjDemande : inDemandeType; ObjLic : msgLicClass; begin ... for i := Low(ObjDemande.msgLic) to High(ObjDemande.msgLic) begin ObjLic := ObjDemande.msgLic[i]; ObjLic.msgCdTypLic ...
Il faut penser qu'un tableau en propriété, cela doit surement provoquer des copies du tableau, à vérifier !
Cela peut-être inutilement consommateur de temps processeur et mémoire
Refaire des propriétés publiques msgLicCount et msgLicItems à la façon de la TList peut être interessant !

Pense aussi au destructeur, normalement le code généré detruit les objets des tableaux, mais tu dois appelé explicitement le Free de l'objet retourné, proablement un inDemandeType

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
{------------------------------------------------------------------------------}
function TFrameVisas.ExportToDr(ProjetValide : Boolean): Boolean;
var
  frmExport : TfrmExport;
  idxProj, idxTable: Integer;
  iVisa: integer;
  {II200911-GPS-Debut}
  code          : string;
  retour        : response;
  parameters    : request;
  date_recep    : string;
  heure_recep   : string;
  I  ,J         : integer;
  msgArray      : msgLicArray;
  {II200911-GPS-Fin}
begin
...
             //Appel du web service
             retour     :=  response.Create;
             parameters :=  request.Create;
 
             parameters.msgCdAction           := 'C'                        ;
             parameters.msgCdBranche          := 'J'                        ;
             parameters.msgCdCircuit          := 0012                       ;
             parameters.msgCdIntermed         := frmExport.NumIdt           ;
             parameters.msgCdNatCmc           := 1 {81}                     ;
             parameters.msgCdOrigine          := 'P'                        ;
             parameters.msgCdSite             := 'SI1'                      ;
             parameters.msgCdStr              := 12                         ;
             parameters.msgCdTrtInfo          := 'OSL'                      ;
             parameters.msgCdTypDem           := 4036                       ;
             parameters.msgCdTypRcc           := 'PL'                       ;
             parameters.msgCdUntOff           := '1'                        ;
             parameters.msgComment            := ''                         ;
             parameters.msgDateRecep          := FormatDateTime('yyyy-mm-dd', Now);
             parameters.msgHeureRecep         := FormatDateTime('hh:nn:ss', Now);
             parameters.msgNbCag              := 0                          ;
             parameters.msgNbCle              := 0                          ;
             parameters.msgNbCli              := 0                          ;
             parameters.msgNbdoc              := 0                          ;
             parameters.msgNbFam              := 0                          ;
             parameters.msgNbInt              := 1                          ;
 
             parameters.msgNbLic              := 20 ;//en attente
 
             //ihm.CorpMail
             //ihm.CMCommentaires
              try
 
 
SetLength( parameters.msgLic, ihm.CorpMail.Count + (length(ihm.CMCommentaires) div 78)+3 );
 
            parameters.msgLic[0] := msgLicClass.Create ;
 
              parameters.msgLic[0].msgCdTypLic := 'E';
              parameters.msgLic[0].msgContLic := 'MAIL@@';
              parameters.msgLic[0].msgVatLicMc := 0;

avec cette affectation au niveau setlength je reçois un message erreur

Code:

un objet constante ne peux pas être passer comme var

Cordialement,

C'est pour cela que
soit tu fais une méthode AddLic dans inDemandeType qui fait le SetLength
soit tu utilises une variable temporaire comme dans mon exemple que tu ne sembles pas avoir lu !

en plus tu avais commencé msgArray : msgLicArray;
Code:

1 2 3 4 5 6 7 8 9 10 11 SetLength(msgArray , ihm.CorpMail.Count + (length(ihm.CMCommentaires) div 78)+3 ); // ça semble étrange ce calcul de dimension msgArray := msgLicClass.Create ; msgArray.msgCdTypLic := 'E'; msgArray.msgContLic := 'MAIL@@'; msgArray.msgVatLicMc := 0; ... parameters.msgLic := msgArray;

19/10/2011, 17h50
nah_wah

Oui,
effectivement Désole,je réponds un peu tard j'avais déjà utilise cette même solution comme tu vois et j'ai parcouru ma variable impeccable ça marche très bien

encore merci

Cordialement,