Probleme dans une fonction de test

Bonjours:
Je cherche a utiliser OpenOffice, je peu ouvrir et fermer une cession, je me base sur la FAQ delphi, mais j'ai un soucis avec une fonction de teste, elle me renvoie toujours la meme valeur, elle est probablement mal ecrite, mais je ne trouve pas ou.
La fonction delphi

Citation:

---

Savoir si on est connecté à OpenOffice
Var Connect : Boolean;

Begin
Connect := not (VarIsEmpty(OpenOffice) or VarIsNull(OpenOffice));
end;

---

La fonction que j'ai ecrit

Citation:

---

Boolean Connect;

Connect = !(VarIsEmpty(OpenOffice) || VarIsNull(OpenOffice));

---

Attention, d'avance, je te préviens je ne sais pas de quoi je parles...

Est ce que par hasard, tu utiliserais une barre d'outils de style de la barre d'outils office que donne un accès rapide au lancement des applications offices?
Dans ce cas, est-ce que ton test renvoit toujours la même valeur du fait de la présence de cette barre d'outil?

L'expression que tu donnes est formée de deux éléments.
Peux tu tester les éléments séparéments pour pouvoir interpréter le résultat?

@+
Mattetfamilly.

Merci de ta reponse Mattetfamilly:
En fait c'est pour savoir si l'on est connecte a OpenOffice et le teste ne se fait que sur des Variants, j'ai fait un teste juste avant d'avoir ouvert OpenOffice et un autre apres ouverture, j'ai toujours la meme reponse "false", mon teste n'est pas bon mais je ne vois pas ce qui cloche.

voila les valeurs que j'obtient avant ou apres ouverture d'OpenOffice.

Citation:

---

Connect = !(VarIsEmpty(OpenOffice) || VarIsNull(OpenOffice)); // false
ou
Connect = !(VarIsEmpty(OpenOffice)); // false
ou
Connect = !(VarIsNull(OpenOffice)); // true

---

ces valeur sont toujours les meme ca laisserai penser que le teste ne se fait pas

Mon probleme est resolu le teste est correcte c'est uniquement la variable que je teste qui n'est pas la bonne la FAQ delphi donne deux exemples chaque exemple a une valeur differente d'ou l'erreur.

peux tu indiquer la correction?

@+
Mattetfamilly.

Salut Mattetfamilly:
pour tester il faut avoir ouvert OpenOffice avec ce code

Citation:

---

var OpenDesktop : Variant; LoadParams : Variant;begin OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop'); LoadParams := VarArrayCreate([0, -1], varVariant); Document := openDesktop.LoadComponentFromURL( 'private:factory/swriter', '_blank', 0, LoadParams);end;

---

et le teste est ecrit de cette facon

Citation:

---

Var Connect : Boolean;Begin Connect := not (VarIsEmpty(OpenOffice) or VarIsNull(OpenOffice));end;

---

D'un cote on ouvre avec OpenDesktop de l'autre on fait le teste avec OpenOffice, or OpenDesktop et OpenOffice c'est la meme chose avec deux noms differents.
Ca a au moins l'avantage de faire chercher.