Mfcom

delphi
1

Exemple d’utilisation des Objets COM avec Metaframe:





uses

(...),MetaFrameCOM_TLB,(...);



procedure TForm1.BtListClick(Sender: TObject);

var

  thefarm: MetaFrameFarm;

  theserver: MetaFrameServer;

  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;



Si vous avez des problemes de creation du MetaFrameCOM_TLB, je vous le mail.
2

Salut. j’ai un problème avec le fichier MetaFrameCOM_TLB.pas. La fonction getServer ne fonctionne pas a la base. Pourrait-tu m’envoyer ce fichier ?

merci d’avence,

Mike

3

Un petit bug je n’arrive pas a ajouter la pj. Je te l’envoie par mail.

4

ahhh je suis pas le seul alors! j’arrive pas non plus à ajouter des fichiers