VBScript in Delphi umwandeln

[Bernd Schulz]

pEnum : IEnumVARIANT;<br>
BYE BERN

[Kai-B]

[Fehler] Unit1.pas(63): Operator ist auf diesen Operandentyp nicht anwendbar

pEnum := Citrix.Sessions as IEnumVARIANT;

Irgendwie blicke ich hie rnicht so wirklich durch

[Andreas Kosch]

Hallo,

&gt;Operator ist auf diesen Operandentyp nicht anwendbar

was passiert bei der folgenden Typumwandlung?
<pre>
pEnum := IDispatch(Citrix.Sessions) as IEnumVARIANT;
</pre&gt

[Kai-B]

Die Variable für hRes fehlt noch.

[Fehler] Unit1.pas(66): Undefinierter Bezeichner: 'hRes'

Ich habe es mal so gemacht LongWord.
Allerdings weis ich nicht was die ganzen Variablen bedeuten.

<PRE>
procedure TForm1.Button3Click(Sender: TObject);
var Citrix : Variant;
vObj : OleVariant;
dwRetrieved : LongWord;
pEnum : IEnumVARIANT;
hRes : LongWord;
begin
Citrix := CreateOleObject('MetaFrameCOM.MetaFrameFarm');
Citrix.Initialize(MetaFrameWinFarmObject);
ShowMessage('Server Name: ' + Citrix.FarmName);
pEnum := IDispatch(Citrix.Sessions) as IEnumVARIANT;
while (TRUE) do
begin
hRes := pEnum.Next(1, vObj, dwRetrieved);
if hRes <> S_OK then begin
Break;
end;
ShowMessage('ServerName: '+ vObj.ServerName);
end;
end;
</PRE&gt