Discussion :

[chavers]

Bonjour a tous,

Cela fait 6 jours que je m**dois, avec les objet COM de Metaframe. Sous D7 (puis D2005, pour le FOR ... IN) je n'arrive pas a lister les serveurs d'une batterie. Dans l'urgence j'ai fini le projet en VB6 .
La question: Quelqu'un a t'il deja utilise le MFCOM sous Delphi ?

Pour info:
- j'ai cree le MetaFrameCOM_TLB.pas depuis mfcom.tlb du RSK citrix.
- La connection COM est Correct, je peux faire des query sur la batterie....

Voici un exemple de code VB qui fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim theFarm As MetaFrameFarm
Dim aServer As MetaFrameServer
 
Set theFarm = CreateObject("MetaFrameCOM.MetaFrameFarm")
theFarm.Initialize MetaFrameWinFarmObject
    For Each aServer In theFarm.Servers
      List1.AddItem (aServer.ServerName)
    Next

en gros c'est la bloucle FOR EACH ou je bloque en Delphi.

code Delphi (2005)

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
 
use
(...),MetaFrameCOM_TLB,(...);
(...)
procedure TForm1.BtListClick(Sender: TObject);
var
  thefarm: MetaFrameFarm;
  theserver: MetaFrameServer;
  i: Integer;
begin
  ListBox1.Clear;
try
  thefarm := CoMetaFrameFarm.Create;
  thefarm.Initialize(MetaFrameWinFarmObject );
  ListBox1.AddItem('Batterie: '+ thefarm.FarmName, Self  ); // me retourne le nom de la batterie sans probleme.
  theserver := CoMetaFrameServer.Create;
  for theserver in thefarm.Servers do begin
    ListBox1.AddItem('server: '+ theserver.ServerName, Self );
  end;
finally
  thefarm := nil;
end;
(...)

la compilation me retourne une erreur:

Code :

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

[Error] Unit1.pas(44): E2431 for-in statement cannot operate on collection type 'IMetaFrameServers' because 'IMetaFrameServers' does not contain a member for 'GetEnumerator', or it is inaccessible

SVP je suis un sur Delphi mais

[portu]

Salut,
un petit sur FOR t'aurait donné la réponse sur le problème

Code :

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

1
2
3
4
5
6
7
8
9
 
Var
i : Integer;
Begin
    For i := 0 to thefarm.Servers.Count-1 do begin
    ListBox1.AddItem('server: '+ theserver.Servers[i].Name, Self );
    end; 
.....
end;

L'exemple est bien sûr pure spéculation mais le principe est là

[Laurent Dardenne]

Salut, tu peux aussi utiliser l'interface IEnumVariant pour énumérer une collection.

[chavers]

Merci de vos reponses.

Mr portu, j'ai bien sur teste ca en premier en delphi 7, mais l'objet MetaFrameFarm a bien la valeur servers.COUNT mais pas la liste des noms des serveurs pour une boucle FOR DO. C'est pour cela que j'ai teste delphi 2005 en esperant que la boucle FOR IN maide. . La touche F1 est la plus usee de mon clavier

Mr Laurent Dardenne, merci pour l'info. Je teste ca tout de suite. si ca fonctionne je tag ce poste.

un GRAND merci

[chavers]

YAHOOOOOO ca fonctionne!

voici le code qui fonctionne, attention il faut "activex" dans le USE pour avoir le type " IEnumVariant"

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
procedure TForm1.BtListClick(Sender: TObject);
var
  thefarm: MetaFrameFarm;
  theserver: MetaFrameServer;
  i: Integer;
  ObjSrvEnumerator: IEnumVariant;
  ArrayVariant: OleVariant;
  NumberItem: LongWord;
begin
  ListBox1.Clear;
  try
    thefarm := CoMetaFrameFarm.Create;
    thefarm.Initialize(MetaFrameWinFarmObject );
    ListBox1.AddItem('Batterie: '+ thefarm.FarmName, Self  );
    ObjSrvEnumerator := (thefarm.Servers._NewEnum) as IEnumVariant;
    while (ObjSrvEnumerator.Next(1, ArrayVariant, NumberItem) = S_OK) do begin
      theserver := IUnknown(ArrayVariant) as MetaFrameServer ;
      ListBox1.AddItem('server: '+ theserver.ServerName , Self );
    end;
  finally
    thefarm := nil;
  end;
end;

[Laurent Dardenne]

YAHOOOOOO ca fonctionne!

Voici ce que dit l'aide en ligne sur les itérateurs :

Pour utiliser la construction de boucle for-in sur une classe, cette dernière doit implémenter un modèle de collection prescrit. Un type qui implémente le modèle de collection doit avoir les attributs suivants :

- La classe doit contenir la méthode publique GetEnumerator(). La méthode GetEnumerator() doit renvoyer un type de classe, d'interface ou d'enregistrement.
- La classe, l'interface ou l'enregistrement renvoyé par GetEnumerator() doit contenir la méthode publique MoveNext(). La méthode MoveNext() doit renvoyer une valeur booléenne.
- La classe, l'interface ou l'enregistrement renvoyé par GetEnumerator() doit contenir la propriété publique en lecture seule Current. Le type de la propriété Current doit être le type contenu dans la collection.

On peut donc itérer sur une classe, cela serait intéressant de voir si c'est possible avec un classe de type TCitrixServers=class(TObject,IMetaFrameServers)
Mais le code risque d'être un peu plus long, voici un exemple d'itération sur une classe ( origine Delphi .NET) :

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
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
 
unit Main;
// Enumérer tous les objets d'une classe en utilisant la nouvelle syntaxe de for..in .
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Borland.Vcl.StdCtrls, System.ComponentModel;
 
type
 TPeopleEnumerator = class; // Forward déclaration
 
   // Objet manipulé
  TPerson = class
    Name: String;
    DateOfBirth: TDateTime;
    Gender : Char;
    constructor Create (AName: String; ADateOfBirth: TDateTime; AGender: Char);
  end;
 
   // Liste d'objets, conteneur pour le type TPerson
  TPeopleList = class
  strict private
    List : TList;
    function GetCount: Integer;
    function GetPerson(idx: Integer): TPerson;
    procedure SetPerson(idx: Integer; const Value: TPerson);
  public
    Constructor Create;
    function Add (Person: TPerson): Integer;
    procedure Delete (idx: Integer);
    property Person [idx: Integer] : TPerson read GetPerson write SetPerson; default;
    property Count: Integer read GetCount;
          //Méthode nécessaire pour la prise en charge de l'itération
    Function GetEnumerator: TPeopleEnumerator;
  end;
 
   // Afin que la collection soit énumérable, elle doit implémenter une suite de méthodes
   // comme indiqué ci dessous.
 
   // Enumérateur pour la classe conteneur.
  TPeopleEnumerator = class
  strict private
    CurrentPos: Integer;
    PeopleList : TPeopleList;
  public
    constructor Create (AList : TPeopleList);
    function GetCurrent: TPerson;
     //Membre de classse nécessaire pour la prise en charge de l'itération
    function MoveNext :Boolean;    // Méthode publique
    property Current : TPerson read GetCurrent; // Propriété en Read Only
  end;
 
 
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées}
  public
    { Déclarations publiques}
   PeopleList : TPeopleList;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.nfm}
 
 { TPerson ---------------------------------------------------------- }
 
constructor TPerson.Create (AName: String; ADateOfBirth: TDateTime; AGender: Char);
begin
 Inherited Create;
 Name:=AName;
 DateOfBirth:=ADateOfBirth;
 Gender:=AGender;
end;
 
 { TPeopleEnumerator  ---------------------------------------------------}
 
constructor TPeopleEnumerator.Create(AList: TPeopleList);
begin
  inherited Create;
  PeopleList := AList;
  CurrentPos := -1;
end;
 
function TPeopleEnumerator.GetCurrent: TPerson;
begin
  Result := PeopleList[CurrentPos];
end;
 
function TPeopleEnumerator.MoveNext: Boolean;
begin
  if CurrentPos < PeopleList.Count-1 then
  begin
    Inc(CurrentPos);
    Result := True;
  end
  else
    Result := False;
end;
 
 { TPeopleList --------------------------------------------------- }
 
function TPeopleList.GetCount: Integer;
begin
 Result:=List.Count;
end;
 
function TPeopleList.GetPerson(idx: Integer): TPerson;
Begin
 Result:=TPerson(List[idx]);
end;
 
procedure TPeopleList.SetPerson(idx: Integer; const Value: TPerson);
Begin
 List[idx]:=Value;
end;
 
function TPeopleList.Add (Person: TPerson): Integer;
Begin
 Result:=List.Add(TObject(Person));
end;
 
procedure TPeopleList.Delete (idx: Integer);
Begin
 List.Delete(idx);
end;
 
function TPeopleList.GetEnumerator: TPeopleEnumerator;
begin
  Result := TPeopleEnumerator.Create(Self);
end;
 
Constructor TPeopleList.Create;
begin
 Inherited create;
 List:=TList.Create;
end;
 
 
//Exemple d'énumération de la classe TPeopleList
 
Procedure TForm1.Button1Click(Sender: TObject);
var Person : TPerson; // Doit être une variable locale
begin
  // Ajout d'élément
 PeopleList.Add(TPerson.Create('Daniel',StrToDate('15/03/1973'),'M'));
 PeopleList.Add(TPerson.Create('Monique',StrToDate('05/05/1973'),'F'));
 
  // Itération sur la classe
 for Person in PeopleList do
  ListBox1.Items.Add(Person.Name);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 PeopleList:= TPeopleList.Create;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  PeopleList.Free;
end;
 
end.

Comme je n'ai pas Ferme Citrix sous la main je vais essayer de trouver un autre contexte pour tester cette approche.

Mais dans ton cas cela peut utile, vu que sous Citrix tu as un paquet de collections ne serais que pour les applications publiées:
-liste de serveurs,
-liste des ayants droits,
etc

[chavers]

La c'est plus de mon niveau